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★ Praktische Computermöbel 
im Selbstbau 

★ Party-Gag: Finden Sie 
Ihren Traumpartner! 


★ Blitzschnelle 
Grafikerweiterung 

★ Tolle 64-Zeichenkarte 


!★ Kurs: Rund um den Kreis 
★ Vielseitige 
Business-Grafik 


★ Großer Kurs: 

Dem Klang auf der Spur 

★ Midi für Einsteiger 
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EINLEITUNG 


Grafik, Musik und 
Anwendung 


W as hat den C 64 eigentlich zum erfolgreichsten Heim¬ 
computer aller Zeiten gemacht? Auf diese Frage gibt 
es sicherlich mehrere Antworten. Tatsache ist, daß 
der C 64 mit großem Abstand der meistverkaufte Computer 
ist, in Deutschland und weltweit. Und es ist nicht im gering¬ 
sten zu erkennen, daß sich das in naher oder mittlerer 
Zukunft ändern wird. Im Gegenteil, im Moment (Herbst 1986) 
erlebt der C 64 wieder einen Boom sondergleichen. Zusam¬ 
men mit anderen Commodore-Heimcomputern werden zur 
Zeit runde 2000 Exemplare verkauft - pro Tag, in Deutsch¬ 
land! Das muß man sich mal vorstellen. Was also macht den 
C 64 so erfolgreich? Am Anfang der C 64-Geschichte sicher¬ 
lich das konkurrenzlose Preis-Leistungs-Verhältnis, jetzt 
kommt noch der Erfolg selber hinzu, also die massenhafte 
Verbreitung. Sie zieht an wie ein Magnet, vergleichbar mit 
dem VW-Käfer-Syndrom. 

Doch uns C64-Anwender interessieren vor allem die Lei¬ 
stungen des Computers, und die liegen eindeutig in den 
Bereichen Grafik und Musik. Beide Themen waren von 
Anfang an hochaktuell und werden von den Programmierern 
immer wieder verbessert oder ausgebaut. Ein Beispiel dafür 
ist »HiRes-Master«. Dieses Programm ist blitzschnell, arbei¬ 
tet mit mehreren Bildschirmen, enthält alle Grafik-Standard¬ 
funktionen und zusätzlich sehr interessante Befehle. Es 
besitzt Möglichkeiten, die es bisher noch nicht gab, zum Bei¬ 
spiel das Füllen beliebiger Bildschirmausschnitte mit frei 
wählbarem Muster. Das nebenstehende Demo-Bild wird übri¬ 
gens in knappen 5,4 Sekunden gezeichnet, inklusive dem 
Lesen der notwendigen DATAs ! 

Ein weiterer Leckerbissen ist »Grafic-Calc«, ein Programm 
zur Auswertung beliebiger Daten. Grafic-Calc ist in der Lage, 
Bilanzen in zehn verschiedenen Variationen auszugeben. 
Das gab es bisher noch nie! Die erstellten Grafiken können 
in bezug auf optische Gestaltung beliebig geändert werden. 
Das nebenstehende Beispiel demonstriert anschaulich die 
Verwendung von verschiedenen Füllmustern und die freie 
Gestaltung der Beschriftung. 

Wer die 64’er Sonderhefte kennt, weiß, daß sie nicht nur 
neue und Super-Programme enthalten, sondern ebenfalls 
gebündelte Informationen zu bestimmten Themen. Kurse, die 
über viele 64’er-Ausgaben hinweg gelaufen sind, können hier 
in einer Ausgabe zusammengefaßt werden. Damit erhalten 
Sie ein umfassendes Nachschlagewerk mit Beiträgen hervor¬ 
ragender Autoren. Wer Interesse an Musik auf dem C 64 hat, 
findet im Musik-Kurs alles, was er wissen muß, von einfachen 
Tönen bis zur Programmierung von sehr komplexer Musik. 
Ausgefeilte Programme zum Abtippen zeigen Ihnen, was der 
C64 auf diesem Gebiet leisten kann. Auch wer sich mit der 
Midi-Schnittstelle befassen möchte, mit der sich elektroni¬ 
sche Musikinstrumente an den Computer anschließen las¬ 
sen, sollte sich den interessanten Grundlagenartikel nicht 
entgehen lassen. 

Computer und Wohnzimmereinrichtung bilden nicht unbe¬ 
dingt immer ein harmonisches Ganzes. Daß sich viele Bastler 
und Heimwerker darüber Gedanken gemacht haben, liegt auf 
der Hand. Die Ergebnisse ihrer Kreativität wollen wir Ihnen 
anhand einiger interessanter Beispiele zeigen. 


Eine typische Anwendung ist das Programm »Klima 64«. 
Wenn Sie mehr über das Klima eines bestimmten Ortes wis¬ 
sen wollen, erstellt Klima 64 für Sie ein übersichtliches Dia¬ 
gramm mit den wichtigsten Daten. 

Mit diesem Sonderheft haben wir Ihnen eine Mischung aus 
interessanten Informationen und Top-Listings gegeben. Die 
Listings können Sie selbstverständlich auch auf Diskette 
erhalten. Wenn Sie selbst Programme geschrieben haben, 
freuen wir uns auf Ihre Zuschrift. 

Georg Klinge, leitender Redakteur 
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Tortengrafik 2-dinension 




Statistik 

Hunides Klima: 50 1. 
ftrrides Klima: 50 i 
Temperaturen: 

Hin.: 20 {Januar) 

Max.: 31 <flpril> 
Durchschnitt: 26 
Niederschlau: 

Min.: 3 nn {Dezember) 
Max.: 322 mm {Juli) 
Durchschnitt: 123 mm 
Gesamt: 1*177 mm 


□30? 


SONDERHEFT 11 


3 





















































































































PROGRAMM-SERVICE 



Bestellungen In Österreich: Bücherzentrum Meidling, Schönbrunner Straße 261, A-1120 Wien, Tel. 0222/8331 96, 
Mlcrocomput-Ique E. Schiller, Fasangasse 21, A-1030 Wien, Tel. 0222/785661, 

Ueberreuter Media Handels- und Verlagsgesellschaft mbH, Alser Straße 24, A-1091 Wien, Tel. 0222/481538-0 
Bestellungen aus anderen Ländern: Bitte nur schriftlich an MarktÄTechnlk Verlag AG, Abt. Buchvertrieb, Hans-Plnsel-Straße 2, 8013 Haar, 

und gegen Vorauszahlung einer Proforma-Rechnungl 



Das Angebot dieser Ausgabe: 

Grafik-Calc 64, das Grafikwunder 

Grafik-Calc 64 Ist ein universelles Programm zur Anfertigung von 
äußerst repräsentativen Geschäftsgrafiken. Die zu bearbeitenden 
Daten lassen sich komfortabel eingeben und auf zehn verschiendene 
Arten grafisch auswerten. Dabei können die Grafiken mit beliebigen 
Schrifttypen in unterschiedlichen Größen, Breiten und Schräglagen 
optisch anschaulich beschriftet werden. Um wichtige Flächen hervor¬ 
zuheben, lassen sie sich mit 36 unterschiedlichen Mustern füllen. Die 
Diskette enthält alle notwendigen Einzelprogramme in fertig funktions¬ 
fähiger Form. 

54En 

1 Diskette rtiifl nn AA* 

Bestell-Nr. L6 86 S11 D (sFr. 24,90/öS 299,-*) UM 

• Inkl. MwSt. Unverbindliche Preisempfehlung 


Programme aus früheren Ausgaben: 


64’or-Ausgabo 10/86 

Bestoll-Nr. L6 86 10D Dlskotte 



DM 29,80* (sFr. 24,90/ÖS 299,-z) 
Supor-Insloll lür Drucker 

C64 (Textvorarboltung) 

Musik aus eigener Komposllion 

a 

28 

(Listing dos Monats) 

Spracho und Musik digitalisieren 

S. 

63 

{Anwendung des Monats) 

Zelt sparen mit Chocksummor V3 

s. 

66 

und MSE 

a 

76 

TIpsSTrlcks lür Pralls 

s. 

81 

TIps&Trlcks zum C128 

s. 

84 

TIpsSTrlcks zum C16 und Plus/4 

s. 

93 

TIps&Trlcks zu Vizawrlle (Teil 10) 

s. 

179 


Von Basic zu Assembler (vier Usllngs) S. 152 

Portrait des Epson-Oruckora S. 158 

64'or-Ausgabo 0186 
Bostoll-Nr. LC 08 090 DlSkotlo 
DM 29,00* (SFr. 24,00/ÖS 299,-V) 

FSD64 (Ustlng dos Monats) 

Im 64’er-Modus mit der 1570/71 
schnoll ladon (brennlahlg) S. 60 

Ean-Barcodos (Anwondung dos 
Monats) Bor-Codes mit dem 
Epson-Druckor S. 64 

Shrlnksprllo. Sprllos drohon S. 68 

TIpa&Trloks zum C128 S. 62 

TIpsSTrlcks lür Elnsloigor S. 64 

TIpsSTrlcks lür Pralls S. 66 

Croas-RolorenoolürdonC128 S. 71 

Varioblon-Dump lür Anspruchsvolle S. 76 

Neue Moduls lür Hypro-Baslc S. 76 

Hl-Eddl mit dem Star NL-10 
und dom QP 700 VC S. 79 

HIRea Colossal (4 Grallkblldschlrme 
unler Simons Basic) S. 82 


Hardcopy für den 1620 S. 93 

Der orale Druckerspeeder 

lür den MPS 801 S. 94 

Hardmaker für Epson-Druckor S. 96 

Pascal-Kurs lür Einsteioer 

(3 Usllngs) S. 137 

TIpsSTrlcks zu Vizawrlle (Teil 9) S. 169 

64’er-Ausgabo 8/86 
Bestell-Nr. 16 86 OBD Diskollo 
DM 29,90* (SFr. 24,90/ÖS 209,-») 

64'or Comal Sonderservice: 

COMAL 0.14 S. 42 

Vokabel Trainer - ein geduldiger und 
prelswerlor EngllBch-Naohhlllo-Lohror 

(AdM) S. 63 

Dlgl-Conlrollor (LdM) 

Simulieren und Ausloslen dlgllelor 
Schallungon und speicher- 
programmierbarer Steuerungen S, 59 

Grnllk Wandler S. 88 

Reise durch den C128 S, 70 

TIpsSTrlcks zum C16/C116/PIUS4 S. 74 

TIpsSTrlcks lür Elnsloigor S. 76 

TIpsSTrlcks lür Pralls S, 80 

MPS Support lür den MPS 802 S, 91 

Hypro-Baslc wird strukturiert S. 92 

Comalchen lür den C128 S. 128 

Slrellzügo durch die Grallkwoll S. 136 

TIpsSTUcks zu Superbase S. 149 


64'or-Ausgobo 7/88 
Boslell-Nr. L6 86 07D Diskette 
DM 29,90* (sFr. 24,90/äS 299,J) 

64’er-Ausgabe 0/86 

Bestell-Nr L6 86 OBD Dlskotte 
DM 29,90* (sFr. 24,90/öS 299,-*) 


64’or-Ausgobe 5/86 

Bestell-Nr. L6 86 06D Diskette 
DM 29,90* (sFr. 24,90/ÖS 299,-*) 
64'or-Ausgabe 4/86 
Bestell-Nr. L6 88 04D Diskette 
DM 29,90* (sFr. 24.90/ÖS 299,-*) 
64'or-Ausgobo 3/86 
Bestell-Nr. L6 86 03D Diskette 
DM 29,90* (sFr. 24,90/63 299,-*) 
64’or-Ausgnbo 2/86 
Bestell-Nr. L6 86 02D Diskette 
DM 29,90* (sFr. 24,90/öS 299,-*-) 
64'or-Ausgobo 1/86 
Bestell-Nr. L6 86 01D Diskette 
DM 29,90* (SFr. 24,90/öS 299.-*) 
64'or-Ausgobe 12/85 
Bestell-Nr. L6 B5 12D Diskette 
DM 29,90* (SFr. 24,90/ÖS 299,-*) 
Bestell-Nr. L6 85 12K Kassette 
DM 29.90* (sFr. 24,90/öS 299,-*) 
64'er-Ai—-’.e 11/85 
Bestell-Nr. L6 85 11A 
DM 29,90* (sFr. 24,90/ÖS 299,-*) 
64'or-Ausgabe 10/85 
Bestell-Nr. L6 85 10A 
DM 29,90* (SFr. 24,90/öS 299,-*) 
64'er-Ausgabo 9/85 
Bestell-Nr. L6 85 09A 
DM 29,90* (sFr. 24,90/öS 299.-*) 
64'er-Ausgabo 8/85 
Bestell-Nr. L6 85 08A 
DM 29,90* (sFr. 24,90/öS 299.-*) 
64'er-Ausgabo 7/85 
Bestell-Nr. L6 85 07A 
DM 29,90* (sFr. 24.90/öS 299,-*) 
64’or-Ausgnbo 6/05 
Bestell-Nr. L6 86 06A 
DM 29,90* (sFr. 24.90/ÖS 299.-*) 
64’or-Ausgnbo 6/85 
Bestell-Nr. L6 85 05A 
DM 29,90* (SFr. 24,90/ÖS 299.-*) 
64'or-Ausgnbe 4/85 
Bostoll-Nr. L6 85 04A 
DM 29,90* (sFr. 24,90/ÖS 299,-*) 
64'or-Ausgnbo 3/85 
Bostoll-Nr. L6 86 03A 
DM 29,90* (sFr. 24,90/ÖS 299,-*) 
64’or-Ausgnbo 2/85 
Bostoll-Nr. L6 86 02A 
DM 29,90* |sFr. 24,90/ÖS 299,-*) 
64’or-Auognbo 1/85 
Bostoll-Nr. L6 86 01A 
DM 29,90* (SFr. 24,90/öS 299,-*) 


64’er-Sonderhefte 

Sondorholt 10/86 -C128 

Bostoll-Nr L0 86SIOCD 
DM 29,90* (sFr. 24,90/ÖS 299,-*) 
Sondorholt 9/88 - Floppy&Dnlolvorwnltung 
Bostoll-Nr. L6 86 S9 CD 
DM 29,90* (sFr. 24,90/ÖS 299,-*) 
Sondorholt 8/86 - Plus/4 und C16 
Bestell-Nr. L8 86 SB CD Diskette 
DM 29,90* (SFr. 24,90/ÖS 299,-*) 
Bostoll-Nr. L6 86 SB KC 4 Kassetten 
DM 34,90* (sFr. 29,50/öS 349,-*) 
Bestell-Nr. L8 86 S8 KV Kassette 
DM 19,90* (sFr, 17,-/öS 199,-*) 


Sondorholt 7/86 - PEEKs & POKEs 

Bestell-Nr. L6 86 S7D 1 Diskette 
DM 29,90* (sFr. 24,90/öS 299,-*) 
Sonderheit 6/86 - Grnllk 

2 Disketten mit allen Programmen 
Bestell-Nr. L6 86 S6D1 

DM 34,90* (SFr. 29,50/öS 349,-*) 

1 Diskette mit Giga-CAD-Demos 
Bestoll-Nr. L6 86 S6D2 
DM 19,90* (sFr. 17.-/ÖS 199.-*) 

3 Disketten mit allen Programmen und Demos 
Bestoll-Nr. L6 86 S6D3 

DM 49,80* (SFr. 43,50/öS 498,-*) 
Sondorholt 5/86 - Grundwissen 
Bestell-Nr. L6 86 S5D 1 Diskette 
DM 29,90* (sFr. 24.90/öS 299,-*) 
Sonderholt 4/86 - Abontouer 
Bostoll-Nr. L6 86 S4D 2 Disketten 
DM 34,90* (sFr. 29.50/öS 349,-*) 
Sonderheit 3/86-C16, C116, VC20, Plus/4 
1 Diskette lür VC 20 und C16/116: 

Bestell-Nr. L6 B6 S3 CD 
DM 29,90* IsFr. 24,90/öS 299,-*) 

1 Kassette lür VC 20: 

Bestell-Nr. L8 86 S3 KV 
DM 19,90* (SFr. 17,-/öS 199,-*) 

1 Kassette lür C16: 

Bestoll-Nr. L6 86 S3 KC 
DM 19,90* (SFr. 17.-/ÖS 199,-*) 

Sondorholt 2/86 - TIps&Trlcks 
Bestoll-Nr. L6 86 S2D Diskette 
DM 29.90* (sFr. 24,90/öS 299,-*) 
Sondorholt 1/86-C 128er 
Bestell-Nr. L6 86 S1D Diskette 
DM 29,90* (sFr. 24,90/öS 299,-*) 
Sondorholt 8/85 - Assomblor 
Bostoll-Nr. L6 85 S8D Diskette 
DM 29.90* (sFr. 24,90/öS 299,-*) 
Bestell-Nr. L8 85 S8K Kassette 
DM 19,90* (sFr. 17,-/öS 199,-*) 

Sondorholt 7/85 - Prolosslonollo Anwondungon 
Bostoll-Nr. L8 85 S7D 2 Diskotton 
DM 34,90* (sFr. 29,50/ÖS 349,-*) 
Bestell-Nr. L6 85 S7K 4 Kassetten 
DM 34,90* (SFr. 29.60/ÖS 349,-*) 
Sondorholt 6/85 - Top-Thomon 
Bostoll-Nr. L6 86 S6 2 Dlskollon 
DM 34.90* (sFr. 29,60/ÖS 349,-Z) 
Sondorholt 5/85 - Floppy, Dotoselto 
Bostoll-Nr. L6 85 S6D Diskelte 
DM 29,90* (flFr 24,90/ÖS 299,-*) 
Bostoll-Nr. L6 85 S6K Kassotto 
DM 19.90* (sFr. 17,-/öS 199,-') 

Sondorholt 4/85 - Grnllk 
Bostoll-Nr. L6 86 S4A 
DM 29,90* (sFr. 24.90/öS 299,-*) 
Sondorheft 3/85 - Splolo 
Bostoll-Nr. L6 85 S3 A 2 Disketten 
DM 34,90* (SFr. 29,60/öS 349,-*) 
Sondorheft 2/85 - Abenleuersplelo 
Bostoll-Nr. L6 86 S2 
DM 34,90* (SFr. 29.50/ÖS 349,-*) 
Sondorholt 1/85 - TIps&Trlcks 
(2.übersrb. Aulingo) 

Bestell-Nr. CB 023 Floppy-Utilltles 
DM 29,90* (eFr. 24,90/ÖS 299.-*) 
Bestell-Nr. CB 024 Hlllsprogrammo 
DM 29,90* IsFr. 24,90/ÖS 299,-*) 

* Inkl.MwSt. Unverbindliche Prolsempfohlung. 


Bitte verwenden Sie für Ihre Bestellung und Überweisung die eingeheftete Postgiro-Zahlkarte, 
oder senden Sie uns einen Verrechnungs-Scheck mit Ihrer Bestellung. 

Sie erleichtern uns die Auftragsabwicklung, und dafür berechnen wir Ihnen keine Versand kosten. 
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GRAFIK 


C 64 


Sprites ohne PEEK und POKE 


Ärgern Sie sich nicht mehr bei der Programmie¬ 
rung von Sprites. Mit »Sprite-Basic« geht alles viel 
leichter und schneller. 

D as Basic V2 des Commodore 64 bietet keine besonde¬ 
ren Befehle zur Steuerung von Sprites an, wie sie zum 
Beispiel im Basic 7.0 des CI28 vorhanden sind. Man 
muß alles durch umständliche PEEKs und POKEs steuern. 
Die hier abgedruckte Befehlserweiterung schafft Abhilfe. Sie 
ist speziell auf den Umgang mit Sprites ausgelegt. 

Vom Hyperscreen über interruptgesteuerte Spritebewe- 
gung, der komfortablen Erstellung des'Bitmusters bis hin zum 
Drehen und Spiegeln von Sprites ist ein Befehl vorhanden. 
Die Befehle 

Vor jedem »Sprite-Basic«-Befehl steht ein Pfeil nach links. 
Wenn nach einer IR.THEN-Anweisung ein »Sprite-Basic«- 
Befehl steht, muß nach THEN ein Doppelpunkt stehen. 

In der folgenden Anleitung bedeutet SNR Sprite-Nummer. 
Diese kann Wertigkeiten von 0 bis 7 annehmen. Die anderen 
Werte können, wenn nicht anders angegeben, bis maximal 
255 betragen. 

— N,SNR - Schaltet ein Sprite ein 
— F,SNR - Schaltet ein Sprite aus 
— E(X/Y),SNR - Vergrößert ein Sprite in X/Y-Richtung. 
Beispiel: EX,3 

— D(X/Y),SNR - Verkleinert ein Sprite in X/Y-Richtung. 
Beispiel: DY,2 

— C,SNR,Farbe - Hiermit läßt sich ein Sprite einfärben. Die 
Werte für die Farbe bewegen sich von 0 bis 15 
— M,SNR - Der Multicolor-Modus für das jeweilige Sprite 
wird aktiviert 

— H,SNR - Schaltet das betreffende Sprite wieder in den ein¬ 
farbigen Modus zurück 

— B,SNR - Der Text hat Priorität vor dem angewählten Sprite 
— S,SNR - Das selektierte Sprite hat Vorrang vor den Hinter¬ 
grundzeichen 

- U,FARBE1,FARBE2 - setzt die Multicolor-Farben für alle 
Sprites 

— 0,X,Y,Z - Setzt die Bildschirmfarben: X ist die Rahmen¬ 
farbe, Y steht für den Hintergrund und Z spricht die Zeichen¬ 
farbe an 

— I, SNR,BLOCK - Setzt die Blockzeiger für ein Sprite 
— X - Initialisiert »Sprite-Basic« neu. Alle Sprites, Sprite- 
Bewegungen, Positionen und so weiter werden auf Null 
zurückgesetzt 

— A - Schaltet den Bewegungsinterrupt aus. Dies ist sehr 
nützlich, wenn mehrere Sprites zu einer Figur gehören und 
genauso gleichzeitig laufen müssen. In diesem Fall ist der 
Interrupt mit A abzuschalten, dann der W-Befehl zu benutzen 
und danach der Interrupt mit J wieder zu aktivieren 
— J - Aktiviert den Bewegungsinterrupt 
- Q - Entspricht einem RESET (SYS 64738) 

— Y - Führt ein RE-NEW durch 

— W,SNR,XS,YS,XV,YV - Bewegt ein Sprite mit der Schritt¬ 
weite XS waagerecht und läßt dann XV Interrupts aus. Bei der 
senkrechten Bewegung gilt Schrittweite YS und Verzöge¬ 
rung YV 

Beispiele zum W-Befehl: 

W,0,1,1,0,1: Setzt Sprite 0 jeden Interrupt um einen Schritt 
nach rechts und jeden zweiten Interrupt um einen Schritt 
nach unten. Will man ein Sprite nach oben oder links laufen 
lassen, errechnet sich die Schrittweite folgendermaßen: 
256-XS beziehungsweise 256-YS. Das heißt: 


W,1,255,0,2,0 bewegt Sprite 1 jeden dritten Interrupt um 
einen Schritt nach oben. 

— P,SNR,X,Y - Setzt ein Sprite auf die Position X/Y. Der Wert 
X darf von 0 bis 511 betragen, der von Y kann, je nachdem 
ob der Hyperscreen ein- oder ausgeschaltet ist, entweder 
von 0 bis 255 oder von 0 bis 511 betragen 

— @ - Schaltet den Hyperscreen ab. Die Y-Koordinate der 
Sprites reicht automatisch nur noch bis 255 

—E - Aktiviert den Hyperscreen. Die Y-Koordinate eines 
Sprites reicht nun bis zu 511 

— — A$ - Setzt das Bitmuster für den Hyperscreen. Der 
String kann auch als Variable stehen. ».« bedeutet Bit nicht 
gesetzt, »*« steht für ein gesetztes Bit. Der String muß acht 
Zeichen lang sein 

— L,X,Y - Füllt den Spriteblock X mit dem Wert Y 

— R,X - Setzt den Spritezeiger für die Befehle G, T, K, V und 
Z auf den Block X 

— G A$ - Setzt das Bitmuster für ein einfarbiges Sprite. »*« 
bedeutet Bit gesetzt, ».« Bit nicht gesetzt. Danach wird der 
Sprite-DATA-Zeigerumdrei erhöht, das heißt, derfolgende G- 
Befehl stellt die nächste Sprite-Zeile dar. Am Ende eines Spri¬ 
tes wird das Leerbyte 63 ($3F) automatisch übersprungen 
und der Sprite-DATA-Zeiger auf den nächsten Block gestellt. 
Der String muß 24 Zeichen lang sein 

-TA$- Gleichlautend wird hiermit ein Multicolor-Sprite 
definiert. In dem String bedeutet »A« Multicolor-Farbe 1, »B« 
Spritefarbe, »C« Multicolor-Farbe 2 und ».« nicht gesetzt. Der 
String muß die Länge 12 besitzen. Sonst gilt das gleiche wie 
beim GFBefehl. Beispiel: T"...AABCBAA.." 

— K - Spiegelt den mit R eingestellten Spriteblock zur waa¬ 
gerechten Achse 

— V - Spiegelt den mit R eingestellten Spriteblock zur senk¬ 
rechten Achse 

— Z - Dreht den mit R eingestellten Spriteblock um 90 Grad. 
Die drei rechten Spalten des Sprites gehen verloren. Ach¬ 
tung! Zweimal Z oder K und V sind nicht das gleiche! 

Die USR(X)-Funktion 

Bei X von 0 bis 15: Kollisionsabfrage X=A*8+SNR 
Wenn A=0 dann Sprite-Sprite-Kollisionsabfrage 
Wenn A=1 dann Sprite-Hintergrund-Kollisionsabfrage 
Das Ergebnis ist 1, wenn seit der letzten Abfrage eine Kolli¬ 
sion stattgefunden hat und 0, falls nicht 
Bei X von 16 bis 255: Joystickabfrage X=16+A*2 + B 
Wenn A=1, dann waagerechte Abfrage. Sehr gut mit dem 
W-Befehl einzusetzen', da Ergebnis=0 wenn keine Joystick¬ 
bewegung, 1 bei rechts und 255 bei Bewegung nach links 
Beispiel: W,1,USR(18),USR(16),0,0 
Wenn A=1 dann senkrechte Abfrage 
Bei B=0 Abfrage Port 2 
Oder B=1 dann Abfrage Port 1 
Bei X von 256 bis 271: Positionsabfrage eines Sprites 
X=256+SNR*2 + A 

Wenn A=0 dann X-Koordinate. Das Ergebnis kann Werte 
zwischen 0 und 511 annehmen 
Falls A=1 dann Y-Koordinate. Das Ergebnis bewegt sich 
zwischen 0 und 255 

Bei X von 272 bis 65535: PEEK immer aus dem RAM 
Eingabehinweise zum Programm 
Bitte geben Sie zuerst Listing 1 (»Spritebasic V3«) mit dem 
MSE ein und speichern Sie es. Listing 2 müssen Sie nicht 
unbedingt eingeben, es ist nur ein Demo-Programm. 

Gestartet wird »Sprite-Basic« einfach mit RUN. Nach einem 
RESET ist »Sprite-Basic« mit SYS 51243 ($C82B) wieder 
zum Leben zu erwecken. »Sprite-Basic« selbst belegt den 
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Bereich von 51236 ($C824) bis 53198 ($CFCE). Der Spri- 
te-Zeiger liegt bei 253/254 ($FD/$FE). Die Adresse 2 wird 
bei den Befehlen V, K, Z, G und T belegt, 251/252 ($FB/$FC) 
ist bei L in Betrieb. In 53199 bis 53247 ($CFCF bis $CFFF) 
sind die W-Parameter gespeichert, die V-, Z- und K-Werte 
belegen 49152 bis 49214 ($COOO bis $C03E). 


Der Vektor 776/777 ($0308/$0309) wurde für die Be¬ 
fehlserkennung verbogen. Der IRQ-Zeiger in 788/789 
($0314/$0315) zeigt auf die neue IRQ-Routine. Nebenbei 
wurden auch noch der USR-Vektor in 785/786 
($0311/$0312) und der RESTORE-Vektor bei 792/793 
($0318/$0319) verbogen. (Phillip Herzog/dm) 
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4e 

0d49 

00 4c ae 

a7 

c9 

49 

f0 

03 

C0 

1011 : 

fd ae 20 9e b7 8e 20 

d0 

53 

0a89 : 

88 10 f9 9d 00 c0 ca 10 

9d 

0d51 

4c d6 cb 

20 

56 

cf 

8d 

cf 

a9 

1019 : 

20 fd ae 20 9e b7 8e 

21 

0c 

0a91 : 

ef a0 3c b9 00 c0 48 c8 

cf 

0d59 

cf 20 fd 

ae 

20 

9e 

b7 

8a 

78 

1021 : 

d0 20 fd ae 20 9e b7 

8e 

49 

0a99 : 

c8 b9 00 c0 88 88 91 fd 

65 

0d61 

ae cf cf 

9d 

f 8 

07 

4c 

ae 

f 5 

1029 : 

86 02 60 b8 a2 22 a9 

3d 

3c 

0aal : 

c8 c8 68 91 fd 88 b9 00 

25 

0d69 

a7 a9 0b 

8d 

20 

d0 

a9 

06 

95 





0aa9 : 

c0 91 fd 88 88 88 88 10 

dl 

0d71 

8d 21 d0 

a9 

01 

8d 

86 

02 

93 

usting i. »bprite-Basic V3«. 



0abl : 

e2 20 73 00 4c ae a7 20 

99 

0d79 

20 ae ob 

a9 

9a 

8d 

08 

03 

55 

Bitte mit dem MSE eingeben 
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C 64 


90 +X:+*«++".": REM RESET 

+HVPERSCREEN ON 

100 t-R, 13sREM B—ZEIGER AUF BLOCK 13 

110 H3".*****.•• 

120 H3"........ *****." 

130 +Q".***." 

140 H3".***." 

150 H3".*." 

160 +B".*." 

170 H3"... . *************." 

180 H3".***********. 11 

190 +G".***•*••••." 

200 H3 ".*******." 

210 MB”.******».'.•• 

220 +G". ..*******." 

230 HB".*******." 

240 HB".*******." 

250 HB".*******. 

260 H3".*******." 

270 H3".*******." 

280 +B".*****. 11 

290 HB".*****." 

300 HB".***." 

310 H3".*." 

320 ! 


330 REM G—ZEIGER SPRINGT AUTOMATISCH AUF 
4 

340 : 

350 *-T"." 

360 <-T“.“ 

370 +T"." 

380 *-T"." 

390 t-T"." 

400 +T".AA." 

410 t-T".AA." 

420 t-T"_BBBB_“ 

430 t-T " . . BBBBBBBB. . " 

440 t-T " CAAACCCAAACC " 

450 t-T " AAACCCAAACCC" 

460 t-T" . . BBBBBBBB. . " 

470 t-T"_BBBB_" 

480 t-T".BB." 

490 t-T"." 

500 t-T"." 

510 t-T"." 

520 t-T"." 

530 t-T"." 

540 t-T"." 

550 t-T " < 12BPACE > " 

560 : 

570 t-T"." 

580 t-T"." 

590 <-T"." 

600 t-T"." 

610 t-T"..“ 

620 t-T". .BBBAABBB. . " 

630 t-T". BBAAAAAABB. " 

640 t-T " BBAAAAAAAABB " 

650 t-T " B AAA AAA AAA AB 11 
660 t-T " BBAAAAAAAABB " 


1 


670 t-T " BBBBBAABBBBB " 

680 t-T". BB. BAAB. BB. " 

690 t-T"_BAABB..." 

700 t-T"..-BBAAB.... " 

710 t-T"_BAAB-" 

720 t-T".... BAABB..." 

730 t-T "...BBA AB-" 

740 t-T"_BAAB...." 

750 t-T"_BAABB..." 

760 t-T".. .BBAAB.... " 

770 t-T".... BAAB_" 

780 « 

790 REM KOLLISIONSDEMO 
800 s 

810 HJ,l,0:t-C,0,0i t-C, 1,12t t-M, 1 ■ REM FARBEN 
+ MULTICOLOR SETZEN 
B20 +EX , 1: REM EXPAND 

830 t-1,0,13s +1,1,14sREM SPRITEPOINTER AUF 
BLOCK BETZEN 

840 t-P, 1,0,200s t-P,0,170,0sREM SPRITES SETZ 
EN 

850 t-N,0:t-N,lsREM EINSCHALTEN 


<222> 

<204> 

<240> 

<250> 

< 140> 

< 150> 

< 165> 

< 17S> 

< 196> 
<0B6> 
<176> 
<250> 
<004> 
<014> 
<024> 
<034 > 
<044> 
<056> 
<066> 

< 156> 

< 166> 
<056> 
<071 > 
<042> 

<027> 

<062> 

< 11B> 
<128> 

< 138> 

< 14B> 

< 15B> 

< 142> 
<152> 
<024> 
<200> 
<245> 
<049> 
<230> 
<074> 
<234> 
<002> 
<012> 
<022> 
<034> 
<044> 
<054> 
<175> 
<028> 
<084 > 
<094> 

< 104> 

< 114> 

< 124> 

< 124> 
<098> 
<066> 

< 139> 
<086> 
<084 > 
<048> 

< 159> 
<058> 
<04B> 

< 1B9> 
<0BB> 
<07B> 
<219> 

< 118> 
<110> 
<250> 

< 127> 

< 119> 

<013> 

<062> 

<099> 

<212> 

<106> 


860 t-W,1,1,0,0,0 < 169> 
870 PRINT“CCLR,WHITE>JOYSTICK PORT 2 ZUR S 

TEUERUNG DER BOMBE BENUTZEN" <130> 
880 PRINT"{RVSQN,SPACE >F1CSPACE,RVOFF,SPAC 

E>TO EXIT" <218> 
890 t-W,0,USR (16+2*1+0) ,2,0,0s REM JOYBTICK 

IM W-BEFEHL <222> 
900 IF PEEK(203)=4 THEN 1000 <019> 
910 IF USR(1> »0 THEN 890«REM KOLLISION? <189> 
920 +W,0,1,2,3,0 <22S> 
930 PRINT"tCLR>";:FOR X-0 TO 63 <223> 
940 POKE 646,X:PRINT"{HOME,12D0WN,17RIGHT > 

BOOM! <211> 
950 NEXTtPRINT"<CLR>"sIF USR<1)-1 THEN 930 <1B7> 
960 GOTO 070 <03B> 
970 « <1B4> 
980 REM +A/+J LIND POSITIONSABNBFRAGEDEMO <122> 
990 « <204> 
1000 t-AsREM INTERRUPT AUS <074> 
1010 PRINT"{CLRJ+A/+J UND POSITIONBABFRAGE 

-DEMO" <149> 
1020 t-P,0,13,13 <084> 
1030 t-P,1,0,0: t-@ < 13B> 
1040 tw,0,l,l,0,lstw,1,1,1,0,1 <1B4> 
1050 +J: REM INTERRUPT WIEDER AN <196> 
1060 PRINT"{DOWN>DRUECKE EINE TASTE UM DIE 

RAKETE{BSPACEJFALLENZULASSEN!" <162> 
1070 POKE 19B,0rWAIT 198,lsP0KE 198,0s+W,0 

,0,2,0,0 <02B> 
1080 IF USR(257)<229 THEN 10B0 <071> 
1090 +I,0,15«H*l,0:t-C,0,2:t-W, 0,0,0,0,0 <237> 
1100 +P,0,USR<256>,207«+€Y,0 <069> 
1110 FOR X=0 TO 10: t-N,0« FOR Y=0 TO 50: NEXT 

:+F,0:FOR Y=0 TO 50:NEXT Y,X <019> 
1120 IF USR(25B)<400 THEN 1120 <210> 
1130 +I,0,13:+H,0:+C,0,0:+N,0 <159> 
1140 +A:+R,13:t-K: t-R ,14:t-K:«-P,0,13,0t+P,l,0 

,13:+W,0,1,1,0,1: <-J: +DY,0 <205> 
1150 PRINT"{8DOWNJJETZT STEHT ALLES KOPF!" <064> 
1160 FM. NT"{DOWN>WEITER MIT{SPACE,RVSON1SP 

ACt{RVSON>" <065> 
1170 WAIT 203,60 <052> 
1180 PRINT"{CLRJ+Z-DEMO" <010> 
1190 +F, 1: t-P,0,50,230: t-R, 13 <204> 
1200 t-W,0,0,255,0,1 <082> 
1210 IF USR(257)>1B0 THEN 1210 <091> 
1220 +W,0,0,255,0,0 <230> 
1230 IF USR(257)>80 THEN 1230 <0B3> 
1240 +Z:+W,0,1,0,0,0 <047> 
1250 IF USR(256)<300 THEN 1250 <211> 
1260 t-Z:t-W,0,0,1,0,0 <079> 
1270 IF USR(257)<200 THEN 1270 <101> 
1280 t-Z:+W,0,255,0,0,0 <013> 
1290 IF USR(256)<500 THEN 1290 <009> 
1300 : <006> 
1310 REM SPRUNGDEMD <013> 
1320 « <026> 
1330 +X <123> 
1340 HM,0 <253> 
1350 +1,0,13 <1B1> 
1360 PRINT"{CLRJMIT +L,13,255 MACHEN WIR E 

INEN KASTEN" <047> 
1370 +L,13,253:+C,0,1:+1,0,13:+P,0,24,58 <020> 
13B0 PRINT"C3D0WNJMIT +W,0,20,0,20,0 LASSE 

N WIR IHN<7SPACE>SPRINGEN" <201> 
1390 +W,0,20,0,20,0 <144> 
1400 PRINT"{DOWNJDRUECKE{SPACE,RVSONJSPACE 

{RVOFF, SPACE >FUER ENDE "«POKE 19B,0 <UB> 
1410 GET A*:IF A*<>" "GOTO 1410 <211> 
1420 +X <213> 


Llstlng 2. Dieses Demo-Programm zeigt die Fähigkeit von 
»Sprite-Basic V3« 
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C 64 


GRAFIK 



Programmen™ icklung januar igös - juli iggg 

FRANK RIEMENSCHNEIOER - HANNOVER 



Vom Säulen- 
zum Kudiendiagramm 
mit »Grafk-Cak« 


Ab jetzt können Sie Ihre Jahresbilanzen grafisch 
auswerten wie die Profis. Schriftgröße und-art zur 
optischen Aufbereitung der erstellten Grafiken 
sind genauso frei definierbar wie die Füllmuster 
zum Kennzeichnen wichtiger Flächen. 

P rogramme zur grafischen Darstellung beliebiger Busi¬ 
ness-Grafiken gibt es viele für den C 64. Ein Programm 
jedoch, das in der Lage ist, Bilanzen in zehn verschie¬ 
denen Variationen auszugeben, das gab es bisher noch nie. 
Grafic-Calc kann aber noch mehr. Der eingebaute Editor 
sorgt dafür, daß die vom Programm erstellten Grafiken vor 
dem Drucken oder Speichern in bezug auf optische Gestal¬ 
tung beliebig verändert werden können. So läßt sich der Text 
in allen vier Richtungen, in unterschiedlichen Größen und 
Formen an beliebige Stellen setzen. Auch das Ausfüllen von 
Flächen mit 36 möglichen Mustern oder das Kopieren, Ver¬ 
schieben oder Verkleinern von Ausschnitten oder ganzen 
Seiten ist für Grafic-Calc kein Problem. 

Grafic-Calc 64 besteht aus acht Teilen: 
dem Ladeprogramm: START 

Qüte? 


dem Datenmodus: GRAFIC-CALC/D 

dem Grafikmodus: GRAFIC-CALC/G 

Die restlichen Programmteile »Teil 1« bis »Teil 5« enthalten die 
erforderlichen Maschinenroutinen. Um Ihnen Tipparbejt zu 
ersparen, sind bis auf »START«, »TEIL1« und »TEIL2« alle Pro¬ 
gramme in gepackter (= komprimierter) Form veröffentlicht. 
Bevor Sie mit Grafic-Calc 64 arbeiten können, müssen diese 
gepackten Files, die Sie an dem Vorsatz »P/« im Programm¬ 
namen erkennen, entpackt und gespeichert werden. Dazu 
gehen Sie wie folgt vor: 

Gepacktes File mit 

LOAD " P/name ", 8: < SHIFT+RUN/STOP > 

laden und starten. Nachdem NEW < RETURN > eingegeben 
wurde, ist das jeweils dazugehörige kurze Basic-Programm, 
das Sie am Vorsatz »S-« erkennen, abzutippen oder mit LOAD 
"S-name",8 zu laden. Wird das Programm mit RUN gestar¬ 
tet, erzeugt es die originale, lauffähige Grafic-Calc-Routine 
auf der Diskette. Befinden sich alle fünf gepackten Files in 
entpackter Form auf der Diskette, wird Grafic-Calc mit 
LOAD * START " , 8: < SHIFT+RUN/STOP > 
geladen und gestartet. Alle erforderlichen Routinen werden 
automatisch nachgeladen. 

Daraufhin wird der Datenmodus automatisch gestartet. 

9 


SONDERHEFT 11 
































GRAFIK 


C 64 


Bitte beachten Sie, daß weder der Grafik- noch der Daten¬ 
modus allein lauffähig ist. Nach einem Programmende müs¬ 
sen Sie in jedem Fall immer neu beginnen, das heißt das Lade¬ 
programm (Start) laden. 


Komfortabler Eingabemodus 


Bei Grafic-Calc 64 werden Eingabefehler durch spitze Klam¬ 
mern gekennzeichnet. Während der Eingabe stehen fol¬ 
gende Funktionen zur Verfügung: 

Bewegung des Cursors im 
Eingabefeld. 

Das Eingabefeld wird ge¬ 
löscht, der Cursor springt an 
den Anfang des Feldes. 

Der Cursor springt an den 
Anfang des Eingabefeldes 
An der Cursorposition wird ein 
Leerzeichen eingefügt. Das 
letzte Zeichen des Eingabe¬ 
feldes geht verloren. 

Das unter dem Cursor ste¬ 
hende Zeichen wird gelöscht. 
Beendet die Eingabe, falls 
eine zulässige Eingabe erfolg¬ 
te. 

Die Eingabe wird abgebro¬ 
chen, ohne daß der Inhalt des 
Eingabefeldes übernommen 
wird. 

Eingaben, bei denen nur numerische Zahlen erlaubt sind, 
führen dazu, daß alle Tasten, außer den Zahlen 0 bis 9 und 
dem Punkt, gesperrt sind. 

Fehlermeldungen 
des Diskettenlaufwerkes 


Floppy nicht eingeschaltet 

Beim Versuch, die Floppystation unter der Geräteadresse 
8 anzusprechen, konnte keine Reaktion vom seriellen Bus 
festgestellt werden. Bitte schalten Sie die Floppystation ein 
und drücken Sie < RETURN >. 

Fehlermeldungen vom Floppy-DOS 
Alle weiteren Fehlermeldungen werden direkt vom Be¬ 
triebssystem der Floppystation (DOS) erzeugt und zeigen 
eine fehlerhafte Diskettenoperation an. Im Handbuch zum 
Laufwerk sind die Ursachen dafür erläutert. 

An dieser Stelle können aus Platzgründen nur die häufig¬ 
sten Fehlermeldungen erklärt werden: 

1) 26, WRITE PROTECT ON,Track,Sektor 

Es wurde versucht, auf eine Diskette zu schreiben, die mit 
einem Schreibschutzkleber versehen ist. Bitte entfernen Sie 
Ihn. 

2) 21, READ ERROR,Track,Sektor 

Die SYNC-Markierung eines Blocks wurde nicht gefunden. 
Der Grund ist meistens eine nichtformatierte Diskette. Neh¬ 
men Sie daher eine neue Diskette oder springen Sie in den 
Programmteil (Diskette formatieren). 

3) 62, FILE NOT FOUND.00,00 

Sie haben versucht, auf eine nicht existierende Datei zuzu¬ 
greifen. Sehen Sie sich bitte im Programmteil (Directory zei¬ 
gen) den Disketteninhalt an. 

4) 72, DISK FULL,00,00 

Die Diskette enthält nicht mehr genügend Speicherplatz. 
Speichern Sie Ihre Grafik daher auf einer anderen Diskette. 

5) 74, DRIVE NOT READY,00,00 


Diese Fehlermeldung tritt dann auf, wenn man auf die Flop¬ 
pystation zugreift, ohne daß sich eine Diskette im Lauf¬ 
werk befindet. Legen Sie daher eine ein und drücken 
< RETURN >, so daß die Diskettenoperation wiederholt 
wird. 

Die Reaktionen auf Fehlermeldungen 

Tritt eine Fehlermeldung auf, haben Sie in jedem Fall zwei 
Möglichkeiten: 

1: Sie drücken die < RETURN > -Taste. Dadurch wird die 
Operation wiederholt. Dies hat natürlich nur dann Zweck, 
wenn die Fehlerursache vorher beseitigt wurde. 

2: Sie drücken die <F3>-Taste. Damit wird der Programm¬ 
teil verlassen. Diese Reaktion ist immer dann angebracht, 
wenn sich die Fehlerursache nicht sofort beseitigen läßt, zum 
Beispiel bei einer vollen Diskette. 

Die Sicherheitsabfragen 

Bevor im Daten- oder Grafikmodus das Programm beendet 
wird, muß man dies noch einmal zur Sicherheit bestätigen. 
Auf die Frage »Sind Sie sicher ?«führt < J > zum Programm¬ 
abbruch, während eine andere Taste die Rückkehr zum 
Hauptmenü (Datenmodus) beziehungsweise zum Edit- 
Modus (Grafikmodus) bewirkt. 

Alles über Datenblöcke, 

-sätze und -elemente 


Jedes Programm, das mit Daten aller Art arbeitet, muß für 
diese sinnvolle Bezeichnungen einführen. Dies ist bei Grafic- 
Calc 64 nicht anders. Um Ihnen möglichst einfach das Prinzip 
einer Grafic-Calc-Datei zu erläutern, sollen hier an Hand 
eines konkreten Beispieles die drei wichtigen Begriffe Daten¬ 
block, Datensatz und Datenelement erläutert werden. 

Stellen Sie sich vor, Sie sind der Besitzer einer Getränke¬ 
firma und möchten mit Grafic-Calc 64 den Umsatz Ihrer Ware 
über einen, bestimmten Zeitraum grafisch darstellen. Zu¬ 
nächst betrachten wir die Ware, in diesem Fall diverse Geträn¬ 
kesorten. Nehmen wir an, daß alle Limonadensorten in einer 
Datei zusammengefaßt werden sollen, ebenso alle Biere, alle 
Mineralwasser und so weiter. 

In die Limonadendatei sollen Coca-Cola, Fanta, Lift, Sprite 
und Mirinda aufgenommen werden. 

Sie möchten nun jeden Monat einen Umsatzwert jeder der 
fünf betrachtenden Limonaden zuordnen, das heißt jedes 
Jahr werden jeder Limonade 12 Werte zugeordnet. 

Grafic-Calc 64 führt nun folgende Bezeichnungen ein: 
Jede Limonadensorte wird als DATENBLOCK bezeichnet, 
der Umsatzwert am Monatsende als DATENSATZ. In unse¬ 
rem Fall besteht also ein Jahr aus 12 Datensätzen (Monate) 
und jeder Datensatz aus 5 Datenblöcken (Limonaden). Als 
DATENELEMENT wird schließlich ein individueller Daten¬ 
block eines Datensatzes bezeichnet. Zum Beispiel der 
Umsatzwert der Fanta-Limonade im Juni. Die Zahl der Daten¬ 
elemente ergibt sich folglich als Produkt der Datenblöcke und 
Datensätze. 

Wenn also eine Limonadendatei 12 Datenblöcke und 24 
Datensätze enthält, bedeutet dies in unserem Fall nichts 
anderes, als daß die Datei 12 Sorten Limonade enthält und 24 
Monatswerte (2 Jahre) bislang eingegeben wurden. Ins¬ 
gesamt verfügt die Datei daher über 12 x 12 = 144 Daten¬ 
elemente. 

Das herausragende Merkmal bei dieser Art der Datenver¬ 
waltung besteht darin, daß Sie jederzeit frei auf ein bestimm¬ 
tes Datenelementzugreifen können. Eine Datei kann ständig 
um einen oder mehrere Datensätze erweitert werden (bis sie 
voll ist), so daß Sie zum Beispiel 10 Jahre lang Monatsum¬ 
satzwerte eingeben können. 

Pro Datensatz (hier: Monat) lassen sich sogenannte 
UNTERTITEL festlegen, mit dem Sie Ihre Grafik automatisch 



<CURSOR> links/rechts : 
<CLR> : 

<HOME> : 

<INST> : 

<DEL> : 

< RETURN > : 

<F3> : 
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GRAFIK 


beschriften können, hier würden sich zum Beispiel Abkür¬ 
zungen für die Monatsnamen anbieten. 

Die folgende Tabelle zeigt den Zusammenhang von ladba¬ 
ren Datenblöcken und -Sätzen. 


gefüllt und kann keine weiteren Datensätze mehr aufnehmen. 
Wenn Sie das nächste Mal versuchen, aus dem Hauptmenü 
in diesen Programmteil zu springen, wird mit der Fehlermel¬ 
dung »Datei ist voll« abgebrochen. 


Datenblöcke 

Datensätze 

Datenelemente 

1 

120 

120 

2 

90 

180 

3 

72 

216 

4 

58 

232 

5 

50 

250 

6 

42 

262 

7 

36 

262 

8 

32 

256 

9 

28 

252 

10 

26 

260 

11 

24 

264 

12 

22 

264 

13 

21 

273 

14 

20 

280 

15 

18 

270 

16 

17 

272 

17 

16 

272 

18 

15 

270 

19 

14 

266 

20 

14 

280 


Das Hauptmenü 


Daten ändern 

Wenn Sie bei der grafischen Darstellung offensichtliche 
Eingabefehler entdeckt haben, können Sie sie in diesem Pro¬ 
grammteil korrigieren. Nach der Eingabe des Dateinamens 
läßt sich zunächst der Datensatz festlegen, in dem der Fehler 
auftrat. Dazu wird in der unteren Bildschirmhälfte der erste 
Datenblock angezeigt. Mit den Tasten <CRSR>-hoch/-un- 
ten können Sie nun alle Datenblöcke anzeigen. Die Anwahl 
geschieht mit < RETURN >. Genauso ist anschließend der 
fehlerhafte Datensatz auszuwählen. Danach wird der alte, 
fehlerhafte Wert auf dem Bildschirm angezeigt und Ihnen wird 
die Gelegenheit gegeben, einen neuen Wert einzugeben. 
Danach wird der Fehler korrigiert. Haben Sie versehentlich 
ein falsches Datenelement festgelegt, können Sie den Pro¬ 
grammteil mit < F3 > verlassen. 

Daten laden 

In diesem Programmteil können Sie die Daten laden, die Sie 
später grafisch darstellen wollen. Nach der Eingabe des File- 
Namens wird im unteren Teil des Bildschirms in einem inver¬ 
sen Feld der erste Datenblock der Datei sowie die maximale 
wählbare Zahl (Anzahl der Datenblöcke der Datei) angezeigt. 
Es lassen sich nun folgende Funktionen anwählen: 

<F3> : Der Programmteil wird verlas¬ 

sen. 


Datei einrichten 

Bevor man Daten speichern kann, muß man eine Datei ein¬ 
richten, wobei Grafic-Calc 64 alle wichtigen Parameter wie 
Anzahl der Datenblöcke und -Sätze mitgeteilt werden müs¬ 
sen. Zunächst werden Sie nach der Anzahl der Datenblöcke 
gefragt, wobei eine Zahl zwischen eins und zwanzig festzule¬ 
gen ist. Anschließend berechnet Grafic-Calc 64 aus dem ver¬ 
fügbaren Speicherplatz die maximal verwaltbare Zahl der 
Datensätze und zeigt diese auf dem Bildschirm an. Reicht 
Ihnen diese Zahl nicht aus, legen Sie auf jeden Fall eine 
andere Diskette mit mehr Speicherkapazität ein, da eine Datei 
auf keinen Fall nachträglich erweitert werden kann. Dafür 
müssen Sie den Programmteil jedoch zunächst verlassen, da 
die Diskettenkapazität neu eingelesen werden muß. 
Anschließend können Sie den Namen für Ihre Datei festle¬ 
gen. Falls bereits ein File dieses Namen existiert, fragt Grafic- 
Calc 64, ob es ersetzt werden soll. Mit < CRSR > -rechts und 
-links können Sie einen anderen Namen wählen oder das alte 
File überschreiben. Der nächste Schritt besteht darin, den 
einzelnen Datenblöcken einen Namen zu geben. Von diesem 
Zeitpunkt an können Sie nicht zurückspringen, da sonst ein 
chaotisches Bitgestümmel auf der Diskette zurückbliebe. 

Wenn alle Operationen geglückt sind, wird in das Haupt¬ 
menü zurückgesprungen, sonst wird die entsprechende 
Fehlermeldung angezeigt. 

Daten eingeben 

In diesem Programmteil lassen sich Daten in beliebige 
Dateien eingeben, wobei eventuell im Speicher stehende 
Daten nicht verändert werden. Nach Eingabe des File- 
Namens können Sie pro Datenblock einen maximal zehnstel¬ 
ligen Wert eingeben. Pro Datensatz ist anschließend ein 
sogenannter Untertitel festzulegen, mit dem die Grafik auto¬ 
matisch beschriftet werden kann (siehe Grafikmodus). Hier¬ 
für bieten sich zum Beispiel Monatsnamen etc. an. Pro Unter¬ 
titel sind maximal vier Zeichen zulässig. Am Anfang müssen 
Sie mindestens zwei Datensätze eingeben, anschließend 
werden Sie gefragt, ob Sie einen weiteren Satz eingeben wol¬ 
len. Aus der Struktur der Datei ergibt sich, daß Sie immer 
komplette Datensätze eingeben müssen. Wird die Eingabe 
ohne ersichtlichen Grund abgebrochen, so ist die Datei 


<CRSR>-unten 


<CRSR>-hoch 


<RETURN> 


: Der nächstfolgende Daten¬ 
block wird angezeigt. Nach 
dem letzten Datenblock wird 
wiederum der erste ange¬ 
zeigt, und so weiter. Bereits 
angewählte Datenblöcke wer¬ 
den nicht mehr angezeigt. 

: Der vorhergehende Daten¬ 
block wird angezeigt. Nach 
dem ersten Datenblock wird 
wiederum der letzte ange¬ 
zeigt, und so weiter. Bereits 
angewählte Datenblöcke wer¬ 
den nicht mehr angezeigt. 

: Der angezeigte Datenblock 
wird angewählt. Die Anzahl der 
noch wählbaren Datenblöcke 
verringert sich um eins. Ein 
erneuter Druck der Taste 
bleibt nun ohne Wirkung, bis 
ein anderer Datenblock ange¬ 
zeigt wird. Ist die maximal 
wählbare Zahl überschritten, 
wird die Wahl beendet. 

: Die Wahl wird beendet, vor¬ 
ausgesetzt, es wurde bislang 
mindestens ein Datenblock 
angewählt. 

Nach der Anzahl der gewählten Datenblöcke richtet sich 
die Zahl der wählbaren Datensätze. Die Auswahl geschieht 
analog zur Wahl der Datenblöcke. Hierbei müssen Sie jedoch 
mindestens zwei Datensätze anwählen. Weil der jeweils an¬ 
gezeigte Datensatz direkt von der Diskette gelesen werden 
muß, kommt es durch die langsame Floppystation zu Verzö¬ 
gerungen, die unvermeidlich sind, da bei großen Dateien auf 
keinen Fall alle Datensätze eingelesen werden können. 

Nun werden alle festgelegten Datenelemente eingelesen 
und zum Hauptmenü zurückgesprungen. Bitte beachten Sie, 
daß eine Verzweigung in diesen Programmteil zur Löschung 
des gesamten Datenspeichers führt. 


<SHIFT/RETURN > 
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Sprung In den Grafikmodus 

Nachdem Sie Daten geladen haben, möchten Sie diese 
natürlich auch grafisch darstellen. Dazu wird der Grafikteil 
von Grafic-Calc 64 geladen und gestartet. Falls sich keine 
Daten im Speicher befinden, wird eine entsprechende Feh¬ 
lermeldung ausgegeben. 

Dienstprogramme 

Durch die Wahl dieses Programmpunktes gelangen Sie in 
ein Untermenü, in dem Sie verschiedene Diskettenoperatio¬ 
nen durchführen können. 

Directory anzelgen 

Eine nützliche Funktion, wenn Sie einmal den Namen einer 
Datei vergessen haben. Bitte beachten Sie, daß alle von 
Grafic-Calc 64 erzeugten Dateien den Vorsatz »F-« (Hauptda¬ 
tei) beziehungsweise »S-« (Hilfsdatei) tragen. 

Diskette formatieren 

Dieser Programmteil versetzt Sie in die Lage, eine Daten¬ 
diskette zu formatieren, falls Sie dies vor dem Programmstart 
vergessen haben. Dazu müssen Sie den Diskettennamen 
und den Identifikationscode eingeben. 

Datei umbenennen 

Hier können Sie den Namen von Dateien ändern, die durch 
Grafic-Calc 64 erzeugt wurden. Nach der Eingabe des alten 
und des neuen Namens werden Haupt- und Hilfsdatei umbe¬ 
nannt. 

Grafik umbenennen 

Wie »Datei umbenennen«, nur wird der Name der Grafik 
geändert. 

Datei löschen 

Eine mit Grafic-Calc 64 erzeugte Datei wird gelöscht. 
Dabei wird der File-Typ der Haupt- und Hilfsdatei jeweils auf 
»DEL« gesetzt. Solange die Diskette nicht beschrieben wird, 
können Sie versehentlich gelöschte Dateien mit geeigneten 
Hilfsprogrammen retten. Bitte beachten Sie jedoch, daß 
neben der Hauptdatei unbedingt auch die Hilfsdatei restau¬ 
riert werden muß, da Grafic-Calc 64 ohne sie nicht auf die 
Daten zugreifen kann. 

Grafik löschen 

Wie »Datei löschen«, nur wird eine Grafik gelöscht. 

Zurück zum Hauptmenü 

Der Programmteil »Dienstprogramme« wird verlassen und 
zum Hauptmenü zurückgesprungen. 

Programm beenden 

Nach einer Sicherheitsabfrage wird das Programm been¬ 
det, indem ein Reset ausgelöst wird. 

Grafik-Hnuptmenü 


Beschriftung wählen 

Mit < Fl > können Sie wählen, ob die zu den entsprechen¬ 
den Datensätzen gehörenden Untertitel automatisch ausge¬ 
geben werden sollen. Nach jedem Tastendruck wird die 
Beschriftung wechselweise ein- beziehungsweise ausge¬ 
schaltet. 

Besonders bei Tortengrafiken kann es bei automatischer 
Beschriftung zu Komplikationen kommen, wenn ein Daten¬ 
element (und damit das Tortenstück) deutlich kleiner ist als 
die übrigen, da sich eventuell die einzelnen Beschriftungen 
überlagern können. In einem solchen Fall ist es günstiger, die 
Beschriftung per Hand nachträglich anzufertigen. 
Grafikmodus wählen 

Mit < F3 > können Sie zwischen dem eingebauten Modus 
sowie einem individuellen wählen. Im Grafic-Calc-Modus 
werden die Grafiken automatisch »mit Leben erfüllt«, indem 
zum Beispiel bei der Tortengrafik 3-D Version I jedes zweite 
Tortenstück ausgefüllt wird. Da diese eingebauten Vorgaben 
jedoch nicht jedem Geschmack entsprechen, bietet Grafic- 
Calc 64 einen Individualmodus an, in dem jeweils nur die Gra- 



Bild 1. Balkengrafik, die einfachste Methode, ein bis drei 
Datenblöcke darzustellen 





i=Sprite D=Lift ■=Hirinda 

v - 

Bild 2. Diese Variation der Balkengrafik bereitet bis zu drei 
Datenblöcke und bis zu 24 Datensätze auf 



Sprite 


inda 


nr JOT 

Grafikmodus : Grafik - Calc 


Bild 3. Durch die dreidimensionale Säulengrafik bekommt 
man einen sehr guten Gesamtüberblick 


fikgerüste gezeichnet werden, die Sie anschließend nach 
eigenen Vorstellungen weiterverarbeiten können. Die Unter¬ 
schiede zwischen beiden Modi entnehmen Sie bitte im ein¬ 
zelnen den Beschreibungen der Grafiken. 

Grafik auswählen 
Balkengrafik Version I 

Die Balkengrafik (Bild 1) eignet sich zur Darstellung von 1 
bis 3 Datenblöcken. Die Anzahl der maximal zulässigen 
Datensätze ergibt sich wie folgt: 

1 Datenblock - 2 bis 24 Datensätze 

2 Datenblöcke - 2 bis 16 Datensätze 

3 Datenblöcke - 2 bis 8 Datensätze 
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Bild 4. Mit der dreidimensionalen Tortengrafik lassen sich 
entweder ein Datenblock und bis zu acht Datensätze oder ein 
Datensatz und bis zu acht Datenblöcke darstellen 


/fr/tity/w/Cr# förjr, SS 

12:32 * 


8:8 



12.02 
10.28 V. 


jrafiknodus 


Bild 5. Diese Tortengrafik ist von der Funktion her mit derjeni¬ 
gen aus Bild 4 identisch. Unterschiedlich ist die Art, wie die 
Daten ausgegeben werden 


Grafikmodus: 

Säulen¬ 

Grafic-Calc 

Individuell 

vorderseite: 

ausgefülltes Rechteck 

Rechteck 

Säulenseite: 

Säulen¬ 

Rechteck 

Rechteck 

oberseite: 

Rechteck 

Rechteck 


Tortengrafik 3-D Version I 

Die Tortengrafik (Bild 4) läßt sich in zwei Modi verwenden: 
Zum einen können Sie bei einem Datenblock 2 bis 8 Daten¬ 
sätze darstellen. Damit ist es möglich, den Anteil von einem 
Datenblock eines bestimmten Datensatzes mit der Summe 
der angezeigten Datensätze zu vergleichen. Es ist jedoch 
ebenso möglich, 2 bis 8 Datenblöcke bei einem Datensatz 
anzuzeigen, so daß Sie den Anteil der einzelnen Datenblöcke 
an einem Datensatz ablesen können. Beide Verfahren wer¬ 
den in der Praxis oft genutzt, das zweite unter anderem bei 
der Wahlauswertung, wobei der angezeigte Datensatz die 
Gesamtzahl der Sitze im Bundestag darstellt und die Daten¬ 
blöcke durch die Parteien repräsentiert werden. 

Je nachdem, wieviele Datenblöcke Sie wählen (einen oder 
mehrere), wird automatisch der richtige Modus von Grafic- 
Calc 64 ausgewählt. Im zweiten Modus werden folgerichtig 
nicht die Untertitel der Datensätze, sondern die Bezeichnun¬ 
gen der Datenblöcke ausgegeben. 

Ist ein Datenelement sehr klein im Vergleich zur Summe der 
Datenelemente, ist es angebracht, den Individualmodus an¬ 
zuwählen, da das Tortenstück eventuell zu schmal wird, um 
korrekt gefüllt zu werden. 


Grafikmodus: 

Torten¬ 

oberfläche: 

Tortenrand: 


Grafik-Calc 

1 .,3.,5.,7. Stück leer 
2.,4.,6.,8. Stück gefüllt 
1 .,3.,5.,7. Stück leer 
2.,4.,6.,8. Stück gefüllt 


Individuell 

leer 

leer 

leer 

leer 


Tortengrafik 3-D Version II 

Bei dieser Darstellungsform (Bild 5) entspricht die Funktion 
und die Anzahl der darstellbaren Datenelemente denen der 
Version I. Unterschiedlich ist jedoch die Art der Darstellung. 


Diese Version der Balkengrafik eignet sich besonders zum 
Vergleich von Datenblöcken über mehrere Datensätze, da 
alle Datenelemente nebeneinander gezeichnet werden. 
Reicht einem die zulässige Anzahl der Datensätze nicht aus, 
sollte man zur Kurvengrafik ausweichen. 


Grafikmodus: 

1. Datenblock: 

2. Datenblock: 

3. Datenblock: 


Grafic-Calc 

ausgefülltes Rechteck 
Rechteck mit Querlinien 
Rechteck 


Individuell 

Rechteck 

Rechteck 

Rechteck 


Balkengrafik Version II 

Diese Version (Bild 2) vermag 1 bis 3 Datenblöcke und 2 
bis 24 Datensätze darzustellen. Im Gegensatz zur ersten eig¬ 
net sich diese Version zum Vergleich mehrerer Datenblöcke 
innerhalb eines Datensatzes oder der Summe aller Daten¬ 
blöcke über mehrere Datensätze, da innerhalb eines Daten¬ 
satzes die Datenblöcke übereinander gezeichnet werden. 

Das Aussehen der einzelnen Datenblöcke entspricht 
sowohl im Grafic-Calc- als auch im Individualmodus denen 
der Balkengrafik Version I. 


Säulengrafik 

Die Säulengrafik (Bild 3) kann 1 bis 3 Datenblöcke und 2 
bis 16 Datensätze darstellen. Durch die dritte Dimension 
bekommt man einen sehr guten Gesamtüberblick über alle 
angezeigten Datenelemente. Daher ist diese Grafik universell 
einsetzbar. Durch die perspektivische Verzerrung kann das 
Ablesen einzelner Datenelemente jedoch Schwierigkeiten 
bereiten. 


Grafikmodus: Grafic-Calc Individuell 

Tortengrafik 2-D 

Die zweidimensionale Darstellung (Bild 6) entspricht in 
Funktion und Anzahl der darstellbaren Datenelemente der 
dreidimensionalen. Es handelt sich jedoch hierbei um den 
Typ der sogenannten Explosionsgrafik, das heißt, die Torte 
wird nicht mehr als Ganzes gezeichnet, sondern jedes Tor¬ 
tenstück für sich getrennt, als ob sich im Inneren der Torte, 
was durch den Namen symbolisiert wird, eine Explosion 
ereignet hätte. Auch bei dieser Grafikart sollte man bei sehr 
kleinen Datenelementen den Individualmodus anwählen. 

Grafikmodus: Grafic-Calc Individuell 

Torten¬ 
oberfläche: 1. bis 8. Stück gefüllt leer 

Kurvengrafik 

Mit der Kurvengrafik (Bild 7) lassen sich 1 bis 3 Daten¬ 
blöcke und 2 bis 24 Datensätze darstellen. Diese Form der 
Grafik entspricht in der Grundform der Balkengrafik I und 
kommt immer dann zum Einsatz, wenn viele Datenelemente 
dargestellt werden müssen. Daneben kann man aber auch 
noch die zwei folgenden Variationen erzeugen. 

Grafikmodus: Grafic-Calc Individuell 

Punktraster: Ja Nein 

Linie zur 

Bezugsachse: Nein Ja 
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Flächengrafik 

Diese vielverbreitete Grafikform (Bild 8) erhält man aus 
einer im Individualmodus erstellten Kurvengrafik, so daß die 
darstellbaren Datenelemente denen der Kurvengrafik ent¬ 
spricht. Die Flächen unter den Kurven werden anschließend 
mit verschiedenen Mustern ausgefüllt, so daß man einen 
guten Überblick über den Gesamtverlauf der einzelnen 
Datenblöcke über die dargestellten Datensätze erhält. 
Verglelchsgraflk 

Um zwei Datenblöcke direkt miteinander vergleichen zu 
können, verwendet man in der Praxis oft eine spezielle Form 
der Kurvengrafik (Bild 9), da diese in der ursprünglichen Form 
genauso wenig dazu geeignet ist wie die Balken- und Säulen¬ 
grafik. Nachdem man (meist zwei) Datenblöcke im Grafic- 
Calc-Modus dargestellt hat, füllt man die Differenzfläche zwi¬ 
schen den Kurven dann auf, wenn zum Beispiel die Werte von 
Kurve »A« größer sind als diejenigen von Kurve »B*, so daß 
man genau ablesen kann, wann ein bestimmter Datenblock 
größere Werte aufweist als der oder die anderen Daten¬ 


blöcke. 

Datenblöcke wählen 

Wenn sich mehr als ein Datenblock im Speicher befindet, 
muß eine Auswahl getroffen werden, welcher Datensatz dar¬ 
gestellt werden soll. Dazu wird auf dem Bildschirm die von der 
ausgewählten Grafikart abhängige maximale Anzahl der dar¬ 
stellbaren Datenblöcke angezeigt. In der unteren Bildschirm¬ 
hälfte erscheint in einem inversen Feld der erste Datenblock. 
Sie können nun folgende Funktionen anwählen: 


<F3> 

<CRSR>-unten 


<CRSR>-hoch 


<RETURN> 


<SHIFT/RETURN > 


Sprung zum Hauptmenü. 

Der nächstfolgende Daten¬ 
block wird angezeigt. Nach 
dem letzten Datenblock wird 
wiederum der erste ange¬ 
zeigt, und so weiter. Bereits 
angewählte Datenblöcke wer¬ 
den nicht mehr angezeigt. 

Der vorhergehende Daten¬ 
block wird angezeigt. Nach 
dem ersten Datenblock wird 
wiederum der letzte ange¬ 
zeigt, und so weiter. Bereits 
angewählte Datenblöcke wer¬ 
den nicht mehr angezeigt. 

Der angezeigte Datenblock 
wird angewählt. Die Anzahl der 
noch wählbaren Datenblöcke 
verringert sich um eins. Ein 
erneuter Druck der Taste 
bleibt nun ohne Wirkung, bis 
ein anderer Datenblock ange¬ 
zeigt wird. Ist die maximal 
wählbare Zahl überschritten, 
wird die Wahl beendet. 

Die Wahl wird beendet, vor¬ 
ausgesetzt, es wurde bislang 
mindestens ein Datenblock 
angewählt. 


Datensätze wählen 

Je nach Grafikart und Zahl der gewählten Datenblöcke 
kann man maximal eine bestimmte Anzahl von Datensätzen 
darstellen, die auf dem Bildschirm angezeigt wird, ausge¬ 
nommen es befinden sich nur zwei Datensätze im Speicher. 
Da die Bezeichnung eines Datensatzes (Untertitel) nicht 
immer eindeutig ist (zum Beispiel wiederholen sich Monats¬ 
namen jedes Jahr), wird zusätzlich zum Namen auch die 
Nummer des jeweiligen Datensatzes angezeigt. Um den Pro¬ 
grammteil mit <SHIFT/RETURN) verlassen zu können, muß 
man vorher mindestens zwei Datensätze angewählt haben. 
< F3 > bewirkt einen Rücksprung zum Programmteil »Daten- 


Tortengrafik 2-dinension 



Bild 6. Mit bis zu 36 Füllmustern läßt sich die zweidimensio¬ 
nale Tortengrafik optisch sehr gut aufbereiten 



Bild 7. Die Kurvengrafik ist immer dann angebracht, wenn 
viele Datenelemente miteinander verglichen werden sollen 



Bild 8. Werden die Flächen der Kurvengrafik mit Mustern 
gefüllt, bekommt man einen guten Überblick über den 
Gesamtverlauf der einzelnen Kurven 


blöcke wählen«, wenn nur ein Datenblock im Speicher ist zum 
Hauptmenü. 

Bezugszahl wählen 

Wenn Sie im Hauptmenü die Balkengrafik Version I ange¬ 
wählt haben, können Sie nun eine Zahl eingeben, die als neue 
Bezugszahl fungiert. Im Normalfall werden alle Balken von der 
Nullinie nach oben gezeichnet. Wenn man jedoch zum Bei¬ 
spiel alle Werte mit einem Wert ungleich null vergleichen will, 
kann man ihn in diesem Programmteil festlegen. Die Balken 
werden dann von dieser Zahl aus je nach Größenverhältnis 
nach oben beziehungsweise nach unten gezeichnet. Die 
Bezugszahl kann zwischen Null und dem Maximalwert der 



14 


SONDERHEFT 11 



























































































































C 64 


GRAFIK 



Bild 9. Bel der Differenzgrafik handelt es sich um eine nor¬ 
male Kurvengrafik. Allerdings kennzeichnen die gefüllten Flä¬ 
chen Bereiche, durch die festgestellt werden kann, an wel¬ 
chen Stellen ein bestimmter Datenblock größer ist als ein 
anderer. 


<F8> 

<CBM+Z> 


<CBM+I> 


<CBM+S> 

<CBM+E> 


: Das Programm wird beendet. 

: Es wird ein Rahmen um die 
Grafik gezogen. Bei erneutem 
Druck wird dieser wieder 
gelöscht. 

: Es wird auf Inversschrift um¬ 
geschaltet. Während im Setz¬ 
modus nur Punkte gesetzt 
werden, wird in diesem Modus 
jeder Punkt invertiert. Sie kön¬ 
nen so zum Beispiel Text in 
ausgefüllte Flächen schrei¬ 
ben. 

: Es wird wieder zum Setzmo¬ 
dus geschaltet. Der Text bleibt 
in diesem Modus auf ausge¬ 
füllten Flächen unsichtbar. 

: Die Cursorbewegung wird auf 
Einzelpunktmodus umgeschal¬ 
tet. Wenn Sie nun die Cursor¬ 


gewählten Datenelemente liegen, der auf dem Bildschirm 
angezeigt wird. 

Der Edit-Modus 


Nachdem die Grafik für Sie unsichtbar gezeichnet wurde, 
wird in den Edit-Modus geschaltet. Sie haben nun alle 
erdenklichen Möglichkeiten, die Grafik weiterzuverarbeiten. 
Auf dem Bildschirm erscheint in der linken oberen Ecke ein 
Cursor, den Sie wie vom Textschirm gewohnt mit den Cursor¬ 
tasten in 8-Punkt-Schritten (1 Zeichen) über den gesamten 
Grafikschirm bewegen können. Wenn der Rand erreicht wird, 
erscheint der Cursor wieder auf der gegenüberliegenden 
Seite. Sie sind nun in der Lage, wie auf einem Textschirm zu 
schreiben, wobei die Tasten <RETURN>, <INST> und 
< DEL> jedoch ohne Wirkung bleiben. Sie haben zwei Gra¬ 
fikseiten zur Verfügung, wobei sich alle Zeichenbefehle auf 
die gerade sichtbare Grafikseite beziehen. Grafic-Calc 64 
bietet Ihnen jedoch noch viele Sonderfunktionen, die nun 
beschrieben werden: 


<CLR> 


<HOME> 

<F1 > 
<F3> 


<F5> 


<F7> 

<F2> 

<F4> 

<F6> 


Der Grafikschirm wird ge¬ 
löscht, und der Cursor springt 
in die linke, obere Bildschirm¬ 
ecke. 

Der Cursor springt in die linke 
obere Bildschirmecke. 

Sprung in den Menümodus. 
Wechsel der Grafikseiten. Am 
Anfang wird die nun sichtbar 
gewordene Seite nur sinnlose 
Zeichen enthalten, so daß 
man sie am besten mit 
<CLR> löscht. 

Sprung zurück zum Haupt¬ 
menü. Die zuletzt sichtbare 
Grafikseite wird für die Erstel¬ 
lung einer neuen Grafik be¬ 
nutzt. 

Sprung zurück zum Datenmo¬ 
dus. 

Die Hintergrundfarbe wird 
gewechselt. 

Die Zeichenfarbe wird ge¬ 
wechselt. 

Die Rahmenfarbe wird ge¬ 
wechselt. 


<CBM+N> 

<CBM+L> 


<CBM+K> 
<CBM+G> 
<RVS ON> 

< RVS Off > 


tasten betätigen, wird der Cur¬ 
sor nur noch um jeweils einen 
Punkt weiterbewegt. 

Es wird auf Normalbewegung 
(8 Punkte in alle Richtungen) 
des Cursors umgeschaltet. 
Der Löschmodus wird akti¬ 
viert. Hierbei wird die Fläche 
unter dem Cursor zunächst 
gelöscht, bevor das Zeichen 
gesetzt wird. Ein erneuter 
Druck dieser Taste bewirkt die 
Aufhebung des Löschmodus, 
das heißt ein Zeichen wird 
gesetzt, ohne vorher die Flä¬ 
che unter dem Cursor zu 
löschen. 

Der Kleinschriftmodus wird 
eingeschaltet. 

Der Großschrift-/Grafikzeichen- 
modus wird eingeschaltet. 

Die Reversschrift wird einge¬ 
schaltet. Reversschrift ist 
auch im Inversschriftmodus 
möglich. 

Die Reversschrift wird ausge¬ 
schaltet. 


Der Menümodus 


Nach dem Druck der Taste < Fl > gelangen Sie in den Menü¬ 
modus. In der untersten Zeile des Bildschirms erscheint eine 
Zeile mit vier Menüpunkten, die Sie mit den Tasten 
<CRSR>-rechts/links anwählen können. Mit <F3> gelan¬ 
gen Sie zurück in den Edit-Modus. Die Menüzeile verschwin¬ 
det und Sie sehen Ihre Grafik wieder komplett vor sich. 

Menüpunkt 1: BLOCKoperationen 

Der Menüpunkt »Block« dient dazu, die Grafik ganz oder 
ausschnittsweise auf bestimmte Arten zu verarbeiten. Sid 
gelangen in ein weiteres Untermenü, in dem die möglichen 
Operationen aufgeführt sind. 

Block verSCHIEBen 

Diese Operation dient dazu, Grafikausschnitte zu verschie¬ 
ben und dabei eventuell stufenlos in X- und Y- Richtung zu 
vergrößern beziehungsweise zu verkleinern. Die Ausschnitte 
können wie folgt beliebig gewählt werden, müssen jedoch 




SONDERHEFT 11 


15 
































GRAFIK 


C 64 


immer die Form eines Rechtecks haben. In der Bildmitte 
erscheint ein Fadenkreuz, das Sie mit den Cursortasten auf 
dem Bildschirm verschieben können. Wie im Edit-Modus 
kann die Schrittweite mit den Tasten <CBM+E> und 
<CBM + N> gewählt werden. Duch die < RETURN >-Taste 
wird der Mittelpunkt des Fadenkreuzes zum ersten Eckpunkt 
des auszuwählenden Rechtecks. Daraufhin verschwindet 
das Fadenkreuz. Durch die Cursortasten können Sie nun die 
zweite Ecke festlegen, wobei immer der aktuelle Grafikaus¬ 
schnitt angezeigt wird. Ist der gewünschte Ausschnitt defi¬ 
niert, wird er durch erneuten Druck der < RETURN > -Taste 
übernommen. Genau auf die gleiche Weise können Sie dann 
das Zielgebiet markieren. Weicht dessen Größe von der des 
Ursprungsgebietes ab, so wird der Grafikausschnitt durch 
stufenlose Vergrößerung beziehungsweise Verkleinerung 
dem Zielgebiet genau angepaßt. Dies ist eine bislang einma¬ 
lige Funktion, die außer Grafic-Calc 64 bisher kein anderes 
Grafikprogramm bietet. 

Bei der Markierung der Ausschnitte ist zu beachten, daß 
ein Gebiet nur dann akzeptiert wird, wenn sich die X- und Y- 
Koordinaten der einen Ecke von denen der anderen unter¬ 
scheiden. Eine zu einer Linie entartetes Rechteck kann also 
nicht verarbeitet werden. 

Block KOPIERen 

Wie »Block verSCHIEBen«, Quellgebiet wird jedoch ge¬ 
löscht. 

Block INVERtleren 

Durch diese Funktionen haben Sie die Möglichkeit, Grafik¬ 
ausschnitte zu invertieren. Das Gebiet wird wie beschrieben 
ausgewählt. 

Block LÖSCHen 

Wie »Block INVERtieren«, Gebiet wird jedoch gelöscht 
statt invertiert. 

Block TRANSferieren 

Durch diese Funktion können Sie Teile der sichtbaren Gra¬ 
fikseite in die unsichtbare hineinkopieren. Die Operation ent¬ 
spricht in ihrer Durchführung dem Punkt »Block KOPIERen« 
und »Block INVERtieren«, die Auflösung in X-Richtung 
beträgt jedoch minimal 8 Punkte, so daß bei der Wahl des Ein¬ 
zelpunktmodus <CBM+E> nur eine Wirkung in Y-Richtung 
erzielt wird. 

Alle Unterpunkte kann man mit der Taste <F3> vorzeitig 
verlassen. Es wird in das Untermenü »Blockoperationen« 
zurückgesprungen. 

Menüpunkt 2: TEXToperatlonen 
In diesem Menüpunkt können Sie das Aussehen der 
Schriftzeichen im Edit-Modus beliebig verändern. Nach einer 
Veränderung nimmt der Cursor im Edit-Modus immer genau 
die Form und Größe der neudefinierten Zeichen an, so daß 
Sie immer genau sehen können, wo Ihr Schriftzeichen pla¬ 
ziert wird. 

TextGRÖSSE verändern 

Nach der Wahl dieses Punktes erscheint in der Mitte der 
Grafik ein Fenster, in dem das Zeichen »F« in der zuletzt 
gewählten Art dargestellt wird (Bild 10). Durch die Cursor¬ 
tasten kann man die Größe in X-Richtung von 6 bis 24 und in 
Y-Richtung von 4 bis 24 Punkte verändern. Wenn das Zei¬ 
chen die gewünschte Größe angenommen hat, läßt sich 
diese durch die < RETURN >-Taste übernehmen. 
TextROTATION festlegen 

Bei Grafic-Calc 64 ist es möglich, nicht nur horizontal zu 
schreiben, sondern die Schrift auch um 90, 180 oder 270 
Grad zu kippen. Durch < CRSR > -links/-rechts kann man die 
gewünschte Zeichenlage im Fenster auswählen. Mit der 
< RETURN >-Taste wird die Richtung übernommen. Im Edit- 
Modus paßt sich die Belegung der Cursortasten automatisch 
der Schriftrichtung an, das heißt, es wird praktisch der ganze 
Bildschirm gekippt, wodurch besonders das Schreiben län¬ 
gerer Passagen vereinfacht wird. 




'292 


'219 

jjjjjl ^ fflwj 

146 

'73 

L 0 

ROTATION OERZERRUNG 


Bild 10. Mit Hilfe der Cursortasten läßt sich die Größe der 
Zeichen In X- und Y-Rlchtung variieren 



Bild 11. 27 der 36 möglichen Füllmuster sorgen für eine über¬ 
sichtliche Darstellung Ihrer Geschäftsgrafiken 



Bild 12. Mit »Grafic-Calc 64« lassen sich komplette Grafiken 
oder Grafikausschnitte verkleinern oder vergrößern und an 
eine beliebige Stelle des ersten oder zweiten Bildschirms 
kopieren 


TextVERZERRUNG wählen 

Zu guter Letzt läßt sich auch noch festlegen, ob Sie nor¬ 
male oder links- beziehungsweise rechtskursive Schrift wün¬ 
schen. Die Auswahl geschieht wie bei »ROTATION«. 

Alle Unterpunkte können mit <F3> vorzeitig verlassen 
werden. Es wird dann in das Untermenü »Textoperationen« 
zurückgesprungen. 

Menüpunkt 3: EIN-/AUSGABEoperationen 
Grafik laden 

In diesem Punkt lassen sich auf Diskette gespeicherte Gra¬ 
fiken in die sichtbare Grafikseite laden. Geben Sie dazu bitte 
in der untersten Zeile den Grafiknamen ein und bestätigen 
Sie mit < RETURN >. 

Grafik speichern 

Damit können Sie die sichtbare Grafikseite auf Diskette 
speichern. Grafic-Calc 64 zeichnet die Grafik-Bytes unver- 
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ändert auf, so daß die Grafiken praktisch mit jedem anderen 
Programm, zum Beispiel Hi-Eddi, geladen werden können. 
Besteht auf Diskette bereits ein File des eingegebenen 
Namens, so wird dies angezeigt. Durch die Tasten 
<CRSR>-links/-rechts können Sie wählen, ob das alte File 
überschrieben werden soll oder ob Sie einen neuen File- 
Namen wählen möchten. 

Druckerroutine laden 

Um die erstellten Grafiken auf einem Drucker ausgeben zu 
können, ist das Laden einer Hardcopy-Routine nach $C000 
erforderlich. Damit lassen sich auch »exotische« Drucker 
anpassen. Da ein ganzes Kilobyte frei zur Verfügung steht 
(Bereich bis $C3FF), kann man auch komfortable Routinen, 
zum Beispiel für vergrößerten Druck, verwenden. Bitte 
beachten Sie, daß die Druckroutine den Vorsatz »D-« vor dem 
eigentlichen Namen haben muß, um geladen werden zu kön¬ 
nen. Das Programm wird automatisch an die richtige Stelle 
geladen. Bitte achten Sie jedoch darauf, daß es auch für den 
Adreßbereich ab $C000 angepaßt wurde, da sonst even¬ 
tuelle Sprünge falsch ausgeführt werden und Grafic-Calc 64 
abstürzt. In diesem Fall wäre die Grafik und alle Daten im Spei¬ 
cher verloren. 

Hardcopy drucken 

Es wird in die vorher geladene Druckroutine verzweigt. Ist 
keine eingeladen worden, wird der Befehl ignoriert. Bitte 
beachten Sie, daß die Prüfung auf einen nichteingeschalte¬ 
ten Drucker von der Hardcopy-Routine erfolgen muß. Grafic- 
Calc 64 kann diese Aufgabe nicht erfüllen, da Geräte- und 
Sekundäradressen nur der Druckroutine bekannt sind 
(Dadurch ist es ja erst möglich, jeden Drucker zu verwen¬ 
den!). 

Directory anzeigen 

Eine nützliche Funktion, wenn man den Namen von Grafi¬ 
ken oder Druckroutinen vergessen hat. Man erkennt Grafiken 
an dem Vorsatz »G-«, während die Hardcopy-Routinen den 
Vorsatz »D-« aufweisen. 

Durch die Taste < F3 > können Sie bei der Namenswahl in 
das Untermenü »Ein-Ausgabe« zurückspringen. 

Menüpunkt 4: Zeichenoperationen 

Um Ihre Grafik weiter zu verfeinern, können Sie im Zeichen¬ 
modus Punkte, Linien, Rechtecke und andere Figuren zeich¬ 
nen und ausfüllen. Besonders im Grafikmodus »Individuell« 
kann man wahre Meistergrafiken erzeugen. 

SETZmodus 

Das Zeichnen auf dem Bildschirm ist den Blockoperationen 
ähnlich. In der Bildschirmmitte erscheint ein Fadenkreuz, mit 


dem Sie den Startpunkt markieren können, wie es bei »Block 
verSCHIEBen« beschrieben wurde. Durch Betätigung der 
Cursortasten können Sie anschließend den Zielpunkt mar¬ 
kieren. Mit < RETURN > wird zwischen Start- und Zielpunkt 
eine Linie gezogen. Ist der Zielpunkt gleich dem Startpunkt, 
so entartet die Linie zum Punkt. Der Zielpunkt der Linie ist 
gleichzeitig Startpunkt für eine neue Linie. Somit können Sie 
weitere Linien zeichnen, so daß sich praktisch alle Figuren 
wie Rechtecke, Rauten, Dreiecke etc. erstellen lassen. Mit 

< F3 > wird der Setzmodus verlassen und in das Untermenü 
»Zeichenoperationen« zurückgekehrt. 

LÖSCHmodus 

Funktion wie Setzmodus, nur werden hierbei Linien, 
Punkte und Figuren gelöscht. 

INVERtiermodus 

Funktion wie Setz- und Löschmodus, nur werden alle 
Punkte invertiert. 

Flächen ausFÜLLen 

Dieser Menüpunkt versetzt Sie in die Lage, beliebige Flä¬ 
chen mit einem der 36 verfügbaren Muster auszufüllen. Dazu 
erscheint in der Bildschirmmitte ein Fadenkreuz, das Sie mit 
dem Cursortasten in die auszufüllende Fläche bewegen kön¬ 
nen. Durch einen Druck auf die < RETURN >-Taste wird die 
Fläche gefüllt. Bitte achten Sie auf eine durchgehende Be¬ 
grenzung der Fläche, da sonst eventuell der ganze Bild¬ 
schirm gefüllt wird. Anschließend erscheint wieder das 
Fadenkreuz, und Sie können die nächste Fläche bearbeiten. 
Mit < F3 > wird in das aufrufende Menü zurückgesprungen. 
MUSTER wählen 

Grafic-Calc 64 stellt Ihnen nicht weniger als 36 Muster zur 
Verfügung (Bild 11), mit denen Sie Flächen ausfüllen können. 
Dazu erscheint in einem Fenster in der Bildschirmmitte das 
letzte angewählte Muster. Durch die <CRSR>-hoch/ 
-unter .önnen Sie wie in einem Musterkatalog »blättern«. 
Erscheint das gewünschte Muster, läßt es sich mit 

< RETURN > übernehmen. Die <F3>-Taste führt zum 
Abbruch der Musterwahl. 

Erzeugen von mehreren Grafiken auf einer Seite 

Mit Grafic-Calc 64 ist es natürlich möglich, mehrere Grafi¬ 
ken auf einer Seite zu erzeugen. Dazu ist folgendes Vorge¬ 
hen notwendig: Nachdem eine Grafik erstellt wurde, können 
Sie diese mit der Blockoperation »SCHIEB« an die Stelle des 
Grafikschirms verschieben (und verkleinern), an der diese 
plaziert werden soll. Anschließend überführen Sie diesen 
Ausschnitt mit dem »TRANS«-Befehl auf die unsichtbare Gra¬ 
fikseite. Danach erstellen Sie die weiteren Grafiken, die Sie 
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ebenfalls auf dieser Seite darstellen wollen. Diese verschie¬ 
ben und transferieren Sie auf die gleiche Weise, wie es eben 
beschrieben wurde. Wenn Sie dann die Grafikseiten wech¬ 
seln, sehen Sie die zuletzt unsichtbare Grafikseite mit allen 
Grafiken vor sich (Bild 12). 

Wie schon erwähnt, kann von Grafic-Calc aus jede Drucker¬ 
routine nachgeladen werden, die folgende Bedingungen 
erfüllt: 

1. Die Routine muß im Bereich von $C000 bis maximal 
$C3FF liegen. 

2. Aufruf nur mit SYS 49152 (ohne Parameter) 

3. Die Druckerroutine muß die HiRes-Grafiken im Bereich von 
$A000 bis $BFFF oder $E000 bis SFFFF bearbeiten kön¬ 
nen. 

4. Der Druckertreiber muß durch den Vorsatz »D-« als 
Druckertreiber für Grafic-Calc kenntlich gemacht werden. 
Listing 14 ist ein entsprechender Treiber für Epson und kom¬ 


patible Drucker, die über ein Interface mit dem C 64 verbun¬ 
den sind, das bei Sekundäradresse »0« alle Daten ohne 
Umcodierung zum Drucker weiterleitet (Linearkanal oder 
Direktmodus). Besitzen Sie ein Interface, das den Linearkanal 
unter einer anderen Sekundäradresse anspricht, ist das Pro¬ 
gramm mit LOAD "D-EPSON",8,1 zu laden. Mit POKE 
49165, Sekundäradresse läßt sich die Routine Ihren Erfor¬ 
dernissen anpassen. Speichern können Sie den Druckertrei¬ 
ber mit folgendem Einzeiler: 

1 SYS (57812)"D-name",8:POKE 193,0:POKE 
194,192:POKE 174,193:POKE 175,192:SYS 62957 
Natürlich lassen sich auch andere universelle Druckerrou¬ 
tinen wie zum Beispiel »Superprint« (Ausgabe 5/86) oder 
»Hardmaker« (Ausgabe 4/86 und 9/86) einsetzen. Der Nach¬ 
teil ist nur der, daß das Programm Grafic-Calc zum Drucken 
verlassen werden muß. 

(Frank Riemenschneider/ah) 
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Llsting 2. »P/Graflc-Calc/D« 
(gepacktes Programm) - 
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B5 

fe 

a9 

04 

BS 

fd 

a9 

ff 

039c 

8 

eS 

Bb 

fb 

a2 

01 

20 

c9 

ff 

af 

03a4 

8 

a9 

4d 

20 

d2 

ff 

a9 

2d 

20 

98 

03a c 

8 

d2 

ff 

a9 

57 

20 

d2 

ff 

aS 

b/ 

03h4 

3 

fc 

20 

d2 

ff 

a5 

fd 

20 

d2 

eb 

03bc 

8 

ff 

a9 

22 

20 

d2 

ff 

a0 

00 

CC 

03c4 

3 

bl 

f a 

20 

d2 

ff 

CB 

C0 

22 

e2 

03cc 

3 

d0 

f 6 

20 

CC 

ff 

a5 

fa 

18 

02 

03d4 

8 

69 

22 

85 

fa 

ab 

fb 

69 

00 

ef 

03dc 

8 

85 

fb 

aS 

fc 

18 

69 

22 

B5 

cB 

03e4 

8 

fc 

a5 

fd 

69 

00 

B5 

fd 

e6 

51 

03ec 

8 

fe 

a5 

fe 

c9 

08 

dH 

ac 

a9 

c3 

03f 4 

8 

01 

4c 

c3 

ff 

17 

c4 

00 

00 

a4 


N. 
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erforderlichen Maschinenroutinen 


Name 
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c417 c600 

c417 

8 

20 

fd 

ae 

20 

d4 

el 

a9 

00 

e8 

c41f 

: 

a6 

2b 

a4 

2c 

20 

d5 

ff 

06 

c7 

c427 

8 

2d 

04 

2e 

20 

b5 

el 

20 

4c 

a9 

c42f 

8 

00 

a9 

00 

B5 

fb 

a2 

07 

06 

bb 

c437 

8 

fa 

a6 

fa 

a0 

0a 

IB 

20 

f0 

lb 

c43f 

8 

ff 

a0 

c4 

a6 

fb 

bd 

57 

c4 

29 

c447 

8 

20 

le 

ab 

e6 

fb 

e6 

fa 

e6 

ef 

c44f 

8 

fa 

a5 

f a 

c9 

15 

d0 

e2 

60 

30 

c457 

8 

5f 

72 

06 

98 

af 

c7 

de 

ed 

2c 

c45f 

c467 

3 

12 

45 

31 47 

20 42 
52 41 

VL S 

a0 

fl 

c46f 

8 

20 

49 

00 

12 

32 

92 

20 

42 

33 

c477 

8 

41 

4c 

4b 

45 

4e 

47 

52 

41 

45 

c47f 

8 

46 

49 

4b 

20 

49 

49 

00 

12 

44 


c4B7 

8 

33 

92 

20 

53 

41 

45 

55 

4c 

a2 

c4Bf 

8 

45 

4e 

47 

52 

41 

46 

49 

4b 

19 

c497 

8 

00 

12 

34 

92 

20 

54 

4f 

52 

86 

c49f 

8 

54 

45 

4e 

47 

52 

41 

46 

49 

ed 

c4a7 

8 

4b 

20 

33 

2d 

44 

20 

49 

00 

df 

c4af 

8 

12 

35 

92 

20 

54 

4f 

52 

54 

b6 

c4b7 

8 

45 

4a 

47 

52 

41 

46 

49 

4b 

41 

c4bf 

8 

20 

33 

2d 

44 

20 

49 

49 

00 

be 

c4c7 

8 

12 

36 

92 

20 

54 

4f 

52 

54 

4f 

c4cf 

8 

45 

4e 

47 

52 

41 

46 

49 

4b 

59 

c4d7 

8 

20 

32 

2d 

44 

00 

12 

37 

92 

77 

c4df 

8 

20 

4b 

55 

52 

56 

45 

4e 

47 

9c 

c4e7 

8 

52 

41 

46 

49 

4b 

80 

12 

3B 

02 

c4ef 

3 

92 

20 

46 

4c 

41 

43 

43 

48 

BB 

c4f 7 

8 

45 

4e 

47 

52 

41 

46 

49 

4b 

81 

c4f f 

1 

00 

60 

00 

02 

4d 

01 

02 

4d 

Bf 

c507 

8 

02 

02 

B5 

14 

ad 

02 

02 

6a 

b6 

c50f 

8 

6a 

a5 

14 

ab 

3a 

Bd 

bB 

05 

c3 

cS17 

8 

a0 

30 

Bd 

0f 

03 

b9 

00 

44 

9b 

c51f 

8 

b9 

00 

44 

dH 

00 

84 

c2 

a9 

86 

c527 

1 

7f 

65 

CB 

B4 

C4 

Ba 

e5 

c9 

e7 

c52f 

8 

ea 

a9 

23 

B5 

06 

6a 

0a 

48 

d4 

c537 

8 

ac 

cB 

dl 

a2 

ff 

69 

da 

68 

aB 

c53f 

8 

04 

14 

48 

6B 

a9 

05 

85 

6a 

9a 

c547 

8 

6a 

B5 

6a 

6a 

0a 

0a 

4B 

0a 

B2 

c54f 

t 

0a 

B5 

07 

6B 

9B 

9B 

9B 

20 

de 

C557 

8 

f 3 

fe 

c9 

ff 

20 

f 3 

fe 

c4 

63 

c55f 

3 

00 

4B 

48 

Ba 

aa 

ea 

a2 

00 

73 

C567 

3 

Ba 

6B 

68 

Ba 

ea 

ea 

ea 

38 

b3 

C56f 

8 

3B 

ea 

b9 

ff 

0d 

5b 

eb 

a9 

45 

cS77 

8 

ff 

68 

48 

ba 

Hu 

25 

03 

ad 

Bd 

c57f 

8 

50 

eb 

aB 

84 

99 

ae 

66 

04 

30 

c587 

8 

8a 

0a 

1B 

d0 

73 

a9 

80 

4B 

4e 

c58f 

8 

30 

16 

20 

da 

de 

Bc 

0S 

lc 

bB 

c597 

8 

2a 

4B 

8a 

48 

9B 

20 

lf 

dd 

54 

c59f 

8 

6B 

Ba 

68 

dH 

01 

4c 

23 

4d 

la 

c5a7 

8 

6B 

B5 

00 

a5 

00 

30 

fc 

a2 

41 

c5af 

8 

aS 

Ba 

B5 

cb 

a9 

00 

20 

18 

bf 

c5b7 

8 

e3 

a9 

03 

Bd 

10 

03 

ea 

85 

bl 

c5bf 

: 

c3 

85 

c3 

85 

c3 

85 

c3 

85 

69 

c5c7 

: 

c5 

ea 

30 

dS 

f0 

eB 

4c 

00 

50 

c5cf 

8 

03 

00 

4c 

00 

03 

60 

Bd 

14 

77 

c5d7 

3 

1B 

ad 

a8 

02 

02 

Bd 

15 

04 

19 

c5df 

: 

d0 

fc 

20 

20 

00 

aB 

20 

6b 

de 

c5e7 

8 

29 

9B 

28 

a9 

00 

B5 

62 

9B 

83 

c5ef 

8 

aa 

4c 

32 

04 

29 

7f 

c9 

20 

C2 

c5f 7 

8 

b0 

12 

8a 

09 

40 

a2 

12 

60 

96 

c5f f 

8 

60 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

5f 
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0801 

258a 

0941 

3 

12 

2e 

58 

95 

Cf 

fl 

fa 

00 

ac 

0a91 

8 

07 

e3 

d5 

f 6 

9b 

3b 

2e 

56 

d7 

— 





— 






0949 

3 

00 

00 

00 

00 

00 

00 

00 

00 

4a 

0a99 

: 

d7 

95 

da 

21 

ca 

0f 

47 

52 

fc 

0801 

3 

0E 

00 

ca 

a0 

9e 

32 

30 

36 

B4 

0951 

: 

00 

10 

00 

40 

00 

6c 

00 

a4 

0e 

0a a 1 

: 

le 

9f 

2f 

57 

cc 

b2 

fd 

77 

Bf 

0009 

8 

35 

20 

46 

43 

43 

00 

00 

00 

7d 

0959 


00 

ce 

80 

ec 

00 

fb 

40 

ff 

5f 

0aa9 


01 

de 

70 

30 

00 

3f 

6e 

30 

50 

0811 

8 

a0 

00 

b9 

69 

07 

99 

00 

cd 

26 

0961 

3 

dH 

ff 

00 

00 

00 

00 

00 

00 

31 

0ab 1 

: 

79 

70 

d9 

ad 

bc 

f 2 

90 

7a 

2d 

0819 

8 

b9 

69 

08 

99 

00 

ce 

b9 

69 

ec 

0969 

8 

20 

9d 

85 

00 

a9 

Bd 

ca 

4c 

B4 

0ab9 

8 

a2 

aB 

3b 

12 

a8 

6b 

de 

20 

5a 

0B21 

: 

09 

99 

00 

cf 

cO 

d0 

eb 

4c 

4c 

0971 

8 

a5 

d0 

03 

60 

02 

ad 

01 

f0 

bf 

0acl 

8 

e9 

63 

15 

03 

Se 

Dl 

6d 

0b 

c2 

0B29 

: 

c2 

cd 

78 

dB 

ff 

B4 

fb 

a9 

6b 

0979 

3 

a0 

ff 

04 

a2 

B4 

05 

B6 

Be 

16 

0ac9 

8 

a9 

36 

71 

32 

ff 

43 

41 

4f 

ee 

0B31 

s 

c6 

85 

fc 

a9 

36 

B5 

01 

Bd 

dd 

0981 

8 

Bc 

fb 

06 

2a 

90 

18 

bd 

91 

b6 

0adl 

8 

9c 

al 

4ß 

3c 

72 

ae 

37 

a5 

9c 

0039 

: 

20 

cJ0 

cB 

a5 

2d 

dH 

02 

c6 

97 

0989 

8 

99 

e0 

4b 

6d 

00 

aa 

b0 

b7 

lb 

0ad9 

3 

6B 

75 

a5 

e2 

Be 

9d 

42 

ae 

fe 

0841 

s 

2e 

c6 

2d 

a6 

2e 

e0 

0a 

d0 

a6 

0991 

8 

9e 

0a 

e6 

a6 

9B 

4d 

Ba 

CB 

72 

0ael 

8 

67 

4a 

94 

06 

fO 

12 

30 

24 

Bc 

0849 

s 

04 

c9 

69 

10 

0f 

bl 

2d 

91 

hi 

0999 

8 

60 

fd 

ae 

bl 

f 9 

10 

17 

fc 

de 

0ae 9 

3 

5B 

0d 

fb 

73 

61 

2a 

ee 

02 

5c 

0051 

8 

fb 

a5 

fb 

d0 

02 

c6 

fc 

c6 

10 

09a 1 

8 

07 

8b 

93 

38 

49 

aB 

c9 

40 

6c 

0af 1 

8 

aa 

41 

6f 

00 

cd 

3b 

af 

ea 

73 

0859 

3 

fb 

4c 

d3 

cd 

a2 

08 

a9 

01 

3c 

09a9 

8 

c6 

fB 

4e 

a4 

69 

40 

eB 

2B 

a0 

0af 9 

3 

e3 

cc 

67 

bb 

a9 

fe 

bl 

33 

53 

0061 

8 

86 

2e 

B5 

2d 

04 

ff 

20 

50 

6f 

09b 1 

8 

29 

fl 

30 

C0 

Bf 

bb 

15 

65 

ad 

HbHl 

8 

B9 

eb 

2a 

ed 

e5 

67 

Hb 

bb 

05 

0869 

8 

ce 

c9 

f 3 

dB 

27 

20 

50 

CB 

85 

09b9 

8 

B 0 

fa 

B2 

9c 

e5 

64 

e9 

f 3 

fb 

0b09 

8 

37 

64 

99 

71 

Od 

d9 

a6 

5a 

fe 

0071 

3 

aa 

06 

fa 

c9 

04 

b0 

04 

a9 

7f 

09c 1 

3 

14 

42 

79 

09 

1)9 

2b 

31 

0c 

5B 

0b 11 

3 

63 

6f 

d3 

2f 

6o 

6f 

d4 

9a 

fl 

0079 

3 

f 3 

dH 

03 

20 

50 

CO 

a0 

00 

97 

09c 9 

8 

0d 

92 

fe 

09 

2c 

34 

37 

32 

e6 

0b 19 

8 

85 

5d 

bc 

06 

48 

ld 

cb 

45 

74 

0001 

3 

91 

2d 

cB 

c6 

fa 

dH 

19 

98 

03 

09dl 

8 

88 

ce 

0b 

3f 

63 

73 

0f 

46 

06 

0b 21 

8 

20 

42 

60 

30 

5a 

6e 

bO 

5a 

33 

0889 

3 

10 

65 

2d 

B5 

2d 

90 

02 

e6 

7d 

09d9 

3 

7B 

2d 

ec 

ed 

12 

19 

24 

4a 

t0 

0b 29 

X 

34 

ü0 

77 

4d 

15 

74 

3f 

ab 

7e 

0091 

3 

2e 

4c 

34 

ce 

a0 

00 

91 

2d 

77 

09el 

3 

7a 

07 

b2 

26 

2e 

61 

62 

83 

0f 

0b31 

8 

4a 

14 

a4 

le 

39 

62 

Bd 

eb 

27 

0099 

3 

e6 

2d 

fH 

f 3 

a9 

2b 

a2 

2B 

9f 

09o9 

8 

97 

bf 

d4 

ld 

le 

25 

43 

45 

db 

0b 39 

3 

70 

64 

0a 

2d 

bO 

4b 

db 

ad 

d4 

00a 1 

3 

e4 

2e 

d0 

c2 

c5 

2d 

dH 

be 

af 

09f 1 

8 

53 

55 

58 

93 

94 

cb 

e2 

67 

79 

0b41 

8 

95 

a4 

46 

9c 

C0 

91 

be 

04 

e9 

0Ba9 

8 

a9 

37 

B5 

01 

a9 

fe 

Bd 

20 

7B 

09f 9 

: 

77 

7f 

el 

f 6 

11 

16 

17 

41 

20 

0b49 

8 

91 

ad 

50 

3f 

33 

41 

f 9 

9a 

07 

00b 1 

8 

d0 

5B 

20 

59 

a6 

4c 

ae 

a7 

b7 

0a01 

8 

6b 

6f 

01 

ac 

ba 

cc 

lf 

33 

Hf 

0b51 

8 

50 

bf 

6d 

be 

41 

a4 

26 

ef 

66 

0Bt)9 

3 

a2 

ff 

06 

f 7 

86 

fO 

eB 

a9 

22 

0a 09 

X 

35 

3b 

9a 

bB 

cd 

dd 

e4 

f 4 

e3 

0b59 

3 

4e 

99 

7f 

Bb 

7b 

de 

cd 

93 

fZ 

00c 1 

: 

01 

85 

fe 

a9 

7f 

85 

fd 

c6 

23 

Hall 

8 

22 

2f 

32 

54 

5b 

66 

71 

c4 

la 

0b61 

8 

76 

e5 

32 

f0 

5b 

D4 

19 

12 

9c 

0Bc9 

: 

ff 

10 

10 

06 

fb 

dH 

02 

e6 

cd 

0a 19 

: 

d5 

e3 

ea 

ee 

36 

3c 

56 

5d 

d2 

0b69 

8 

6e 

eb 

93 

2f 

fe 

db 

dB 

la 

fa 

00dl 

3 

fc 

a9 

07 

B5 

ff 

a0 

00 

bl 

7d 

0a21 

3 

72 

7d 

9f 

a3 

b4 

b6 

c5 

d7 

76 

0b71 

X 

6a 

6e 

f 5 

c9 

97 

dB 

6f 

db 

71 

0Od9 

3 

fb 

BS 

f 9 

06 

f 9 

b0 

0a 

a4 

6d 

0a29 

X 

f5 

la 

lb 

21 

23 

3a 

44 

5a 

e0 

0b79 

3 

9B 

09 

bb 

5d 

36 

48 

f 3 

2a 

3a 

00el 

3 

fe 

a5 

fd 

39 

f 7 

00 

99 

f 7 

2e 

0a31 

: 

dB 

f 2 

13 

3e 

5c 

5b 

5f 

74 

2e 

0bBl 

: 

83 

Cl 

d0 

79 

5f 

41 

b7 

6c 

cl 

0üe9 

8 

00 

Ba 

0a 

aB 

a5 

f 7 

3B 

f 9 

b5 

0a39 

x 

7b 

96 

al 

b5 

c7 

e7 

eb 

0e 

a6 

0bB9 

8 

27 

9d 

a0 

9e 

7d 

02 

79 

af 

aB 

08f 1 

3 

e2 

ce 

a5 

fB 

f 9 

e3 

ce 

90 

de 

0a41 


39 

3d 

47 

6a 

dl 

d2 

de 

df 

27 

0b91 

3 

13 

cb 

u 

3c 

fc 

22 

79 

aa 

72 

0Of 9 

8 

0e 

e0 

0c 

f0 

0a 

eB 

3B 

66 

2e 

0a 49 

s 

lc 

27 

4f 

50 

59 

6c 

6e 

70 

6a 

0b 99 

8 

13 

cf 

48 

4f 

3f 

10 

9e 

77 

6e 

0901 

: 

fd 

b0 

c4 

c6 

fe 

f0 

bc 

Oa 

O0 

0a51 

: 

ab 

af 

bc 

cl 

c3 

d9 

ef 

7c 

ff 

0bal 

3 

c2 

79 

9d 

13 

cf 

Bc 

4f 

3e 

05 

0909 

8 

f0 

0f 

a5 

f 7 

30 

f 9 

B0 

ce 

5e 

0a 59 

8 

c2 

de 

75 

76 

7e 

9b 

a7 

b3 

80 

0ba9 

8 

bl 

3c 

f 5 

45 

4a 

f 2 

BC 

4f 

2d 

0911 

8 

85 

f 7 

a5 

fB 

f 9 

el 

ce 

B5 

0f 

0a61 

3 

db 

51 

57 

be 

Cf 

d3 

d6 

da 

3f 

0bbl 

8 

3d 

11 

3c 

e5 

09 

e7 

2c 

4c 

5c 

0919 

3 

fO 

a4 

fe 

f0 

07 

aS 

fB 

B5 

ce 

0a69 

3 

d7 

48 

fe 

95 

d3 

3c 

7c 

Hf 

06 

0bb9 

3 

cB 

79 

fl 

09 

9a 

57 

99 

fl 

Sa 

0921 

8 

f 7 

80 

B4 

fB 

a5 

fd 

4a 

90 

31 

0a71 

8 

47 

44 

42 

10 

ba 

86 

64 

0f 

fc 

0bcl 

8 

32 

c3 

C7 

74 

10 

a7 

77 

6a 

46 

0929 

: 

07 

46 

fB 

66 

f 7 

4c 

be 

ce 

d9 

0a79 

8 

eb 

70 

al 

74 

2c 

de 

Bf 

e4 

55 

0bc9 

8 

Bf 

7f 

68 

9b 

09 

al 

e6 

df 

9b 

0931 

x 

bd 

d2 

ce 

65 

f 7 

aB 

b9 

00 

63 

0a81 

3 

71 

e4 

95 

a6 

7d 

71 

f 3 

9c 

0b 












0939 

8 

cf 

60 

00 

00 

00 

00 

01 

07 

4b 

0aB9 

8 

7e 

d0 

e2 

fb 

0B 

74 

3c 

e2 

82 
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GRAFIK 


0bdl 

, 

d2 

5a 

d0 

b5 

b9 

b6 

63 

64 

63 

0ed9 

3 

30 

8c 

e2 

7e 

20 

67 

BB 

96 

64 

Hel 

3 

e6 

ab 

bb 

d5 

89 

df 

90 

23 

86 

0bd9 


b7 

51 

5b 

lc 

cf 

ad 

2a 

el 

6a 

Beel 


70 

fa 

36 

ff 

a0 

21 

d7 

a2 

14 

lle9 

: 

bb 

a6 

09 

df 

34 

41 

d4 

af 

56 

0bel 

: 

db 

06 

76 

fd 

B7 

b4 

d6 

74 

71 
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Listlng 6. »Teil 3« (gepacktes 
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ff 

20 

50 

6 f 

0901 


fd 

b0 

c4 

c 6 

fe 

f0 

bc 

Ba 

e 0 

09a 1 

8 

ef 

99 

f 5 

fc 

lc 

cB 

d0 

Bd 

e0 

0869 

: 

ce 

c9 

f 3 

d0 

27 

20 

50 

ce 

B5 

0909 

8 

f0 

0 f 

a5 

f 7 

38 

f 9 

e 0 

ce 

5e 

09a9 


08 

d0 

Bd 

0B 

Bc 

b0 

cf 

39 

7e 

0871 

: 

aa 

86 

f a 

c9 

04 

b0 

04 

a9 

7f 

0911 

8 

85 

f 7 

a5 

f 8 

f 9 

el 

ce 

B5 

0 f 












0879 

0881 

: 

f 3 
91 

d0 

2 d 

03 

c8 

20 

c6 

50 
f a 

ce 

d0 

a 0 
f 9 

00 

98 

97 

03 

0919 

0921 

8 

f 8 
f 7 

a4 

88 

fe 

84 

f 0 
fB 

07 

a5 

a5 

fd 

f 8 
4a 

85 

90 

ce 

31 

Listing 8. »Teil 

5« 

(gepacktes Programm) 

0BB9 

8 

1B 

65 

2 d 

05 

2 d 

90 

02 

e6 

7d 

0929 

! 

07 

46 

fB 

66 

f 7 

4c 

be 

ce 

d9 

der erforderlichen Maschinenroutinen 


1 SYS(57812)"GRAFIC-CALC/D"!POKE 193,0:POK 
E 194,31:POKE 174,58:P0KE 175,63sSYS 629 
57 <204> 

Listlng 9. »S-Graflc Calc/D« 


1 SYS(57B12)"TEILS"sPOKE 193,0tPOKE 194,20 

4:POKE 174,0:POKE 175,200!SYS 62957 <132> 

Listlng 13. »S-Tell5« 


1 SYS(57B12)"BRAFIC-CALC/B"!POKE 193,0:POK 
E 194,31 t POKE 174,239!POKE 175,B5:SYS 62 
957 <025> 

Listlng 10. »S-Grafic Calc/D« 


1 SYS(57B12)"TEIL3":POKE 193,0iPOKE 194,12 

BiPOKE 174,255:POKE 175,159!SVS 62957 <071> 


Listing 11. »S-Teil3« 


10 

OPEN 2,8,1,"TEIL4,P,W" 

< 19S> 

20 

PRINT#2,CHR*(0>CHR*<224>;:A-B192 

< 105 > 

30 

PRINT#2,CHR* (PEEK(A) ) ; :A=A+1: IF A01619 



2 THEN 30 

<100> 

40 

CLOSE 2 

<059> 


• 

Listing 12. >»S-Teil4« 



Name : d-epsan C000 c0cl 


C000 

| 

a9 

00 

a 2 

B0 

89 

f a 

B6 

fb 

b0 

C00B 

8 

a9 

01 

a2 

04 

«0 

00 

20 

ba 

5b 

C010 

I 

ff 

a9 

00 

B5 

b7 

20 

C0 

ff 

14 

C010 

8 

a 2 

01 

20 

c9 

ff 

•9 

lb 

20 

76 

C020 

| 

d2 

ff 

a9 

31 

20 

d2 

ff 

20 

5b 

C02B 

8 

4e 

C0 

a9 

lb 

20 

d2 

ff 

a9 

90 

C030 

8 

32 

20 

d2 

ff 

20 

cc 

ff 

a9 

e3 

C030 

8 

01 

4c 

c3 

ff 

00 

00 

00 

00 

50 

C040 

3 

00 

00 

00 

00 

00 

00 

00 

02 

45 

C040 

8 

B0 

4c 

lb 

09 

0'/ 

Ba 

■ >2 

1B 

72 

C050 

| 

a 0 

06 

b9 

47 

C0 

20 

d2 

ff 

a3 

C050 

1 

08 

10 

f 7 

a9 

27 

Bd 

44 

C0 

Bd 

C060 

3 

a0 

00 

20 

79 

C0 

a5 

fa 

18 

Bd 

C060 

1 

69 

00 

90 

02 

e6 

fb 

85 

fa 

94 

C070 

8 

ce 

44 

C0 

10 

eb 

ca 

10 

dB 

99 

C070 

8 

60 

Ba 

40 

98 

48 

a9 

80 

Bd 

31 

C000 

8 

46 

C0 

a2 

07 

a 0 

00 

78 

a9 

ef 

C0BB 

8 

35 

05 

01 

bl 

fa 

40 

a9 

37 

fd 

C090 

8 

05 

01 

58 

68 

2d 

46 

C0 

38 

31 

C09B 

8 

d0 

01 

10 

3e 

3c 

C0 

cB 

C0 

25 

C0a0 

3 

00 

d0 

e3 

4e 

46 

C0 

ca 

10 

89 

C0a0 

8 

db 

a2 

0 / 

bd 

3c 

C0 

20 

d2 

3e 

C0b0 

3 

ff 

20 

d2 

ff 

a9 

00 

9d 

3c 

fd 

C0b0 

8 

c 0 

ca 

10 

ef 

68 

a8 

68 

aa 

a2 

C0C0 

3 

60 

00 

00 

00 

00 

00 

00 

00 

21 


Listlng 14. »D-Epson« Druckertreiber für Epson 
und Kompatible 
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GRAFIK 


Exzesse über 
den Kreis 

Anhand vieler Beispiele lernen Sie, wie man 
Kreise und Ellipsen im HiRes-Modus program¬ 
miert. Als Bonbon bekommen Sie noch eine sehr 
schnelle Routine zum Zeichnen von Kreisen, die 
sich frei im Speicher verschieben und an eigene 
Basic-Erweiterungen anpassen läßt. 

D er Kreis als absolute Form hatte schon im Altertum eine 
elementare Bedeutung für die Naturwissenschaften. 
Auch heute überzeugt das zeitlose schöne Rund durch 
sein ästhetisches Aussehen, so daß ihn niemand in einer 
Computergrafik missen möchte. Um nun einen Kreis oder 
eine Ellipse auf den Bildschirm seines Computers zu bekom¬ 
men, haben sich vor allem folgende drei Strategien beson¬ 
ders bewährt. 

Die primitive Methode 


Bei dieser Methode verwendet man die Winkelfunktionen 
Sinus und Cosinus. Hierzu sehen wir uns die Definition am 
Einheitskreis an (Bild 1). Die Koordinaten des Punktes P 
unterscheiden sich von denen des Mittelpunktes M in X- 
Richtung um cosy? und in Y-Richtung um sin^>. Das heißt 

Ax = Xm + COSyJ 

Ay = y M + sinys 

Die Formel führt auf einen Kreis mit dem Radius 1. Da man 
einen solchen in den seltensten Fällen auf seinen Bildschirm 
zeichnen will, müssen wir noch die Koordinatenänderungen 
mit den Radien multiplizieren. Durch das Zulassen von ver¬ 
schiedenen Radien in X- und Y-Richtung verschaffen wir uns 
zusätzlich die Möglichkeit, beliebige Ellipsen zu zeichnen. 
Daraus ergibt sich 

Ax = Xm + cos<p * r x 
Ay = y M + siny> * r y 

Das bedeutet, daß jedem Winkel ein Punkt P (<p) auf der 
Kreislinie zugeordnet ist. Alle P(y?) zusammen ergeben den 
gesamten Kreis. Durchlaufen wir mit einer Schleife alle Werte 
von >f>, so erhalten wir den gewünschten Kreis, wobei die 
Schrittweite der Schleife von den Radien abhängig gemacht 
werden sollte. 

Dies ist alles schön und gut, aber extrem zeitaufwendig, 
wie jeder, der sich schon einmal auf diese Weise dem Kreis 
genähert hat, zugeben muß. Dem kann man durch einfache 
Überlegung abhelfen. Und zwar fällt auf, wenn man sich eine 
Ellipse ansieht (Bild 2), daß sie zwei Symmetrieachsen 
besitzt. Diese doppelte Symmetrie kann man ausnutzen, 
indem man nur eine Viertelellipse berechnet, diese an den 
Achsen spiegelt und so das Rund vervollständigt. Man erhält 
jeweils vier zusammengehörige Punkte, deren Koordinaten 
sich durch Vorzeichenwechsel in der oben aufgestellten For¬ 
mel ergeben. Faßt man alle bisherigen Überlegungen in 
einem Programm zusammen, so kommt man zum Listing 1. 
Um die benötigten Grafikbefehle zur Verfügung zu stellen, 
existiert noch eine Miniaturgrafikerweiterung, welche bei 
allen folgenden Basic-Programmen einzusetzen ist. Dieses 
Grafikmodul enthält zwei Befehle, nämlich »sys 938« um den 
Grafikbildschirm ab $2000 zu löschen und den PLOT-Befehl 


(sys 820,x,y). Es ist mit dem MSE abzutippen und zu spei¬ 
chern. 

Nun zum eigentlichen Programm. Erst wird das Grafik¬ 
modul (Listing 2) geladen, dann werden die Koordinaten des 
Mittelpunktes und der X- beziehungsweise Y-Radius festge¬ 
legt. Nach dem Einschalten und Löschen des Grafikbild¬ 
schirms wird die Ellipse wie oben vereinbart gezeichnet. 
Schließlich erwartet das Programm noch einen Tastendruck, 
um in den Textmodus zurückzukehren. 

Die schnelle Methode 


Eine weitere Möglichkeit, einen Kreis zu zeichnen, bietet der 
Satz des Pythagoras. Aus Bild 3 erhält man zwischen den 
Abständen in X- und Y-Richtung des Punktes P auf der Kreis¬ 
linie vom Mittelpunkt folgenden Zusammenhang. 

Ay = sqr(1-Ax 2 ) 

Da Ax zwischen 0 und r x und Ay zwischen 0 und r y liegt, 
erweitern wir den Term mit r x .. .Ay=sqr(x 2 -Ax 2 )/r x ... und 
multiplizieren mit r y . So kommen wir auf 

Ay = (sqr(x 2 -Ax 2 )*r y /r x 

Nach dieser Formel ist also jedem Ax ein Ay zugeordnet. 
Daher ist es sinnvoll, Ax als Laufvariable zu verwenden. 
Genau wie bei der ersten Methode reicht es auch hier aus, 
nur ein Viertel zu berechnen und dann zu spiegeln. Allerdings 
stellt sich an dieser Stelle ein neues Problem. Die berechne¬ 
ten Punkte können nämlich so weit auseinanderliegen, daß 
sich kein geschlossener Kreis bildet, obwohl die Schrittweite 
in X-Richtung ausreichend klein war. Man umgeht dies, indem 
man von dem aktuell errechneten Punkt eine senkrechte 
Linie zieht, die auf der gleichen Y-Koordinate endet, auf der 
der vorige Punkt sitzt. Dazu kann man, wenn vorhanden, den 
LINE-Befehl verwenden, oder aber man erniedrigt (oder 
erhöht, je nachdem, ob man die Ax-Schleife von 0 nach r x 
oder von r x nach 0 gehen läßt) Ay so lange, bis der vorherge¬ 
hende Ay-Wert erreicht ist (Listing 3). Listing 3 ist die Reali¬ 
sierung der »schnellen Methode«. Es basiert wieder auf dem 
schon bekannten Grafikmodul und ist exakt so aufgebaut wie 
das erste Programm, nur der Ellipsen-Algorithmus ist ausge¬ 
tauscht worden. 

Die elegante Methode 


Bei dieser Methode muß ich leider auf die Erklärung des 
mathematischen Hintergrundes verzichten, da sie eine 
gewisse Vorkenntnis in Sachen linearer Algebra verlangt, die 
man nicht ohne weiteres voraussetzen kann. Es handelt sich 
um eine affine Abbildung, nämlich der Drehung. Mit ihr kann 
man einen Punkt um einen Fixpunkt (Mittelpunkt) drehen. 
Dreht man nun einen Punkt öfters um einen kleinen Winkel, 
ergibt das auch wieder einen Kreis. Will man auch Ellipsen 
zeichnen, ist es sinnvoll, zunächst einen Einheitskreis 
(Radius = 1) zu erzeugen und dann durch Multiplikation mit 
den entsprechenden Radien die Koordinatenänderungen zu 
vergrößern, ähnlich der »primitiven Methode«. Wieder 
berechnet man nur ein Viertel, das ist ja nichts Neues. Listing 
4 ist genauso aufgebaut wie die zuvor beschriebenen Pro¬ 
gramme, erzeugt die Ellipsen allerdings über die Koordi¬ 
natendrehung. 

Für diejenigen, bei denen die Begeisterung für die »Theorie 
des Kreises« noch nicht ausgebrochen ist, habe ich jetzt 
noch zwei Zugaben, die meiner Meinung nach interessante 
Anwendungen darstellen. 

Die erste (Listing 5) ist ein Maschinenprogramm, das einen 
Kreis natürlich wesentlich schneller zeichnet als die Basic- 
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Lösungen. Es verwendet die »schnelle Methode« und kann 
mit ein wenig Erfahrung in andere Grafikpakete eingeflochten 
werden. Eventuell könnte man es auch als Modul für Hypra- 
Basic aus Ausgabe 4/86 verwenden. Das Programm enthält 
eine eigene PLOT-Routine, um die größtmögliche Kompatibili¬ 
tät zu erreichen. Die Routine ist als MSE-Listing für den 
Bereich ab $C000 abgedruckt, kann aber mit dem Programm 
»circle mover« (Listing 6) an jede Stelle im Speicher verscho¬ 
ben werden. Mit »circle mover« kann man das CIRCLE- 
Programm auch auf eine andere HiRes-Bitmap ansetzen, 
wobei auf die Frage nach dem Bildschirm die Startadresse 
geteilt durch 8192 angegeben werden muß. Mit »circle 
demo« (Listing 7) kann man sich schließlich von der 
Geschwindigkeit überzeugen, die immerhin lOmal über der 
von Simons Basic liegt und nahezu doppelt so hoch ist wie 
die der Supergrafik von Data-Becker. 

Das letzte Programm (Listing 8) zeigt, wie man durch Kom¬ 
bination der verschiedenen Methoden jede beliebige Ellipse 
zeichnen kann und nicht, wie bisher, nur solche, die senk¬ 


recht oder waagrecht auf dem Bildschirm liegen. Der Trick ist 
einfach. Man berechnet zuerst eine Ellipse, die zum Beispiel 
horizontal liegt. (Aus Zeitgründen habe ich hier die »schnelle 
Methode« verwendet.) Diese Ellipse wird dann mittels Koor¬ 
dinatendrehung »elegante Methode« in die gewünschte Lage 
gedreht. Deshalb braucht dieses Programm eine Angabe 
mehr für die Ellipse, nämlich die Koordinaten des Mittelpunk¬ 
tes, X- beziehungsweise Y-Radius und den Drehwinkel. 

(Leif Kobbelt/ah) 


Eingabehinweise 

Die Basic-Llstings 1,3, 4, 8 benötigen, um fehlerfrei zu arbeiten, 
das Maschinenprogramm Listing 2. Bevor Sie also eines der Baslc- 
Programme starten, achten Sie bitte darauf, daß sich auch das 
Listing 2 auf Ihrer Diskette befindet. Die Llstlngs 5, 6, 7 gehören 
zusammen. Bei ihnen handelt es sich um ein Programmpaket, das 
Kreise extrem schnell zeichnet. Alle Maschinenprogramme sind mit 
dem MSE und alle Basic-Programme mit dem Checksummer einzu¬ 
geben. 




■ 2. Symme 
trieachse 


Bild 2. Im Gegensatz zum Kreis hat eine Ellipse zwei 
Symmetrieachsen 



100 

REM **« PROGRAMM NR.-1 *#* 

<171 > 

110 

r 

<086 > 

120 

IF Z=0 THEN Z=1:L0AD"GRAFIK MODUL' 

,8,1 <201> 

130 

CLS=93B:PLOT=B20 

< 138 > 

140 

ff 

< 116> 

150 

X0=160:Y0=100 > REM MITTELPUNKT 

<201 > 

160 

XR=90 r YR=80 sREM X !< Y-RADIUS 

<24B> 

170 

3 

<146> 

100 

POKE 53265,59sPOKE 53272,24:PRINT’ 

<CLR 


>" 

<094> 

190 

SYS CLS 

< 1 2B> 

200 

g 

< 176> 

210 

FOR A=0 TO 90 STEP.5 

<1BB> 

220 

B=A#A/180 

<0B9> 

230 

X=COS <B> *XR:Y=SIN(B)*YR 

< 137> 

240 

SYS PLOT,X0+X,Y0+Y 

< 143> 

250 

SYS PLOT,X0+X,Y0—Y 

<025> 

260 

SYS PLOT,X0—X,Y0+Y 

< 169 > 

270 

SYS PLOT,X0-X,Y0-Y 

<051 > 

280 

NEXT A 

<046> 

290 

g 

<012> 

300 

POKE 198,0:WAIT 19B,1:GET A* 

<226> 

310 

: 

<032> 

320 

POKE 53265,27:POKE 53272,21 

<025> 

330 

END 

<078> 

340 

! 

<062> 


Listing 1. Ein Beispiel zur primitiven Methode 
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Name i grafik modul 0334 03bf 


0334 

3 

20 

fd 

ae 

20 

eb 

b7 

8a 

a8 

fa 

033c 

< 

a5 

14 

a6 

15 

85 

fa 

86 

fb 

7a 

0344 

3 

98 

29 

fB 

B5 

fe 

85 

fc 

a9 

c3 

034c 

1 

00 

B5 

fd 

06 

fc 

26 

fd 

06 

54 

0354 

3 

fc 

26 

fd 

18 

aS 

fc 

65 

fe 

bc 

035c 

3 

B5 

fc 

a5 

fd 

69 

00 

85 

fd 

31 

0364 

3 

06 

fc 

26 

fd 

06 

fc 

26 

fd 

0 e 

036c 

3 

06 

fc 

26 

fd 

98 

29 

07 

18 

59 

0374 

1 

65 

fc 

85 

fc 

aS 

fd 

69 

00 

48 

037c 

« 

B5 

fd 

1B 

aS 

fa 

29 

f 8 

65 

62 

0384 

3 

«C 

85 

fc 

a5 

fb 

65 

fd 

B5 

24 

03Bc 

1 

fd 

18 

a9 

20 

65 

fd 

B5 

fd 

Sc 

0394 

3 

aS 

fa 

29 

07 

49 

07 

aa 

a9 

ac 

039c 

1 

01 

ca 

30 

03 

0a 

dB 

fa 

an 

c3 

03a4 

8 

00 

11 

fc 

91 

fc 

60 

a9 

00 

18 

03a c 

8 

aS 

a2 

20 

B4 

14 

B6 

15 

91 

2b 

03b 4 

8 

14 

C0 

d0 

(l> 

eB 

e0 

40 

d0 

18 

03bc 

8 

f 4 

60 

00 

00 

00 

00 

00 

00 

el 


Listing 2. Die kleine Grafikerwelterung dient dazu, den 
HIRes-Bildschlrm zu löschen und Punkte zu setzen. 


100 

REM *«* PROGRAMM NR.2 *** 

<173> 

110 

: 

<0B6> 

120 

IP Z=0 THEN Z=lrLOAD"GRAFIK MODUL' 

,8,1 <201> 

130 

CLS=93B:PLOT=820 

<13B> 

140 

■ 

< 116> 

150 

X0=160:Y0=100 :REM MITTELPUNKT 

<201 > 

160 

XR=90 :YR=B0 : REM X & Y-RAD1US 

<24S> 

170 

: 

< 146> 

1B0 

POKE 53265,59SP0KE 53272,24:PRINT' 

CCLR 


>" 

<094> 

190 

SYS CLS 

<12B> 

200 

5 

< 176> 

210 

FOR X=XR TO 0 STEP—1 

< 112> 

220 

Y=SGR <XR*XR-X*X> »YR/XR:Y2=Y 

< 164> 

230 

SYS PLOT,X0+X,Y0+Y 

<133> 

240 

SYS PLOT,X0+X,Y0—Y 

<015> 

250 

SYS PLOT,X0—X,Y0+Y 

<157> 

260 

SYS PLOT,X0—X,Y0—Y 

<041 > 

270 

Y=Y—1:IF Y>Y1 THEN 230 

<166> 

280 

Y1=Y2 

<234> 

290 

NEXT X 

<240> 

300 

s 

<022> 

310 

POKE 19B,0:WAIT 198,1:GET A* 

<236> 

320 

e 

<042> 

330 

POKE 53265,27:POKE 53272,21 

<035> 

340 

END 

<0BB> 

350 

g 

<072> 

Listing 3. Die schnelle Methode - als Basic-Programm 


100 

REM *** PROGRAMM NR.3 *** 

< 175> 

110 

s 

<0B6> 

120 

IF Z=0 THEN Z-l:LOAD"GRAFIK MODUL",B,1 

<201 > 

130 

CLS=93B:PLOT=820 

<13B> 

140 

3 

<116> 

150 

X0=160:Y0=100 I REM MITTELPUNKT 

<201 > 

160 

XR=90 :YR=80 : REM X 8. Y-RADIUS 

<24B> 

170 

W “.5 :REM DREHWINKEL 

< 107 > 

1B0 

r 

< 156> 

190 

POKE 53265,59:P0KE 53272,24:PRINT"CCLR 



>" 

<104> 

200 

SYS CLS 

< 138> 

210 

c 

< 1 B6> 

220 

T=SIN(W*i/1B0>: S=SOR(1~T#T):X=0r Y=1 

<209> 

230 

FOR A°0 TO 90 STEP W 

<204> 

240 

SYS PLOT,X0+X#XR,Y0+Y»YR 

<029> 

250 

SYS PLOT,X0+X*XR,Y0—Y*YR 

<043> 

260 

SYS PLOT,X0-X*XR,Y0+Y#YR 

<055> 

270 

SYS PLOT,X0-X*XR,Y0-Y*YR 

<069> 

2B0 

X1=S#X+T*Y:Y1=3«Y-T*X:Y=Y1:X=X1 

<015> 

290 

NEXT A 

<056> 

300 

: 

<022> 

310 

POKE 198,0:WAIT 198,1:GET A* 

<236 > 

320 

: 

<042> 

330 

POKE 53265,27sPOKE 53272,21 

<035> 

340 

END 

<0BB> 

350 

B 

<072> 


Listing 4. Ein Beispiel zur eleganten Methode 


Name : circle.Code c000 cld9 


cam 

8 

78 

a9 

ff 

85 

bS 

20 

fd 

ae 

af 

C00B 

3 

20 

eb 

b7 

a5 

14 

a4 

15 

B5 

86 

C010 

8 

b6 

B4 

b7 

86 

bB 

20 

fl 

b7 

Bb 

C01B 

: 

86 

b9 

86 

02 

86 

a7 

20 

eB 

55 

C020 

i 

C0 

aS 

14 

a4 

15 

BS 

ba 

84 

be 

C02B 

3 

bb 

20 

fl 

b7 

86 

bc 

.,11 

02 

4f 

C030 

3 

85 

a7 

20 

■8 

C0 

3B 

a5 

ba 

BB 

C03B 

3 

e5 

14 

85 

14 

a5 

bb 

eS 

15 

05 

C040 

3 

85 

IS 

a9 

00 

a 2 

09 

85 

a7 

92 

C04B 

3 

B5 

aB 

85 

a9 

85 

aa 

38 

26 

93 

C050 

8 

a7 

26 

aB 

06 

14 

26 

15 

26 

0 B 

C05B 

8 

a9 

26 

aa 

06 

14 

26 

15 

26 

93 

C060 

1 

a9 

26 

aa 

38 

aS 

a9 

e5 

a7 

5 c 

C068 

B 

aB 

aS 

aa 

e5 

aO 

90 

10 

85 

a4 

C070 

1 

aa 

84 

a9 

e6 

a7 

dB 

02 

e6 

7a 

C07B 

3 

aB 

ca 

d0 

d2 
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Listing 5. Maschinenroutine zur schnellen Methode 


10 REM **#*#**#**##*##**##*### 

< 151 > 

20 REM * "CIRCLE MOVER" * 

<176> 

30 REM * VON LEIF KOBBELT * 

<000> 

40 REM * 7500 KARLSRUHE 1 * 

< 179> 

50 REM * GRAF-RHENASTR. 23 * 

<201 > 

60 REM ##**###***#**##*##*#**# 

<201 > 

70 : 

<046> 

B0 : 

<056> 

100 INPUT"CCLR.3D0WN,13SPACEJSTARTADRESSE 


"JS 

< 1 70> 

110 INPUT"C3D0WN.SPACEIFUR WELCHE BIT-MAP 


(1-7) "; T 

< 143> 

120 OPEN 1,B,0,"CIRCLE.CODE":GET#1,A*,A4 

<229> 

130 GET#1,A*:A=ASC(A*+CHR*<0>) 

< 145> 

140 POKE S+B,A:B=B+1 

<139> 

150 IF ST< >64 THEN 130 

< 131 > 

160 CLOSE 1 

< 171 > 

170 FOR A=1 TO 11 

<253> 

100 READ C1,C2:CI=C1+S:C2“C2+S 

<029> 

190 C3=INT(C2/256):C4=C2—C3*256 

<148> 

200 POKE Cl,C4:POKE C1+1,C3 

< 112> 

210 NEXT 

<220> 

220 POKE S+435,T*32 

<172> 

230 PRINT"<CLR,4D0WN,5SPACE>ABSPEICHERN ?' 

<030> 

240 POKE 198,0:WAIT 190,1:GET A* 

<164> 

Listing 6. »circle mover« - zum Anpassen der Maschinen- 
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C 64 


250 

XF A*="N"THEN PRINT"ICLR>":END 

<172> 

260 

IF A*<>"J"THEN 190 

< 193> 

270 

SYS (57812)"CIRCLE"+STR*(S>,8,1 

<157> 

2B0 

S1=INT(S/256):S2=S-S1*256 

< 132> 

290 

POKE 193,S2:POKE 194,31 

<067> 

300 

S=S+465:S1=INT(S/256)3 S2=S-S1*256 

<213> 

310 

POKE 174,S2:POKE 175,S1 

<087> 

320 

SYS 62954 

<030> 

330 

PRINT"<CLR>"lEND 

<014> 

340 

3 

<062> 

330 

1 

<072> 

1000 DATA 31,232,51,232,125,136,153,236 

<222> 

1010 DATA 214,256,221,46,228,256,295 

<043> 

1020 DATA 322,306,322,328,335,356,360 

<099> 


Listing 6. Schluß 



370 SYS CIRCLE,X,Y.R-D-l,R1-D-1 

<226> 

380 SYS CIRCLE,X,Y,R-D-2,Rl-D-2 

<242> 

390 SYS REVERSE 

<009> 

400 FOR A=1 TO D 

<062> 

410 SYS CIRCLE,X,Y,R-A,R1-A 

<051 > 

420 NEXT A 

< 186> 

430 GOTO 300 

<120> 

440 s 

< 162> 

450 s 

< 172> 

1000 DATA 169,0,168,162,32,132,20,134 

<065> 

1010 DATA 21,145,20,200,208,251,232,224 

<048> 

1020 DATA 64,208,244,96,160,0,162,32 

< 175> 

1030 DATA 132,20,134,21,177,20,73,255 

<055> 

1040 DATA 145,20,200,208,247,232,224,64 

<033> 

1050 DATA 208,240,96 

<095> 

Listing 7. Schluß 



10 REM ###**######*#**«#*##»## 

< 151 > 


100 

IF Z"=0 THEN Z=l:LOAD"BRAFIK MODUL",8,1 

< 181 > 

20 REM * "CIRCLE DEMO” 

« 

< 197> 


110 

CLS=93B:PLOT=B20 

< 118> 

30 REM * VON LEIF KOBBELT 

# 

<008> 


120 

POKE 53265,59:POKE 53272,24 

< 141 > 

40 REM # 7500 KARLSRUHE 1 

* 

< 179> 


130 

SYS CLB:PRINT"CCLR>" 

< 111 > 

50 REM * GRAF-RHENASTR. 23 

# 

<201 > 


140 

| 

<116) 

60 REM ##**»#*#»*##****#**#»*# 

<201 > 


150 

X0=160:Y0=100:XR=99 3 YR=30 

<177> 

70 3 


<046> 


160 

W=30 

<203> 

B0 3 


< 056 > 


170 

g 

<146> 

100 IF A=0 THEN A=1s LOAD"CIRCLE.CODE",8,1 

<242> 


180 

T=”SIN(W»±/1B0) :S=SQR(1-T*T) s Y2=0 

<176> 

110 s 


<086> 


190 

FOR A=XR TO 0 STEP—1 

< 164> 

120 FOR A=82B TO 870s READ BsPOKE 

A,Bs NEXT 

<225> 


200 

DY=5QR(XR*XR-A*A)*YR/XR:DX=As Y3=DY 

< 102> 

130 GCLEAR=B28s REVERSE=B4B: CIRCLE=49152 

<129> 


210 

X1=S»DX+T«DY:V1=S*DY-T*DX 

<010> 

140 3 


< 116> 


220 

SYS PLOT,X0+X1,Y0+Y1 

<250> 

200 POKE 53265,59.-P0KE 53272,24: PRINT" £CLR 



230 

SYS PLOT.X0-X1,Y0-Y1 

<009> 

>" 


< 114> 


240 

Xl=-S*DX+T*DYs Y1=-S*DY-T*DX 

<190> 

210 SYS GCLEAR 


<134> 


250 

SYS PLOT,X0—XI,Y0+Y1 

<028> 

220 3 


<196> 


260 

SYS PLOT,X0+X1,Y0—Y1 

<037> 

300 X=INT(RND(42)#320) 


<064> 


270 

IF DY>Y2+1 THEN DY=DY-l:BOTO 210 

< 164> 

310 Y=INT(RND(42)*200) 


<254 > 


280 

Y2=Y3 

<050> 

320 R=INT(RND(42)»50)+25:R1=R*.9 


<036> 


290 

NEXT A 

<056> 

330 D=INT(RND(42)*10)+3 


<224> 


300 

. 

<022> 

340 SYS REVERSE 


<215> 


310 

POKE 198,0:WAIT 198,1:PRINT"<CLRJ" 

< 117> 

350 SYS CIRCLE,X,Y,R,RI 


< 159 > 

c 

320 Ff'''. 53265,273 POKE 53272,21 

<025> 

360 SYS CIRCLE,X,Y,R+1,R1+1 


<095> 





Listing 7. Mit diesem Demoprogramm lassen sich 



Listing 8. Durch Kombinationen der beiden Methoden zum 

zusammen mit Listing 5 Kreise extrem schnell 



Zeichnen von Kreisen lassen sich auch Ellipsen in ver- 

erzeugen. 




schiedenen Raumlagen darstellen. 



Die 64-Zeidienknrle 
für den C 64 


Ohne irgendwelche Hardwareerweiterung bringt 
»Hypra-Screen« 64 Zeichen pro Zeile auf den Bild¬ 
schirm des C64. Lassen Sie sich überraschen, 
die außergewöhnliche Zeilenbreite hat enorme 
Vorteile. 

M it mehr als 40 Zeichen in einer Zeile auf dem Bild¬ 
schirm des C 64 zu arbeiten, ist eine feine Sache. Es 
gibt Softwarelösungen, die bis zu 80 Zeichen auf 
dem Bildschirm unterbringen. Dies gelingt zwar auf einem 
monochromen Monitor recht gut, bei Farbmonitoren oder 
normalen Fernsehern geht dies jedoch auf Kosten der Les¬ 
barkeit. Das Programm Hypra-Screen schließt einen Kom¬ 
promiß zwischen vielen Zeichen auf dem Bildschirm einer¬ 
seits und guter Lesbarkeit der Zeichen andererseits. Somit 
kann man bei diesem Programm 64 Einzelzeichen in einer 
Zeile mit guter Lesbarkeit darstellen. Insgesamt verfügt man 
mit Hypra-Screen also über einen Bildschirm von 1600 Zei¬ 


chen. Obwohl sich dadurch in Basic übersichtlicher program¬ 
mieren läßt als auf dem normalen 40-Zeichen-Bildschirm, gilt 
es zwei wichtige Punkte zu beachten: Die Länge einer Basic- 
Zeile ist auf 64 Zeichen begrenzt. Außerdem gilt eine Farbän¬ 
derung des Cursors nicht mehr nur für den Cursor allein, son¬ 
dern immer für einen Block von 8 Zeichen. Einzelne Zeichen 
nebeneinander können nicht mehr abwechselnd verschie¬ 
dene Farben annehmen, sondern nur noch ganze 8 Zeichen 
lange Blöcke. 

Solange dies beachtet wird, können Sie in Basic übersicht¬ 
licher programmieren oder größere Tabellen als zuvor auf 
dem Bildschirm darstellen, um nur einige Beispiele zu nen¬ 
nen. Nachdem Sie das Listing zu Hypra-Screen mit dem MSE 
aus dieser Ausgabe eingegeben und gespeichert haben, 
können Sie es als Basic-Programm normal laden und starten. 
Der C 64 wird sich dann in Sekundenschnelle mit dem neuen 
Bildschirm und 24767 Basic-Bytes freimelden. Das Pro¬ 
gramm liegt im Bereich von $0801 bis $1800. 

(Peter van der Pols/jk) 
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❖ ❖ 
❖❖❖ 
<S“0> 


HIRES-MASTER 



Geschwindigkeit ist Trumpf... 


...wenn’s um Grafik geht. Wenn Sie dazu noch 
fünf Bildschirme verwalten und mit mehr als 40 
hochwertigen Befehlen und neuen Effekten 
arbeiten möchten, ist »HiRes-Master« genau das 
Richtige für Sie. 

D a das Basic V2 des C64 leider nicht über Befehle ver¬ 
fügt, mit denen die hochauflösende Grafik ohne POKEs 
programmiert werden kann, sind einige Basic-Erweite- 
rungen erhältlich, die speziell auf Grafik zugeschnitten sind. 

»HiRes-Master« ist eine Grafikerweiterung, die sich aber in 
vielen Beziehungen von anderen Erweiterungen unterschei¬ 
det. So wurde konsequent Wert auf Geschwindigkeit gelegt. 
Das heißt, daß die meisten Befehle in bezug auf Schnelligkeit 
weit über dem Durchschnitt liegen. So setzt der LINE-Befehl 
zum Beispiel mehr als 13000 Punkte pro Sekunde! Auch 
Kreise oder ausgefüllte Rechtecke zeichnet das Programm 
in Windeseile. Hier nun die Leistungsmerkmale von »HiRes- 
Master«: 

- Mehr als 30 Befehle für die hochauflösende Grafik 
- Sehr komfortabler FILL-Befehl 
- Befehle zum Zeichnen sind schneller als in anderen 
Erweiterungen 
- Befehle abkürzbar 

- Angabe von Einsprungadressen, dadurch Bedienung 
auch von Maschinensprache aus möglich 
- Bis zu fünf Grafikseiten 

Alle 43 Befehle von HiRes-Master sind abkürzbar. Die Be¬ 
fehle lassen sich problemlos in bestehende Basic-Program- 
me einbauen. 

Nach IF darf das THEN entfallen, so daß Befehle direkt hin¬ 
ter dem Vergleich stehen können. 

HiRes-Master bietet dem Benutzer vier Grafikseiten, in 
denen gezeichnet werden kann. Eine fünfte kann zum Zwi¬ 
schenspeichern verwendet werden. Mit diesen Grafikseiten 
ist verdecktes Zeichnen problemlos möglich. Während in der 


ersten Grafik gezeichnet wird, sieht der Benutzer eine schon 
bestehende Grafik. Wenn das Bild fertig ist, wird einfach 
umgebl°*>iiet (sogar flackerfrei möglich). 

Zum Zeichnen stehen drei Modi zur Verfügung: Zeichnen, 
Löschen und Invertieren. Eine Ausnahme bildet dabei der 
FILL-Befehl, der nur im Modus Zeichnen zu Verfügung steht. 
Mit ihm ist nur Zeichnen möglich. Das muß aber kein Nachteil 
sein, wenn man dafür eine nur selten in Grafikerweiterungen 
verwirklichte Funktion zur Verfügung hat: das Füllen mit 
Mustern. 

Weil eine Grafik ohne Beschriftung meistens nur eine halbe 
Sache ist, gibt es einen komfortablen TEXT-Befehl. Mit ihm ist 
es problemlos möglich, Texte an jede Stelle in die Grafik zu 
schreiben. Der Text kann sogar in Spiegelschrift erscheinen. 

Mit dem CIRCLE-Befehl werden die schnellsten und ge¬ 
nauesten Kreise gezeichnet, die auf dem C 64 möglich sind. 
Kreise sind echte Kreise und keine Vielecke. Jeder Punkt hat 
den kleinstmöglichen Abstand zum Idealkreis (ähnlich der 
LINE-Routine, wo jeder Punkt den kleinsten Abstand zur 
Ideallinie hat). Ellipsen werden nicht so schnell gezeichnet 
wie Kreise, denn der Rechenalgorithmus ist aufwendiger. 
Das vermindert zwar die Geschwindigkeit, erhöht aber die 
Genauigkeit. 

Zusätzlich gibt es noch den ARC-Befehl, der nach dem 
gleichen Muster wie der Ellipsenbefehl arbeitet, mit dem 
Unterschied, daß sich hier Kreis- oder Ellipsenausschnitte 
zeichnen lassen. 

Es existiert noch ein FCIRCLE-Befehl, mit dem ausgefüllte 
Kreise in hoher Geschwindigkeit gezeichnet werden. 

Zur Veränderung von bestehenden Grafiken gibt es Be¬ 
fehle wie ROLL, SCROLL, DUPLICATE, XMIR und YMIR, um 
einen Grafikausschnitt zu verschieben, zu kopieren oder an 
der X- beziehungsweise Y-Achse zu spiegeln. 

Besitzereines MPS 801-Druckers können sich freuen. Er¬ 
stellte Grafiken lassen sich im Normalformat oder in doppelt 
großer Ausführung ausdrucken. 

Um das Umkopieren von zwei Grafikseiten interessant zu 
gestalten, gibt es den EFFEKT-Befehl mit 128 Möglichkeiten 
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Bild 1. Sie können so viele Muster darstellen, wie Sie 
möchten 


Bild 2. Der FILL-Befehl kann auch für Graustufen »miß¬ 
braucht« werden 


zum Überblenden. Bildschirme können mit ECLS auf eine 
ansehnliche Art und Weise gelöscht werden. 

Will man zwei Grafikseiten oder Grafik und Text gemeinsam 
darstellen, kann man den WINDOW-Befehl benutzen. Es 
brauchen nur zwei Rasterzeilen, an denen umgeschaltet 
wird, festgelegt werden. Alle Grafikseiten, auch die, die unter 
dem Betriebssystem liegt ($E000), können gespeichert und 
geladen werden. Und das unabhängig davon, ob die Grafik 
ausgeschaltet ist, da sie weder beim Ein- noch beim Aus¬ 
schalten gelöscht wird. Am Ende eines Programms oder bei 
dem Auftreten eines Fehlers wird die Grafik abgeschaltet. 
Außerdem sorgt eine eigene NMI-Routine dafür, daß selbst 
bei <RUN/STOP+RESTORE> die Grafik ab $E000 nicht 
zerstört wird. Eine Grafik in diesem Bereich belegt keinen 
Basic-Speicherplatz. 

Befehlsbeschreibung: 

Zuvor noch ein paar Hinweise auf Abkürzungen, die bei der 
Erklärung der Befehle und deren Format benutzt werden: 
x: ist die X-Koordinate. Sie darf Werte von 0 bis 319 anneh¬ 
men. 

y: ist die Y-Koordinate. Sie kann zwischen 0 und 199 lie¬ 
gen. 

Hier nun die Beschreibung aller in HiRes-Master enthalte¬ 
nen Befehle. In der Klammer hinter dem Befehlswort steht die 
Abkürzung. Das Zeichen hinter dem Apostroph ist geSHIFTet 
einzugeben (bei H'E drücken Sie zum Beispiel < H > < SHIFT 
+ E >). Die Zeichenbefehle wirken alle auf die aktuelle Grafik, 
die mit PAGE geändert werden kann. 

1. HELP (H'E) 

Listet alle verfügbaren Befehlswörter von HiRes-Master. 

2. INIT (INI) 

Initialisiert die Erweiterung (setzt Vektoren, Farbe und 
löscht die Grafik). 

3. CLS (-) 

Löscht eine Grafik. Alle Bytes dieser Grafik werden auf Null 
gesetzt. 

4. COLOR pf.hf (CO'L) 

Setzt die Farben in der Grafik, mit »pf« als Punkt- und »hf« 
als Hintergrundfarbe, »pf« und »hf« dürfen entsprechend den 
16 Farben des C64 nur Werte von 0 bis 15 annehmen. 

5. GRON (G’R) 

Schaltet die $EOOO-Grafik ein. 

6. GROFF (GRO’F) 

Schaltet beliebige Grafik wieder aus und stellt den Zustand 
her, der vor dem Einschalten mit GRON zu sehen war. 

7. MODE m (M’O) 

Wechselt den Zeichenmodus. Man kann zwischen Lö¬ 
schen (m=0), Zeichnen (m = 1) und Invertieren (m=2) wäh¬ 
len. 


8. PLOT x,y (P'L) 

Zeichnet einen Punkt in die Grafik an die Stelle x/y. 

9. LINE x1,y1,x2,y2 (LI’N) 

Zeichnet eine Linie in die aktuelle Grafik. Sollte der Sonder¬ 
fall einer Horizontal- oder Vertikallinie eintreten, wird zu 
schnelleren Unterroutinen verzweigt. 

10. a:CIRCLE xm,ym,r (CI) 
b:CIRCLE xm,ym,rx,ry (C'l) 

zu a: Zeichnet einen Kreis mit xm/ym als Mittelpunkt und 
dem Radius r, der Werte zwischen 0 und 255 annehmen darf. 

zu b: Zeichnet Ellipsen mit xm/ym als Mittelpunkt, »rx« und 
»ry« (0 bis 128) geben die Radien in X- und Y-Richtung an. 

11. BLOCK x1,y1,x2,y2 (B’L) 

Zeichnet ein ausgefülltes Rechteck mit xl/yl als linker 
Oberer EoLe und x2/y2 als rechter unterer Ecke. 

12. BOX x1,y1,x2,y2 (B’O) 

Zeichnet ein Rechteck mit xl/yl als linker oberer Ecke und 
x2/y2 als rechter unterer Ecke. 

13. FILL x,y (Fl) 

Füllt einen Bildschirmausschnitt beliebiger Größe und 
Form mit einem Muster. Der Punkt X/Y muß innerhalb der aus¬ 
zufüllenden Fläche liegen. 

14. SETMSK fm,m$ (S'E) 

Definiert ein Muster für den FILL-Befehl. Es können bis zu 
acht Muster intern gespeichert werden. Welches der acht 
Muster definiert werden soll, läßt sich mit »fm« auswähien. 
»fm« kann Werte zwischen 0 und 7 annehmen. Der FILL-Be¬ 
fehl benutzt ausschließlich Muster 0 zum Füllen (Bild 1 und 
2 ). 

Ein Muster besteht aus 16 Zeilen mit jeweils 16 Punkten. 
Jede Zeile wird durch vier Hexadezimalzahlen dargestellt. 
Das heißt: Eine Hex-Zahl legt die Formation von vier Punkten 
fest. Eine Hex-Zahl entspricht vier Bit oder einer 4stelligen 
Dualzahl: 


Hex-Zahl 

Dezimal 

Binar 

Hex 

Dex 

Bin 

0 

0 

0000 

8 

8 

- 1000 

1 

1 

0001 

9 

9 

- 1001 

2 

2 

0010 

A 

10 

- 1010 

3 

3 

0011 

B 

11 

- 1011 

4 

4 

0100 

C 

12 

- 1100 

5 

5 

0101 

D 

13 

- 1101 

6 

6 

0110 

E 

14 

- 1110 

7 

7 

0111 

F 

15 

- 1111 


Links steht die Hex-Zahl, in der Mitte die Dezimalzahl und 
rechts das Bit-Muster (Dualzahl). Jede »1« entspricht einem 
gesetzten, jede »0« einem nicht gesetzten Punkt. 
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Bild 3. Ein mit dem ROLL-Befehl verschobener Bildschirm¬ 
ausschnitt 

Für das nachfolgende Muster sind alle Hex-Zahlen mit auf¬ 
geführt, darunter findet man ein Beispiel des Befehls: 

1. 2. 3- 4. 


0000 0000 

0000 

0000 

0 

0 

0 

0 

0000 0011 

1100 

0000 

0 

3 

C 

0 

0000 1111 

1100 

0000 

0 

F 

C 

0 

0001 1111 

1100 

0000 

1 

F 

C 

0 

0011 1100 

0011 

1111 

3 

C 

3 

F 

0011 1000 

0011 

1110 

3 

8 

3 

E 

0111 0000 

0011 

1100 

7 

0 

3 

C 

0111 0000 

0000 

0000 

7 

0 

0 

0 

0111 0000 

0000 

0000 

7 

0 

0 

0 

0111 0000 

0011 

1100 

7 

0 

3 

C 

0011 1000 

0011 

1110 

3 

8 

3 

E 

0011 1100 

0011 

1111 

3 

C 

3 

F 

0001 1111 

1100 

0000 

1 

F 

c 

0 

0000 1111 

1100 

0000 

0 

F 

c 

0 

0000 0011 

1100 

0000 

0 

3 

c 

0 

0000 0000 

0000 

0000 

0 

0 

0 

0 

SETMSK 0, 

''000003COOFC01FC03C3F383E703C7000 


7000703C383E3C3F1FC00FC003C00000 


Der String hat also eine Länge von 64 Zeichen (pro Zeile 
vier Hex-Zahlen macht bei 16 Zeilen 4 x 16 = 64 Zeichen). 
Sehen Sie sich das Muster doch mal an: 

GRON:CLS:CIRCLE160,100,50:FILL160,100:WAIT198,1 
Der WAIT-Befehl wartet auf eine Taste. 

15. CHAMSK ma1,ma2 (CH’A) 

Vertauscht die intern gespeicherten Masken miteinander, 
»mal« und »ma2« dürfen Werte zwischen 0 und 7 annehmen. 

16. STOMSK ma1,ma2 (STO’M) 

Kopiert die Maske mit Nummer »mal« über die Maske Num¬ 
mer »ma2«. 

17. ROLL r,x1,y1,x2,y2 (R’O) 

Rollt einen Grafikausschnitt um einen Punkt, »xl/yl« kenn¬ 
zeichnen die linke obere und »x2/y2« die rechte untere Ecke. 
Der Parameter »r« bestimmt die Richtung: 
r=0 - rechts 
r= 1 - links 
r=2 - oben 
r=3 - unten 

Rollen bedeutet, daß keine Punkte beim Verschieben verlo¬ 
rengehen. Alle aus dem Bildschirm hinausgeschobenen 
Punkte werden auf der gegenüberliegenden Seite wieder 
hineingeschoben (Bild 3). 

18. SCROLL r,x1,y1,x2,y2 (S’C) 

Die Parameter des SCROLL-Befehls entsprechen denen 
des ROLL-Befehls. Im Unterschied zum ROLL-Befehl gehen 
alle hinausgeschobenen Punkte verloren. 


HIRES-MASTER 

XMttLICfl I ECWHLdtt 


Hia3s-wusi3a 

XHHWmtfl I 


XMnmcn i 

Hia3s-uys±3a 

XmMUW I £CÜ)I-U1U 

HIRES-MASTER 

Bild 4. Texte vielseitig auf den Bildschirm gebracht 


19. TEXT x,y,t$ (TE) 

Der Text, der in »t$« steht, wird an Position x/y in die Grafik 
geschrieben. Im String dürfen folgende Cursor-Steuerzei¬ 
chen Vorkommen: 

CLR, HOME, CRSR+UP/DOWN/LEFT/RIGHT, RETURN, 
CTRL+N (CHR$(14) Kleinschrift), CHR$(142) (Großschrift), 
RVS ON und RVS OFF. 

20. SIZE vx,vy,ax,ay(,d) (SI’Z) 

Der Befehl SIZE gibt die Vergrößerung der mit TEXT auszu¬ 
gebenden Zeichen an: »vx« steht für die X-Richtung und »vy« 
für die Y-Richtung. »ax« und »ay« definieren den Abstand zum 
nächsten Zeichen. Werden den Variablen ax beziehungs¬ 
weise ay negative Werte zugewiesen, läßt sich der Text ent¬ 
sprechend in alle vier Richtungen ausgeben, »d« (von 0 bis 
3) gibt d!v Anzahl der 90-Grad-Drehungen eines Zeichens 
an. Es wird gegen den Uhrzeigersinn gedreht. (Es versteht 
sich von selbst, daß SIZE vor dem TEXT-Befehl im Programm 
stehen muß, damit die Parameter richtig wirken) (Bild 4 und 
5). 

21. ARC xm,ym,rx,ry,sw,ew (A’R) 

Mit diesem Befehl können auf einfache Art und Weise Ellip¬ 
senausschnitte gezeichnet werden, »xm/ym« geben wieder 
die Koordinaten des Mittelpunktes an und »rx/ry« die Radien 
in X- beziehungsweise Y-Richtung. »sw« ist der Startwinkel 
und »ew« der Endwinkel. Null Grad liegt, wie bei einer Uhr, 
senkrecht über dem Mittelpunkt. Es wird im Uhrzeigersinn 
gezeichnet. Wollen Sie zum Beispiel einen 270-Grad-Aus- 
schnitt aus einer Ellipse zeichnen, so muß der Endwinkel um 
270 Grad größer sein als der Startwinkel. Beispiel: Eine Ellip¬ 
se im Mittelpunkt der Grafik: 

GRON:CLS:M0DE1:ARC160,100,90,30,45,315:WAIT198,1 

22. RAD xm,ym,rx,ry,w (RA) 

Dieser Befehl zeichnet einen Radius in eine imaginäre Ellip¬ 
se. »xm/ym/rx/ry« wie oben, »w« gibt den Winkel an, unter 
dem der Radius gezeichnet wird (w von 0 bis 360 Grad). 

23. FCIRCLE xm,ym,r (F’C) 

FCIRCLE zeichnet gefüllte Kreise, »xm/ym« definieren wie¬ 
der den Mittelpunkt, »r« stellt den Radius dar, den der ausge¬ 
füllte Kreis haben soll. Es sind Werte zwischen 0 und 255 
erlaubt. 

24. EC LS verz (E'C) 

ECLS löscht die Grafik, »verz« (0 bis 255) gibt die Ge¬ 
schwindigkeit des Löschens an. Der Grafikschirm wird effekt¬ 
voll gelöscht. Lassen Sie sich überraschen! 

25. REVERS (RE'V) 

Invertiert eine Grafik. Gesetzte Punkte werden zu gelösch¬ 
ten und umgekehrt. 

26. FIGURE x,y,f$ (FI’G) 

In »f$« sind die relativen Koordinaten einer Figur gespei¬ 
chert. Den Zahlen von 1 bis 8 im String kommt die besondere 
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Bedeutung der Koordinatenspeicherung zu: Eine »1« bedeu¬ 
tet < Schritt nach oben>, »2« < Schritt nach rechts >. Eine 
»3« bedeutet < Schritt nach unten > und eine »4« < Schritt 
nach links >. Bei den nachfolgenden Zahlen wird erst ein 
Punkt gesetzt (im Sinne des Zeichenmodus) und dann ein 
Schritt in die Richtung gemacht, die die Zahlen angeben. Eine 
»5« bedeutet < Plotten und Schritt nach oben >, »6«, »7« und 
»8« jeweils < Plotten und Schritt nach rechts, unten oder 
links >. Soll zum Beispiel ein Quadrat gezeichnet werden, so 
muß »f$« so definiert werden: 
f$="5678" 

Der Befehl lautet dann: 

FIGURE 160,100,"5678" 
oder 

FIGURE 160,100,f$ 

Aber was sieht man in der Grafik? Einen dicken Punkt. Das 
Quadrat hat die Ausdehnung 2 an jeder Seite. Man könnte 
jetzt jede Zahl in f$ vervielfachen, aber es gibt noch einen 
anderen Weg: Den Befehl TURN. 

27. TURN v,d (TU) 

Mit TURN kann die mit FIGURE zu zeichnende Figur ver¬ 
größert und gedreht werden, »v« entspricht dem Vergröße¬ 
rungsfaktor und kann Werte zwischen 0 und 255 annehmen, 
»d« (0 bis 7) gibt die Anzahl der 45-Grad-Drehungen an. Der 
Wert 3 dreht die Figur um 135 Grad (3*45=135). Da TURN 
den Befehl FIGURE beeinflußt, muß TURN vor FIGURE ste¬ 
hen, damit er wirken kann. 

28. XMIR x1,y1,x2,y2 (X'M) 

Mit dem Befehl XMIR wird der Grafikausschnitt, den xl/yl 
und x2/y2 eingrenzen, an der X-Achse gespiegelt (auf den 
Kopf gestellt). 

29. YMIR x1,y1,x2,y2 (Y’M) 



2I31SVM —S3ÜIH H I RES-MASTER 



Der Befehl ist gleichbedeutend mit XMIR, mit dem Unter¬ 
schied, daß der Grafikausschnitt an der Y-Achse gespiegelt 
wird (Seitenverkehrt). 

30. PAGE p1,p2 (PA) 

Mit dem Befehl PAGE wird festgelegt, in welcher Grafik ge¬ 
zeichnet wird und welche sichtbar ist. »pl« stellt die Grafik 
ein, in der gezeichnet wird, »p2« die, welche sichtbar ist. »pl« 
und »p2« können Werte von 0 bis 7 annehmen. Aber nicht 
jeder Wert entspricht einem anderen Grafikspeicher. Die 


Ausführliche Informationen 
zu ausgewählten Themen finden 
C64^Anwender in zwei 
weiteren aktuellen 


64’er 


SONDERHEFTEN 


SONDERHEFT 10: C 128 II 



Sonderheft 9 
und 10 noch 
bis 27.10. 
erhältlich. 


Ausführliche Erklärungen zum Maschinensprachemonitor 
TEDMON im C 128. Baslc-Programmanlpulationen und deren 
tolle Effekte zeigen ausführliche Anwendungsbeispiele. CP/M- 
Freunde finden Tips und Tricks zu Wordstar, dBase, Multiplan 
und CP/M. Wir stellen die zwei neuen CP/M-Basic Varianten 
Microsoft-Basic und C 
Basic vor. Ergründen Sie 
erstmals den kompletten 
Schaltplan vom C 128. 

Interessant: die IEEE 
Schnittstelle zum 
Seiberbauen. 


SONDERHEFT 09: FI0PPY & DATENVERWALTUNG 



Ab Sonden 
lieft 11 im 
monatlichen 
Wechsel. 


Alles über Diskettenlaufwerke für C16, Plus/4, C 64 und 
C128. Die Laufwerke 1541, 1551, 1570 und 1571 werden 
vorgestellt. Großer Vergleichstest der Floppy-Speeder. Ein 
ausführlicher Floppy-Kurs erklärt von den wichtigsten Grund¬ 
lagen bis zu den kniffligsten Anwendungen den Umgang mit 
dem 1541-Laufwerk. Die 


neue Version 4 mit inte¬ 
griertem S-MON für alle 
64'er-DOS-Besltzer. In¬ 
tensive Kurse über Datei- 
en-Programmierung In 
sic und Maschinenspra¬ 
che. C128-Besitzer er¬ 
wartet ein Diskettenmoni¬ 
tor, ein dBase Il-Kurs und 
ein Autostartprogramm. 
Viele Listings zum 
Abtippen. 
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Bild 6. DUPLICATE kopiert Bildschirmausschnitte in Jeder 
Größe 



Bild 7. Durch Duplizieren und Verschieben von Bildbereichen 
lassen sich reizvolle Effekte erzielen 


Werte »0«, »5«, »6« und »7« beschreiben alle den Grafikspei¬ 
cher ab $E000. Hier eine Tabelle über die PAGE-Werte mit 
den dadurch eingeschalteten Grafik- und Farbspeichern: 


Wort 

Hex 

Grafikadresse 

Dez 

Hex 

Farbadrosse 

Dez 

0 

$E000 

57344 

$DC00 

56320 

1 

$2000 

8192 

$0800 

2048 

2 

$4000 

16384 

$6000 

24576 

3 

$6000 

24576 

$5C00 

■ 23552 

(4) 

$8000 

32768 

$8000 

32768 

5 

$E000 

57344 

$DC00 

56320 

6 

$E000 

57344 

$DC00 

56320 

7 

$E000 

57344 

$DC00 

56320 


Voreingestellt (nach dem ersten Start) ist PAGE 7,7. Die 
Grafikseite 4 kann nicht angezeigt werden, da dort der Zei¬ 
chensatz eingeblendet ist. Diese Grafik wird beim FILL- 
Befehl zum Zwischenspeichern benutzt. 

31. DUPLICATE x1,y1,x2,y2,x,y(,p1,p2) (D'U) 

DUPLICATE kopiert Bildschirmausschnitte. Dabei geben 

xl/yl und x2/y2 (links oben und rechts unten) die Eckpunkte 
eines rechteckigen Ausschnitts an, der so kopiert wird, daß 
x/y die neue linke obere Ecke angeben, »pl« und »p2« sind 
PAGE-Parameter. Sie sind optional anzuwenden. Hiermit ist 
es möglich, einen Grafikausschnitt von einer Grafikseite in 
eine andere zu kopieren. Es wird von pl nach p2 kopiert, 
wobei pl und p2 die Nummern der beim PAGE-Befehl aufge¬ 
führten Grafikspeicher darstellen (Bild 6 und 7). 

32. CONNECT p1,p2,mo (CON’N) 

CONNECT verknüpft einzelne Grafikseiten miteinander. Es 

33a? 


wird pl mit p2 verknüpft und das Ergebnis nach p2 geschrie¬ 
ben. »mo« gibt die Art der Verknüpfung an: 
mo=0 - Kopieren 
mo=1 - OR-Verknüpfung 
mo=2 - AND-Verknüpfung 
mo=3 - EXOR-Verknüpfung 

33. SWAP p1,p2,mo (S’W) 

Mit dem SWAP-Befehl werden zwei Grafikseiten miteinan¬ 
der verknüpft und gleichzeitig vertauscht, »pl« wird mit »p2« 
verknüpft, dann p2 nach pl kopiert und danach das Ergebnis 
der Verknüpfung nach p2 geschrieben, »mo« hat die gleiche 
Bedeutung wie bei CONNECT. 

34. EFFECT p1,p2,a,verz (E’F) 

Mit EFFECT werden zwei Grafikseiten miteinander ver¬ 
tauscht. »a« gibt die Art der Vertauschung an. Es sind Werte 
von 0 bis 255 erlaubt, wobei bei den geraden Zahlen das glei¬ 
che Ergebnis wie bei den nächst höheren ungeraden Zahlen 
zu erwarten ist. »verz« gibt die Wartezeit an, nachdem ein 
Byte kopiert wurde (0 bis 255). 

35. GSAVE p,fi$,ga (G’S) 

Die Grafik mit der Nummer »p« wird unter dem Namen »fi$« 
auf dem Gerät mit der Geräteadresse »ga« gespeichert. Die 
Bildschirmfarbe wird dabei der Rahmenfarbe gleichgesetzt. 

36. GLOAD p,fi$,ga (G’L) 

Die Grafik mit Namen »fi$« wird vom Gerät mit Geräte¬ 
adresse »ga« in den Grafikspeicher »p« geladen. 

37. WINDOW r1,r2,p1,p2 (W’l) 

Mit dem WINDOW-Befehl läßt sich der Bildschirm in zwei 
Bereiche aufteilen: von Rasterzeile »rl« bis Rasterzeile »r2« 
wird die Grafik »pl« dargestellt und von Rasterzeile »r2« bis 
zum unteren Rand Grafik »p2«. Will man statt zwei Grafiken 
Text und Grafik darstellen, muß statt der Grafiknummer ein 
Wert von 128 eingesetzt werden. WINDOW speichert beim 
Aufruf di" tktuellen VIC-Werte und setzt sie dann, wenn der 
TEXT-Modus angewählt ist, also ein Wert von 128 im WIN¬ 
DOW-Befehl steht. 

Deshalb ist es ratsam, den Befehl bei ausgeschalteter Gra¬ 
fik zu aktivieren. Gibt man nur WINDOW ein, wird der Zustand 
vor dem Einschalten wieder hergestellt. 

38. COPY p(,1) (CO'P) 

Mit diesem Befehl wird eine Hardcopy im MPS 801-Format 
an den Drucker gesandt. Der Seikosha GP 100 VC und Ep- 
son-Drucker mit zum Beispiel Data-Becker-Interface drucken 
ebenfalls diese Hardcopies, »p« gibt auch hier die Grafikseite 
an, die gedruckt werden soll. Zum Ausgeben einer invertier¬ 
ten Grafik muß ein Wert von 128 zum Page-Wert addiert wer¬ 
den. Soll die Hardcopy über eine volle Seite gehen, so wird 
noch »,1« an den Page-Wert angehängt. 

39. CSET x.y.pf(.hf) (C’S) 

Mit CSET werden gezielt Farben gesetzt, »pf« gibt die 
Punktfarbe und »hf« die Hintergrundfarbe an. »hf« kann alter¬ 
nativ verwendet werden. 

40. OPTION ON/OFF (OP’T) 

Nach dem Start von HiRes-Master befindet man sich im 
OPTION ON-Modus. Alle HiRes-Master-Befehle werden 
beim LISTen invertiert dargestellt. Abschalten kann man das 
durch OPTION OFF. 

41. OFF (O'F) 

Schaltet HiRes-Master aus und initialisiert alle Vektoren wie 
bei < RUN/STOP+RESTORE >. 

FUNKTIONEN 

42. TEST (x,y) (TE’S) 

Der Funktionswert wird »1«, wenn ein Punkt an der Stelle 
x/y gesetzt war, ansonsten »0«. 

43. CTEST (x,y,pp) (C’T) 

Hiermit wird die aktuelle Farbe an der Stelle x/y getestet. 
Ob Vorder- oder Hintergrundfarbe wird mit »pp« entschieden: 
pp=0 testet die Punktfarbe 
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Bild 8 bis 13. Geschwindigkeitsvergleich mit verschiedenen 
Grafikerweiterungen 



Bild 9. Zeichnen eines Punktes 


Spezialroutinen, die von anderen Routinen aufgerufen wer¬ 
den, sind durch ein Sternchen (*) gekennzeichnet. 


pp=1 testet die Hintergrundfarbe. 

Das Testergebnis ist immer der Farbcode (eine Zahl zwi¬ 
schen 0 und 15). 

Eines der Hauptmerkmale dieser Erweiterung sind die 
extrem kurzen Ausführungszeiten der einzelnen Zeichenbe¬ 
fehle. Wenn hier nur Zeichenbefehle aufgeführt sind, so liegt 
das daran, daß nur diese entsprechend optimiert wurden, 
denn ein Geschwindigkeitsvorteil ergibt sich meistens nur 
durch Einbuße von Speicherplätzen. Dadurch würde das Pro¬ 
gramm einfach zu lang. 


Vergleiche mit anderen Erweiterungen 


Nach dieser Vorrede zu den eigentlichen Zeiten: Verglichen 
wurden fünf Basic-Erweiterungen (HSG-W, Grafik 2000, 
S+G-Basic, G-Basic (von HES) und Simons-Basic). Zur Do¬ 
kumentation dienen die Bilder 8 bis 13. Es wurden die Zeiten 
von sieben Befehlen getestet (alle Zeiten sind Sekunden¬ 
angaben). 

Ihnen ist sicherlich aufgefallen, daß HiRes-Master bei dem 
Befehl TEXT zurückliegt. In der G-Basic-Erweiterung von 
HES-Software gibt es zwar einen TEXT-Befehl, der schneller 
ist als der von HiRes-Master, aber dieser leistet nicht soviel: 

So kann er zum Beispiel nur waagerecht in einer Richtung 
schreiben, keine Buchstaben drehen, und als wichtigsten 
Punkt: er hat nur 40 Spalten und 25 Zeilen zum Positionieren 
des Textes. So viel zu den Befehlen, deren Zeiten und Lei¬ 
stungen. 

Einsprungadressen 

Nun folgt eine Tabelle über die Routine, die der Interpreter 
anspringt, um einen Befehl oder eine Funktion auszuführen. 
Alle Aufrufe werden mit ausgeschaltetem Interrupt (SEI), aus¬ 
geschalteten ROMs und I/O ausgeführt. Also: 

SEI 

LDA #$30 
STA $01 

JSR $XXXX ;BEFEHLS- oder FUNKTIONSADRESSE 

LDA #$37 

STA $01 

CLI 

RTS 

Vor der erstmaligen Benutzung muß das Programm initiali¬ 
siert werden. Dazu springt man so wie oben beschrieben 
nach $A001. Wichtig in diesem Teil ist das Aufstellen einer 
Tabelle, welche die Adressen jeder Grafikzeile enthält Hier 
nun die einzelnen Befehls- und Funktionsnamen und denen 
Adressen im RAM. 


Adresse 

Funktion 

Adresse 

Funktion 

$A001 

- 

Initialisieren < • > 

$B3FF 

- 

SCROLL 

$A08D 

- 

CLS 

$B678 

- 

DUPLICATE 

$A0F5 

- 

COLOR 

SB881 

- 

RAD 

SA124 

- 

GRON 

$B9A6 

- 

REVERS 

$A152 

- 

GROFF 

$B9C0 

- 

GSAVE 

$A173 

- 

PLOT 

$BA27 

- 

GLOAD 

SA1BD 

- 

LINE 

$BA40 

- 

CONNECT 

SA3DC 

- 

HLINE <* LINE > 

$BA9D 

- 

SWAP 

SA4A6 

- 

VLINE <-LINE> 

$BB00 

- 

FIGURE 

$A504 

- 

CIRCLE 

$BB72 

-• 

TURN 

$A613 

- 

BLOCK 

$BB94 

- 

PAGE 

SA71D 

- 

BOX 

SBC 15 

- 

EFFECT 

SA741 

- 

ELLIPSE <• CIRCLE> 

$BCA8 

- 

WINDOW 

SA814 

- 

FILL 

$BD93 

- 

XMIR 

SAA79 

- 

SETMSK 

$BE84 

- 

YMIR 

$AAB2 

- 

CHAMSK 

$BF24 

- 

OPTION 

$AAD9 

- 

STOMSK 

$BF37 

- 

FUNK. TEST 

$AAF8 

- 

ROLL 

$C000 

- 

INIT(Befehl) <•> 

$AAE9 

- 

TEXT 

SC20F 

- 

Neuer IRQ 

SB012 

- 

SIZE 

SC253 

- 

COPY 

SB061 

- 

HELP 

$C41B 

- 

CSET 

SB087 

- 

ECLS 

$C47F 

- 

FUNK. CTEST 

$B109 

- 

ARC 

SC4A3 

- 

Subroutinen < * > 

$8318 


FCIRCLE 

SC797 

- 

Tabellen (bis $CB14) 


Die Adressenangaben beziehen sich auf den Anfang der 
Befehle. Es müssen also noch Parameter geholt werden. 
Dazu wird in den Programmteil »Subroutinen« verzweigt, um 
die entsprechenden Parameter zu holen. Die Adresse 
$A001 wird vom INIT-Befehl aus angesprungen. 

Hier werden alle nötigen Vektoren und Speicherzellen ge¬ 
setzt. HLINE ab $A3DC zeichnet horizontale, VLINE ab 
$A4A6 vertikale Linien. Es wird erwartet, daß sich die Koordi¬ 
naten in den entsprechenden Speicherzellen befinden. 

Bei den meisten Befehlen ist mindestens die Angabe des 
Koordinatenpaares x/y erforderlich (PLOT, LINE, CIRCLE 
etc.), beim LINE-Befehl sogar zwei Paare. Die Speicherzellen 
für diese Koordinaten: (Die X-Koordinate braucht immer zwei 
Speicherzellen, da bei ihr Werte von 0 bis 319 erlaubt sind) 

1. Koordinatenpaar (x/y oder xl/yl): 

X-Koordinate:$AC/AD 

Y-Koordinate:$AE 

2. Koordinatenpaar (x2/y2): 

X-Koordinate:$C1/C2 

Y~Koordinate:$02 

Soll zum Beispiel ein Kreis mit dem Radius 66 in die Mitte 
der Grafik gesetzt werden, so sieht man sich den Programm¬ 
teil ab $A504 an und sucht die Stelle, ab der alle Parameter 
vorn Basic-Interpreter geholt werden (diese Stelle muß über¬ 
sprungen werden, da man ja von Maschinensprache aus 
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einen Kreis zeichnen möchte). Der besagte Einsprung liegt 
bei $A519. Der Radius muß sich vor dem Aufruf im X-Register 
befinden, die Koordinaten des Mittelpunktes in $AC/$AD (X- 
Koordinate) und $AE (Y-Koordinate). 

Das Programm würde nun so lauten: (es liegt im Kassetten¬ 
puffer!) 

033C SEI ;INTERRUPT AUS 

O 33 D LDA #$30 ;SPEICHER KOMPLETT AUF RAM 

033F STA $01 

0341 JSR $A001 ;TABELLE INITIALISIEREN 

0344 LDA # $A0 ;160 LOW-BYTE DER X-K00RDINATE 

0346 LDY #$00 ;0 HIGH-BYTE DER X-K00RDINATE 

0348 LDX #$64 ;100 Y-K00RDINATE 

034A STA $AC ;KOORDINATEN SPEICHERN 

034C STY $AD 

034E STX $AE 


0350 LDX #$42 ;66 (RADIUS) 

0352 JSR $A519 ;EINSPRUNG ZUR KREISROUTINE 
0355 LDA #$37 ;ALTE RAM-ROM-KONFIGURATION 
0357 STA $01 

0359 CLI ;INTERRUPT WIEDER EIN 

035A RTS 

ACHTUNG! Bei den meisten Befehlen werden die Koordi¬ 
naten in ($AC/$AD,$AE) verändert, deshalb sollte man sie, 
falls sie weiter benötigt werden, vorher speichern. 

Eingabehinweise 

Geben Sie bitte die Grafikerweiterung »HiRes-Master« 
(Listing 1) mit dem MSE ein und speichern es. Der Start 
erfolgt mit RUN. Das Listing 2 ist nicht erforderlich, es dient 
nur als Beispiel für die Leistungsfähigkeit von HiRes-Master. 

(Jesko Schwarzer/dm) 



Bild 10. Ein Rahmen wird gezeichnet 


Bild 11. Füllen mit einem Muster 




Bild 13. Schreiben eines Textes 


Name : hires-maater 


0801 3418 


0801 

0809 

0811 

0819 

0821 

0829 

0831 

0839 

0841 

0849 

0851 

0859 

0861 

0869 

0871 

0879 

0881 

0889 

0891 

0899 

08al 

0Ba9 

08bl 


4d 08 
34 34 
49 52 
54 45 
52 49 
20 20 
20 20 
20 42 
4f 20 
5a 45 
00 00 
00 00 
00 aO 
f9 84 
bl f 7 
f 8 e6 
oO cO 
00 00 
45 52 
00 30 
20 42 
49 45 
54 20 


c2 07 
29 20 
46 53 

52 20 
64 54 
20 20 
20 20 
50 20 
d3 43 
62 00 
00 00 
00 00 
aO a2 
fa 86 
91 f 9 
fa ca 
00 00 
00 00 

53 49 
20 4b 
41 4c 
4c 4c 
4d 49 


9e 28 
Oe 05 
2d cd 
49 53 
45 4e 
20 20 
20 20 
ca 45 
48 67 
00 00 
00 00 
00 00 
09 85 
f8 a2 
08 dO 
dO f 2 
00 00 
00 00 
4f 4e 
4f 4d 

44 2e 

45 49 
54 20 


32 31 
22 c8 
41 63 
20 67 
20 20 
20 20 
20 20 
53 4b 


41 

44 


00 00 
00 a9 
f7 85 
2c a8 
f 9 e6 
4c 00 
00 00 
00 d6 
20 32 
4d 54 
20 d6 
43 48 
d2 4f 


3a 

c9 

2c 

07 

3f 

29 

31 

8f 

e7 

4c 

52 

ad 

d5 

da 

8a 

d2 

o2 

37 

4a 

60 

aO 

6e 

c2 


08b9 
08cl 
08c9 
08dl 
08d9 
08el 
08e9 
08f 1 
08f 9 
0901 
0909 
0911 
0919 
0921 
0929 
0931 
0939 
0941 
0949 
0951 
0959 
0961 
0969 
0971 
0979 


54 41 
20 cd 
2e 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
a9 ed 
01 03 
03 8c 
8d 04 
aO cl 
a9 d2 
09 03 
03 8c 
00 aO 
f8 86 
66 f7 
08 a5 
28 a5 
e8 c8 
69 3f 
01 85 


54 45 20 
41 47 4e 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
aO cl 8d 
a9 fe aO 
03 03 a9 
03 8c 05 
8d 06 03 
aO cO 8d 
a9 26 aO 
Ob 03 20 
80 a2 eO 
fa aa 18 
9d 00 d8 
f8 69 00 
fa 69 00 
cO OB 90 
86 f7 08 
f8 28 a5 


56 4e 44 da 


49 46 
00 00 
00 OO 
00 00 
00 00 
00 00 
00 00 
00 00 
00 03 
ol 8d 
la aO 
03 a9 
8c 07 
08 03 
cl 8d 
d6 cl 
85 f7 
a0 00 
9d 00 
9d 00 
9d 00 
el a5 
a5 f8 
fa 69 


fc 
f 8 
d2 
da 
e2 
ea 
f 2 
fa 


8c ff 
02 28 
cO ob 
56 b6 
03 7 d 

8c ba 
Oa 4d 
a9 b9 


84 

98 


29 

50 


da 49 
d9 40 


db 
f 7 
69 
01 


ec 

85 

3e 

5a 


0981 : 

85 

fa 

eO 

c8 

90 

o7 

20 

8d 

b7 

0989 : 

aO 

4c 

Of 

al 

aO 

f a 

a9 

00 

dO 

0991 : 

99 

ff 

df 

99 

f 9 

eO 

99 

f 3 

4a 

0999 : 

el 

99 

ed 

e2 

99 

e7 

e3 

99 

ba 

09al : 

el 

e4 

99 

db 

e5 

99 

d5 

e6 

26 

09a9 ! 

99 

cf 

e7 

99 

c9 

e8 

90 

c3 

29 

09bl : 

e9 

99 

bd 

ea 

99 

b7 

eb 

99 

6e 

09b9 : 

bl 

ec 

99 

ab 

ed 

99 

a5 

ee 

de 

09cl : 

99 

9f 

ef 

99 

99 

fO 

99 

93 

07 

09c9 : 

fl 

99 

8d 

f 2 

99 

87 

f 3 

99 

21 

09dl : 

81 

f 4 

99 

7b 

f 5 

99 

75 

f 6 

92 

09d9 : 

99 

6f 

f 7 

99 

69 

f 8 

99 

63 

e6 

09el 

: f 9 

99 

5d 

fa 

99 

57 

fb 

99 

d5 

09e9 i 

51 

fc 

99 

4b 

fd 

99 

46 

fo 

48 

09f 1 

: 88 

dO 

9d 

60 

20 

3d 

c6 

8a 

71 

09f 9 

: Oa 

Oa 

Oa 

Oa 

8d 

97 

c7 

20 

cl 

OaOl 

: 46 

cB 

20 

3d 

c6 

8a 

29 

Of 

de 

0a09 

: Od 

97 

c7 

Bd 

97 

c7 

ad 

97 

23 

Oall 

: c7 

aO 

fa 

99 

ff 

db 

99 

f 9 

53 

Oal 9 

: de 

99 

f 3 

dd 

99 

ed 

de 

88 

10 


Listing 1. »HiRes-Master« - 
bitte mit dem MSE eingeben 
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0a21 

: dO fl 60 ad ab c7 

dO 28 

44 

0d31 

: bd 

el 

c7 

48 

38 

aö 

f 9 

eö 

3e 

1049 

68 

85 

b6 

e4 

b6 

dO 

03 

4c 

65 

0aZ9 

: ee ab c7 a9 35 85 

01 ad 

f3 

0d39 

: f 7 

aa 

a5 

l'a 

oö 

f 8 

4a 

Ba 

b2 

1051 

19 

aö 

eO 

81 

90 

02 

a2 

80 

4a 

0a31 

: 00 dd 8d a4 o7 a9 00 8d 

fd 

0d41 

: 6a 

4a 

4a 

aa 

8c 

6S 

a4 

2c 

b7 

1059 

86 

b7 

a6 

b6 

eO 

81 

90 

02 

9c 

0a39 

: 00 dd ad 18 dO 8d 

a2 c7 

2a 

Od49 

: 98 

c7 

70 

Of 

30 

38 

ce 

69 

96 

1061 

a2 

80 

86 

b6 

aO 

ff 

84 

bb 

4f 

0a41 

: a9 78 8d 18 dO ad 11 dO 

od 

0d51 

: a4 

8c 

6o 

a4 

a9 

31 

8d 

6a 

9b 

1069 

84 

bc 

08 

84 

b8 

aö 

ac 

85 

84 

0a49 

8d a3 o7 a9 3b 8c 

11 dO 

d5 

0d59 

: a4 

dO 

Oa 

a9 

ff 

8d 

6o 

a4 

8c 

1071 

cl 

aö 

ad 

85 

c2 

aö 

ae 

85 

40 

0a51 

: 60 ad ab c7 fO lb a9 35 

65 

0d61 

: a9 

11 

8d 

6a 

aA 

ie 

6E 

49 

83 

1079 

02 

a6 

b8 

bd 

76 

c8 

a6 

b6 

6a 

Oa59 

: 85 01 ad a4 e7 8d 

00 dd 

03 

Od69 

: 00 

11 

f 7 

2c 

a9 

ff 

91 

f 7 

46 

1081 

20 

01 

a8 

85 

ba 

aö 

b8 

49 

4b 

0 a 61 

: ad a2 o7 8d 18 dO 

ad a3 

09 

0d71 

: a5 

f 7 

69 

08 

85 

f 7 

90 

03 

ce 

1089 

ff 

aa 

bd 

76 

cB 

a6 

b7 

20 

fc 

0a69 

: c7 8d 11 dO a9 00 

8d ab 

7d 

0d79 

: e6 

f 8 

18 

ca 

dO 

ee 

a6 

af 

b9 

1091 

01 

a8 

85 

b9 

cö 

bb 

dO 

06 

08 

0a71 

: a7 60 a6 ae a5 ac 

c9 01 

d9 

0d81 

: bd 

e9 

c7 

4c 

aö 

al 

18 

68 

47 

1099 

aö 

ba 

CÖ 

bc 

fO 

44 

18 

aö 

81 

0a79 

: dO 04 a6 ac c9 4C 

bO 31 

Oe 

0dB9 

: 2c 

a9 

ff 

51 

f 7 

91 

f 7 

aö 

ob 

lOal 

cl 

65 

ba 

85 

ac 

aß 

c2 

69 

4o 

0a81 

s a5 ac 90 09 20 bf 

c6 85 

e4 

OdOl 

: f 7 

69 

08 

85 

f 7 

90 

03 

eB 

cd 

10a9 

00 

85 

ad 

38 

aö 

02 

eö 

b9 

54 

0a89 

i ac 84 ad aO 00 18 

29 f8 

4e 

0d99 

: f 8 

18 

ca 

dO 

ec 

a6 

af 

bd 

a8 

lObl 

90 

05 

oa 

20 

76 

al 

18 

a5 

83 

0a91 

: 7d 00 da 85 f7 a5 

ad 7d 

d4 

Odal 

: e9 

c7 

4c 

aö 

al 

aö 

02 

CÖ 

10 

10b9 

02 

65 

b9 

bO 

32 

c9 

c8 

bO 

eB 

0a99 

: 00 db 86 fB a5 ac 

29 07 

7a 

0da9 

ae 

bO 

08 

a4 

ae 

85 

ae 

84 

21 

lOcl 

2e 

aa 

85 

oe 

20 

75 

al 

38 

20 

Oaal 

: aa bd d9 c7 2c 98 

c7 70 

21 

Odbl 

: 02 

38 

98 

eö 

ae 

48 

aö 

ae 

d3 

10c9 

aö 

cl 

eö 

ba 

85 

ac 

aö 

c2 

f 9 

0aa9 

: Oe 30 07 49 ff 31 

f 7 91 

47 

0db9 

29 

07 

a8 

aö 

ae 

29 

f 8 

ao 

b2 

10dl 

e9 

00 

85 

ad 

20 

73 

al 

38 

66 

Oabl 

: f7 60 51 f7 91 f7 

60 11 

a8 

Odcl 

20 

9c 

c6 

68 

aa 

e8 

ad 

98 

c8 

10d9 

aö 

02 

eö 

b9 

90 

04 

aa 

20 

44 

0ab9 

; f7 91 f 7 60 20 21 

c6 a4 

f 2 

0dc9 

c7 

dO 

06 

aö 

be 

49 

ff 

85 

70 

lOol 

76 

al 

aö 

ba 

85 

bc 

aö 

b9 

30 

Oncl 

: ae c4 02 dO 03 4c 

de a3 

b9 

Oddl 

be 

a5 

be 

2c 

98 

c7 

70 

Oc 

39 

10e9 

85 

bb 

06 

b8 

dO 

8b 

60 

38 

78 

0ac9 

: aG ad a5 ac e4 c2 

dO 07 

fa 

0dd9 

30 

05 

31 

f 7 

4c 

e7 

a4 

51 

10 

lOfl 

aö 

Ol 

eö 

ba 

85 

ac 

a6 

c2 

21 

Oadl 

: c5 cl dO 23 4c a6 

a4 e4 

66 

Odel 

f 7 

4c 

o7 

a4 

ii 

f 7 

91 

f 7 

94 

lOf 9 

e9 

00 

85 

ad 

30 

e4 

10 

d7 

13 

0ad9 

: c2 fO lc bO le 38 

a5 cl 

ee 

0do9 

ca 

fO 

17 

c8 

cO 

08 

90 

el 

5d 

1101 

85 

f 7 

8© 

Oe 

a8 

(.2 

07 

98 

d4 

Oael 

: o5 ac 86 fb a5 c2 

e5 ad 

60 

Odf 1 

: a6 

f 7 

69 

3f 

85 

f 7 

aö 

f 8 

76 

1109 

46 

f 7 

90 

02 

69 

00 

6a 

ca 

85 

Oao9 

i 86 fc a9 34 a2 a3 

8d ld 

95 

Odf 9 

69 

01 

85 

f 8 

aö 

be 

aO 

00 

36 

1111 

dO 

f 6 

60 

20 

b5 

cö 

aO 

00 

84 

Oaf 1 

: a3 8e lo a3 4c Of 

a2 o5 

2b 

OeOl 

: fO 

cf 

60 

20 

b5 

cö 

20 

46 

8c 

1119 

ae 

00 

db 

a9 

80 

84 

f 7 

84 

08 

Oaf 9 

: cl 90 e2 e5 cl 85 

fb 8a 

c5 

0eO9 

cB 

20 

3d 

c6 

86 

b6 

20 

79 

99 

1121 

f 9 

86 

f 8 

85 

fa 

a2 

20 

bl 

f 5 

ObOl 

: e5 c2 66 fc a9 55 

a2 a3 

5f 

Oell 

: 00 

c9 

2c 

dO 

03 

4c 

41 

a7 

02 

1129 

f 7 

91 

f 9 

c8 

dO 

f 9 

e6 

f 8 

eb 

0b09 

: 8d ld a3 8e le a3 

o4 02 

f 6 

0el9 

aO 

00 

84 

b7 

86 

fb 

84 

fd 

28 

1131 

©6 

f a 

ca 

dO 

f 2 

B4 

b7 

20 

d3 

Obll 

: bO 14 38 a5 02 e5 

ae 85 

a3 

0e21 

84 

fe 

a5 

ac 

a6 

ad 

85 

cl 

95 

1139 

b8 

c6 

31 

f 7 

fO 

01 

60 

84 

41 

0bl9 

: ba a9 76 aO a3 8d 04 a3 

57 

0e29 

86 

c 2 

a5 

ae 

86 

02 

18 

aö 

64 

1141 

b8 

84 

b9 

aö 

ae 

fO 

Oc 

20 

41 

Ob21 

i 8c 05 a3 4c 36 a2 

98 e5 

49 

Oe31 

cl 

65 

fb 

85 

ac 

aö 

c2 

69 

2a 

1149 

02 

CÖ 

bl 

f 7 

25 

be 

fO 

f 3 

8d 

0b29 

: 02 85 ba a9 a8 aO 

a3 8d 

Ob 

Oe39 

00 

85 

ad 

18 

aö 

02 

65 

b7 

da 

1151 

20 

ld 

CÖ 

20 

b8 

c6 

bl 

f 7 

ee 

Ob31 

: 04 a3 8c 05 a3 a4 

fb a5 

65 

0e41 

bO 

09 

c9 

c8 

bO 

05 

aa 

20 

if 

1159 

fO 

03 

4c 

aO 

a9 

a9 

ff 

91 

fd 

0b39 

fc dO 04 c4 ba 90 

Oa 4a 

24 

Oe49 

75 

al 

38 

aö 

02 

eö 

b7 

bO 

el 

1161 

f 7 

aö 

ae 

29 

Of 

85 

f 9 

aö 

4c 

0b41 

: 98 6a 85 5c 85 fd 

4c 6d 

50 

0e51 

10 

38 

a5 

cl 

eö 

fb 

85 

ac 

CC 

1169 

ac 

29 

08 

Oa 

65 

f 9 

aa 

18 

ee 

Ob49 

a2 a6 ba 85 fb 4a 

85 5c 

fe 

0e59 

a5 

c2 

e9 

00 

85 

ad 

4c 

78 

c2 

1171 

aö 

f 7 

85 

f 9 

aö 

f 8 

69 

60 

3b 

Ob5J 

: 86 fd 84 ba ad 04 

a3 ac 

30 

0 e 61 

a5 

aa 

85 

ae 

20 

75 

al 

38 

37 

1179 

85 

f a 

bd 

f 4 

ca 

91 

f 9 

aö 

f 6 

0b59 

ld a3 8d ld a3 8c 

04 a3 

45 

0e69 

a5 

cl 

e5 

fb 

85 

ac 

aö 

c2 

cl 

1181 

ad 

dO 

06 

aö 

ac 

c9 

08 

90 

27 

0b61 

ad 05 a3 ao le a3 

8d le 

81 

Oe71 

e9 

00 

85 

ad 

20 

7 3 

al 

18 

c6 

1189 

48 

38 

aö 

f 7 

e9 

08 

85 

f 9 

3e 

Üb69 

a3 8c 05 a3 aO 00 

84 5d 

df 

Oe79 

a5 

02 

66 

b7 

bO 

08 

c9 

c8 

74 

1191 

aö 

f 8 

s9 

00 

85 

f a 

bl 

f 9 

18 

0b71 

a6 02 18 a5 cl 29 

f8 7d 

17 

0e81 

bO 

04 

aa 

20 

75 

al 

18 

aö 

f 2 

1199 

dO 

09 

aö 

b8 

dO 

33 

e6 

b8 

22 

Ob79 

00 da 85 f9 a5 c2 

7d 00 

ed 

0e89 

cl 

65 

b7 

85 

ac 

aö 

c2 

69 

71 

llal 

4c 

ad 

a8 

4a 

bO 

29 

aö 

b8 

94 

Ob81 

db 85 fa a5 cl 29 

07 aa 

69 

0e91 

00 

85 

ad 

18 

aö 

02 

65 

fb 

ba 

Ua9 

dO 

27 

e6 

b8 

a6 

b7 

aö 

ac 

f 6 

0b89 

bd d9 c7 85 bf 2c 

98 c7 

25 

0e99 

bO 

09 

c9 

c8 

bO 

05 

aa 

20 

77 

1 lbl 

29 

07 

85 

f 9 

18 

aö 

ac 

eö 

2c 

Ob91 

70 Oc 30 07 49 ff 

31 f 9 

42 

Oeal 

75 

al 

38 

aö 

02 

eö 

fb 

bO 

4a 

1 lb9 

f 9 

9d 

00 

d5 

aö 

ad 

e9 

00 

ab 

Öb99 

4c al a2 51 f9 2c 

11 f 9 

c2 

0ea9 

10 

3 ® a3 ^ 30 - 
c2 e9 00 85 ad 4c an 

02 

llcl 

9d 

00 

d6 

aö 

ae 

9d 

00 

d7 

50 

Obal 

91 f9 20 9a c6 20 

a5 al 

dl 

Oebl 

a5 

ca 

llc9 

eO 

ff 

fO 

05 

eß 

b7 

2c 

84 

6b 

Oba9 

a5 ba 8d f5 a2 a5 

fb 8d 

30 

Oeb9 

a5 

aa 

85 

ae 

20 

75 

al 

38 

8f 

11dl 

b8 

aö 

ad 

fO 

06 

aö 

ac 

c9 

b9 

Obbl 

Oa a3 8d 19 a3 a5 

fc 8d 

8a 

Oecl 

a5 

cl 

eö 

b7 

85 

ac 

aö 

c2 

91 

1 ld9 

38 

bO 

44 

18 

aö 

f 7 

69 

08 

4d 

Obb9 

fe a2 8d 10 a3 2c 

98 c7 

fb 

Oec9 

e9 

00 

85 

ad 

20 

73 

al 

18 

le 

1 lei 

85 

f 9 

aö 

f 8 

69 

00 

85 

fa 

8e 

Obel 

70 12 30 08 a2 31 

aO 21 

cO 

Oedl 

a5 

02 

65 

l’b 

bO 

08 

c9 

c8 

54 

1 le9 

bl 

f 9 

dO 

09 

aö 

b9 

dO 

2f 

b6 

0bo9 

a9 ff dO Oe a2 51 

aO 41 

21 

0ed9 

bO 

04 

aa 

20 

75 

al 

20 

e7 

ef 

llfl 

e6 

b9 

4c 

ff 

aö 

Oa 

bO 

25 

af 

Obdl 

a9 00 fO 06 a2 11 

aO 01 

ae 

Oeel 

a5 

fO 

a3 

4c 

2f 

ab 

18 

ab 

3d 

1 lf 9 

ab 

b9 

dO 

23 

e6 

b9 

a6 

b7 

öa 

Obd9 

a9 00 8d 22 a3 8e 

23 a3 

ac 

0ee9 

b7 

65 

fd 

85 

fd 

90 

02 

e6 

bd 

1201 

18 

aö 

ac 

09 

07 

69 

01 

9d 

33 

Obel 

8d 2a a3 8c 2b a3 

a6 fd 

64 

Oef 1 

fe 

38 

e5 

fb 

aa 

aö 

f e 

e9 

ac 

1209 

00 

d5 

aö 

ad 

69 

00 

9d 

00 

20 

Obe9 

fO 48 a4 f7 a2 00 

86 f7 

5a 

Oef 9 

00 

e6 

b7 

cö 

f 0 

dO 

02 

©4 

5b 

1211 

d6 

aö 

ae 

9d 

00 

d7 

eO 

ff 

5b 

Obf 1 

18 a5 5c 69 00 85 

5c 8a 

d3 

OfOl 

fd 

bO 

06 

c6 

fb 

86 

fd 

85 

a8 

1219 

fO 

05 

e6 

b7 

2c 

84 

b9 

20 

4a 

Obf 9 

65 5d 85 5d c9 00 

fO 15 

a4 

0f09 

fe 

a5 

fb 

CÖ 

b7 

bO 

02 

68 

6b 

1221 

ld 

CÖ 

oö 

ao 

c9 

c8 

bO 

07 

14 

OcOl 

90 19 20 ff ff 38 

a5 5c 

37 

Ofll 

68 

60 

20 

21 

c6 

20 

69 

c6 

76 

1229 

bl 

f 7 

dO 

25 

4c 

öe 

a8 

c6 

96 

Oc09 

e9 00 85 5c aö 5d 

e9 00 

cc 

Of 19 

a5 

ae 

a4 

02 

84 

ae 

85 

02 

57 

1231 

b7 

a6 

b7 

eO 

ff 

dO 

01 

60 

90 

Ocl 1 

85 5d 4c lc a3 a6 

6c c9 

48 

0f21 

18 

a5 

cl 

29 

f 8 

79 

00 

da 

b2 

1239 

bd 

00 

d5 

85 

ac 

bd 

00 

d6 

83 

0el9 

00 bO e7 20 ff ff 

a5 be 

83 

Of 29 

85 

f 9 

a5 

c2 

79 

00 

db 

85 

7 f 

1241 

85 

ad 

bd 

00 

d7 

85 

ae 

20 

bl 

Oc21 

49 00 11 f7 91 f7 

ab bf 

9c 

Of 31 

fa 

a5 

cl 

29 

07 

aa. bd 

e9 

24 

1249 

bO 

c6 

31 

f 7 

dO 

el 

4c 

40 

7d 

0o29 

49 00 01 f9 81 f9 

c6 fd 

fl 

Of 39 

c7 

85 

af 

20 

9a 

c6 

aO 

00 

15 

1251 

a8 

c9 

ff 

fO 

da 

aa 

aö 

ac 

ef 

Oc31 

dO be 60 46 be 90 

Oa 66 

a7 

Of 41 

a5 

f 7 

c5 

f 9 

dO 

lf 

aö 

f 8 

21 

1259 

29 

f8 

85 

ac 

84 

af 

8a 

39 

58 

0o39 

be 98 69 08 a8 90 

02 e6 

84 

Of 49 

e5 

fa 

dO 

19 

bd 

el 

c7 

25 

57 

1261 

d9 

c7 

dO 

35 

aö 

af 

dO 

ld 

4e 

Oc41 

f8 06 bf bO 01 60 

26 bf 

Bd 

Of 61 

af 

86 

b6 

aö 

bB 

20 

aö 

al 

6b 

1269 

e6 

af 

8a 

48 

a6 

b7 

aö 

ac 

eb 

0c49 : 

a6 f9 e9 07 85 f9 

90 01 

b2 

Of 59 

a5 

ae 

c5 

02 

fO 

06 

20 

02 

cb 

1271 

9d 

00 

d5 

a5 

ad 

9d 

00 

d6 

ao 

Oc51 

60 06 fa 60 06 be 

90 Oa 

8c 

0f61 

06 

4c 

54 

a6 

60 

bd 

el 

c7 

41 

1279 

ab 

ae 

9d 

00 

d7 

eO 

ff 

fO 

43 

0o59 : 

26 be 98 e9 07 a8 

bO 02 

be 

Of69 i 

85 

b8 

38 

aö 

f 9 

eö 

f 7 

aa 

11 

1281 

02 

06 

b7 

68 

aa 

eß 

ac 

c8 

17 

0 c 61 : 

c6 f8 46 bf bO 01 

60 66 

So 

Of 71 

a6 

fa 

o5 

fB 

4a 

8a 

6a 

4a 

63 

1289 

cO 

08 

90 

d2 

a5 

ac 

dO 

02 

d3 

0o69 : 

bf a6 f9 69 08 85 

f 9 bO 

9c 

Of79 : 

4a 

86 

b6 

aö 

f 7 

85 

f 9 

aö 

c7 

1291 

c6 

ad 

c6 

oc 

aO 

00 

4c 

30 

11 

0o71 : 

01 60 e6 fa 60 98 

29 07 

39 

Of 81 

f 8 

85 

fa 

8c 

ab 

a6 

2c 

98 

6e 

1299 

aö 

aö 

00 

85 

af 

fO 

06 

84 

ef 

0o79 ! 

c9 07 l'O Oa c8 a5 

f9 29 

37 

Of89 : 

c7 

70 

Of 

30 

54 

ce 

ab 

a6 

Oa 

12al 

b8 

84 

b9 

20 

b8 

06 

11 

f 7 

04 

0c81 : 

07 fO 16 c6 f9 60 

98 69 

37 

Of 91 

8c 

bO 

a6 

a9 

31 

8d 

ac 

a6 

d4 

12a9 

91 

f 7 

18 

OÖ 

f 7 

85 

f 9 

a5 

af 

0o89 ! 

38 a8 a5 f8 69 01 

85 f8 

44 

Of99 i 

dO 

Oa 

a9 

ff 

8d 

bO 

a6 

a9 

25 

IZbl 

f 8 

69 

60 

85 

fa 

a5 

ae 

29 

10 

Oc91 : 

a5 f9 29 07 fO 03 

c6 f 9 

94 

Of al : 

11 

8d 

ac 

a6 

18 

aö 

b8 

a6 

58 

12b9 

Of 

85 

fb 

aö 

ac 

29 

08 

Oa 

87 

0o99 : 

60 38 a5 f9 e9 39 

85 f9 

30 

Ofa9 : 

b6 

49 

00 

11 

f 7 

2c 

a9 

ff 

ae 

12cl 

05 

fb 

aa 

bd 

f 4 

ca 

25 

be 

de 

Ocal ! 

a5 fa e9 01 85 fa 

60 98 

41 

Ol'bl : 

91 

f 7 

a5 

f 7 

69 

08 

85 

f 7 

83 

12o9 

11 

f 9 

91 

f 9 

aö 

ac 

05 

ad 

a9 

Ooa9 i 

29 07 fO Oc 88 a5 

f9 29 

03 

Ofb9 : 

90 

03 

06 

f 8 

18 

ca 

dO 

ee 

9c 

12dl 

fO 

41 

o5 

be 

Oa 

90 

36 

aö 

oc 

Oobl : 

07 c9 07 fO 19 e6 

f 9 60 

oe 

Ofcl : 

a5 

af 

20 

aö 

al 

aö 

ae 

cö 

88 

12d9 

f 7 

e9 

08 

85 

f 9 

a5 

fB 

e9 

f c 

0ob9 : 

38 98 e9 39 a8 a5 

f8 e9 

4o 

0fc9 : 

02 

fO 

99 

aö 

f 9 

85 

f 7 

aö 

55 

I2el 

00 

85 

fa 

bl 

f 9 

4a 

bO 

29 

aO 

Ocel : 

01 85 f8 ab fO 29 

07 c9 

10 

Of dl : 

fa 

85 

f 8 

20 

02 

CÖ 

a5 

f 7 

OÖ 

12e9 

ab 

b8 

dO 

27 

e6 

b8 

a6 

b7 

42 

0oc9 : 

07 fO 03 e6 f9 60 

a5 f9 

13 

Ofd9 : 

85 

f 9 

ab 

f 8 

85 

fa 

4c 

OÖ 

90 

12f 1 

38 

a5 

ac 

e9 

01 

9d 

00 

d5 

Od 

Ocdl : 

69 38 85 f9 a5 fa 

69 01 

dl 

Of el : 

a6 

18 

a5 

b8 

a6 

b6 

2c 

a9 

38 

12f 9 

aö 

ad 

e9 

00 

9d 

00 

d6 

ab 

70 

0cd9 i 

85 fa 60 a6 c2 a6 

cl cb 

9c 

Ofe9 : 

ff 

51 

f 7 

91 

f 7 

aö 

f 7 

69 

20 

1301 

ae 

9d 

00 

d7 

eO 

ff 

ro 

Ob 

61 

Ocel : 

ad dO 02 e4 ac bO 

Oc a4 

dd 

Offl : 

08 

85 

f 7 

90 

03 

e6 

f 8 

18 

47 

1309 

e6 

b7 

4c 

14 

aa 

31 

f 7 

fO 

56 

0ce9 : 

ad 85 ad 84 c2 a4 

ac 86 

66 

Off9 : 

ca 

dO 

ec 

aö 

af 

20 

aö 

al 

fl 

1311 

d7 

84 

b8 

aö 

od 

fO 

06 

a5 

d3 

Ocf 1 : 

ac 84 cl a5 ac 48 

ab ad 

03 

1001 : 

aö 

ae 

cö 

02 

fO 

15 

aö 

f 9 

fl 

1319 1 

ac 

c9 

3f 

bO 

41 

aö 

be 

4a 

61 

Ocf 9 i 

48 a5 cl 85 ac a5 

c2 85 

43 

1009 : 

85 

f 7 

a5 

fa 

85 

f 8 

20 

02 

f 7 

1321 

90 

38 

aö 

f 7 

69 

07 

85 

f 9 

Od 

OdOl : 

ad aO 00 20 9a 06 

16 af 

öc 

1011 : 

c5 

a5 

f 7 

85 

f 9 

aö 

f 8 

85 

13 

1329 : 

aö 

f 8 

69 

00 

85 

f a 

bl 

f 9 

90 

0d09 : 

a5 f7 85 f9 ab f8 

15 fa 

78 

1019 : 

fa 

dO 

c6 

60 

20 

21 

cö 

20 

9f 

1331 

Oa 

bO 

29 

aö 

b9 

dO 

27 

eß 

lf 

Odll : 

68 85 ad 68 85 ac 

20 9a 

28 

1021 : 

69 

c6 

20 

f4 

a3 

aö 

ae 

48 

47 

1339 : 

b9 

n6 

b7 

16 

aö 

ac 

69 

01 

9e 

Odl9 : 

c6 a5 f7 c6 f9 dO 

il a5 

le 

1029 : 

20 

a6 

a4 

aö 

02 

85 

ae 

20 

Gl 

1341 

9d 

00 

d5 

aö 

ad 

69 

00 

9d 

6a 

0d21 : 

f8 e5 fa dO Ob bd 

el c7 

9a 

1031 : 

f 4 

a3 

68 

85 

ae 

aö 

cl 

a6 

2e 

1349 : 

00 

d6 

aö 

ne 

9d 

00 

d7 

eO 

ee 

0d29 : 

a6 af 3d e9 c7 4c 

a5 al 

ec 

1039 ! 

c2 

85 

ac 

86 

ad 

4c 

a6 

a4 

db 

1351 

ff 

fO 

Ob 

oß 

b7 

4c 

5f 

aa 

19 





1041 : 

8a 

48 

20 

73 

00 

20 

3d 

c6 

e9 

1369 : 

31 

f 7 

fO 

d7 

84 

b9 

20 

ld 

8e 


50 


SONDERHEFT 11 








C 64 


GRAFIK 


1361 : 

c5 

a5 

ae 

c9 

c8 

bO 

Oe 

bl 

8b 

1369 : 

f 7 

dO 

03 

4c 

40 

a8 

25 

be 

6e 

1371 : 

dO 

03 

4c 

a4 

a9 

4c 

30 

a9 

7c 

1379 : 

20 

ab 

c4 

85 

af 

20 

46 

c6 

13 

1381 1 

20 

31 

c6 

cO 

40 

fO 

03 

4c 

34 

1389 : 

48 

b2 

aO 

00 

bl 

22 

aa 

c8 

bb 

1391 : 

bl 

22 

20 

d9 

c4 

a6 

af 

9d 

12 

1399 ; 

f 4 

ca 

o8 

bl 

22 

aa 

cB 

bl 

59 

13a 1 : 

22 

20 

d9 

c4 

a6 

af 

9d 

04 

49 

13a 9 : 

cb 

a6 

af 

c8 

cO 

40 

90 

de 

f 6 

13 b 1 i 

60 

20 

ab 

c4 

85 

af 

69 

20 

70 

13b9 : 

86 

bc 

20 

46 

c6 

20 

eb 

c4 

15 

13c 1 : 

aa 

a4 

af 

bd 

f4 

ca 

48 

b9 

9b 

13c9 : 

f 4 

ca 

9d 

f 4 

ca 

68 

99 

f 4 

68 

13dl : 

ca 

a8 

c8 

c4 

be 

90 

ec 

60 

bf 

13d9 : 

20 

ab 

c4 

85 

af 

69 

20 

85 

a2 

13ol : 

be 

20 

46 

c6 

20 

eb 

c4 

a8 

df 

13o9 : 

a6 

af 

bd 

f 4 

ca 

99 

f 4 

ca 

58 

13f 1 : 

«8 

c8 

«4 

be 

90 

f 4 

60 

20 

cl 

1 3f9 : 

3d 

c6 

8a 

48 

20 

46 

c6 

68 

65 

1401 1 

dO 

03 

4c 

a9 

ab 

c9 

01 

fO 

8a 

1409 : 

11 

c9 

02 

dO 

03 

4a 

f 9 

ac 

6d 

1411 : 

c9 

03 

dO 

03 

4c 

3d 

ac 

4c 

oa 

1419 : 

lb 

c6 

20 

ac 

c4 

s5 

cl 

29 

08 

1421 : 

07 

65 

b9 

aa 

bd 

..■!) 

c7 

85 

04 

1429 : 

5f 

49 

ff 

85 

15 

bd 

d9 

c7 

14 

1431 : 

85 

bc 

20 

9a 

c6 

86 

b8 

bd 

6f 

1439 : 

el 

c7 

85 

be 

49 

ff 

85 

14 

fe 

1441 : 

bd 

d9 

c7 

85 

bb 

ab 

f 7 

85 

61 

1449 : 

f 9 

a5 

f 8 

85 

fa 

a5 

af 

dO 

41 

1451 : 

07 

a5 

6e 

25 

5f 

4c 

82 

ab 

21 

1459 : 

a5 

14 

31 

f 7 

85 

ba 

bl 

f 7 

38 

1461 : 

25 

5e 

4a 

06 

ba 

91 

f 7 

a6 

4o 

1469 : 

af 

08 

18 

a5 

f 9 

69 

08 

85 

ed 

1471 : 

f 9 

90 

02 

e6 

fa 

28 

ca 

fO 

Oe 

1479 : 

08 

bl 

f 9 

6a 

91 

f 9 

4c 

6a 

14 

1481 : 

ab 

bl 

f 9 

aa 

25 

15 

85 

ba 

5f 

1489 : 

8a 

25 

bc 

fO 

06 

a5 

bb 

11 

92 

1491 : 

f 7 

91 

f 7 

8a 

6a 

25 

5f 

05 

f 7 

1499 : 

ba 

91 

f 9 

a5 

ae 

c5 

02 

fO 

52 

14al : 

06 

20 

02 

c5 

4c 

46 

ab 

60 

57 

14a9 : 

20 

ac 

c4 

a5 

ac 

29 

07 

85 

40 

14bl : 

b9 

aa 

bd 

el 

c 7 

85 

5f 

49 

24 

14b9 : 

ff 

85 

15 

bd 

d9 

c7 

85 

bc 

e3 

14cl : 

a5 

cl 

a6 

c2 

85 

ac 

86 

ad 

7c 

14c9 : 

20 

9a 

c6 

86 

b8 

bd 

e9 

c7 

69 

14dl : 

85 

5e 

49 

ff 

86 

14 

bd 

d9 

7b 

14d9 : 

c7 

85 

bb 

a5 

f 7 

a6 

f 8 

85 

aa 

14el ; 

f 9 

86 

fa 

a6 

af 

dO 

07 

a5 

9a 

14e9 : 

5e 

25 

5f 

4c 

16 

ac 

bl 

f 9 

bd 

14fl : 

: 25 

14 

85 

ba 

bl 

f 9 

25 

5e 

15 

14f 9 : 

Oa 

05 

ba 

91 

f 9 

08 

38 

a5 

73 

1501 : 

: f 9 

e9 

08 

85 

f 9 

bO 

02 

c6 

5c 

1509 i 

fa 

28 

ca 

fO 

08 

bl 

f 9 

2a 

32 

1511 

: 91 

f 9 

4c 

fe 

ab 

bl 

f 9 

aa 

17 

1519 : 

: 25 

15 

85 

ba 

8a 

25 

bc 

fO 

28 

1521 

: 06 

a5 

bb 

11 

f 7 

91 

f 7 

8a 

Oc 

1629 : 

: 2a 

25 

5f 

Ob 

ba 

91 

f 9 

ab 

ca 

1631 

: ae 

c5 

02 

fO 

06 

20 

02 

cb 

55 

1539 

; 4c 

de 

ab 

60 

20 

ac 

c4 

38 

db 

1541 

: a5 

ae 

e5 

02 

fO 

40 

48 

20 

69 

1549 

: bc 

ad 

a5 

af 

dO 

39 

a5 

bB 

la 

1551 

: ' 25 

ba 

85 

bc 

49 

ff 

85 

bd 

f 2 

1559 

: 68 

aa 

bl 

f 7 

48 

a5 

f 7 

85 

le 

1561 

: f 9 

a5 

f 8 

85 

fa 

20 

02 

c5 

60 

1569 

: bl 

f 7 

25 

bc 

85 

b6 

bl 

f 9 

bf 

1571 

: 25 

bd 

05 

b6 

91 

f 9 

ca 

dO 

43 

1579 

: e4 

68 

25 

bc 

85 

b6 

bl 

f 7 

37 

1581 

: 25 

bd 

05 

b8 

91 

f 7 

60 

68 

08 

1589 

: 48 

aa 

a5 

f 7 

85 

fb 

a5 

f 8 

4f 

1591 

: 86 

fc 

bl 

f 7 

48 

ab 

f 8 

8b 

aO 

1599 

: fa 

ab 

f 7 

85 

f 9 

29 

07 

dO 

bb 

15al 

: Of 

38 

ab 

f 7 

e9 

39 

85 

f 7 

a3 

16a9 

: a5 

f 8 

c!< 

01 

85 

f 8 

dO 

02 

ca 

16bl 

: c6 

f 7 

bl 

f 7 

26 

b8 

85 

b6 

7a 

16b9 

: bl 

f 9 

25 

b9 

05 

b6 

91 

f 9 

28 

lbcl 

: ca 

dO 

d2 

68 

26 

b8 

85 

b6 

51 

15c9 

: bl 

f 7 

25 

b9 

05 

b6 

91 

f 7 

33 

16dl 

: 18 

a6 

fb 

69 

08 

85 

f 7 

ab 

cO 

16d9 

: ’c 

69 

00 

85 

f 8 

c6 

af 

30 

lf 

1 5ol 

: 15 

fO 

OB 

a9 

ff 

85 

b8 

84 

ba 

15e9 

: b9 

dO 

9c 

ab 

ba 

85 

b8 

ab 

ec 

15 f 1 

: bb 

85 

b9 

4c 

88 

ac 

68 

60 

b7 

15f 9 

: 20 

ac 

o4 

20 

69 

c6 

38 

a5 

9d 

1601 

: 02 

e5 

ae 

fO 

42 

48 

aO 

00 

a8 

1609 

! 20 

bc 

ad 

a5 

af 

dO 

39 

a5 

59 

1611 

: b8 

25 

ba 85 

bc 

49 

, ff 

85 

de 

1619 

: bd 

68 

aa 

bl 

f 7 

48 

a5 

f 8 

35 

1621 

: 85 

fa a£ 

i f 7 

85 

ft 

i 20 

lf 

72 

1629 

: c6 

bl 

f 7 

25 

bc 

85 

be 

bl 

aO 

1631 

: f9 

i 26 

i bd 05 

b6 

i 91 

f 9 

i ca 

42 

1639 

: dO 

e4 

68 

i 25 

bc 

85 

. b6 

bl 

70 

1641 

: f 7 

25 bd OE 

i b6 91 

. f 7 

60 

73 

1649 

: 68 

48 

aa a5 

f 7 

85 

i fb 

i a5 

lb 

1651 

: f8 85 fc bl 

f7 48 a5 f8 

cb 

1659 

: 85 

i fa a5 f7 

85 f9 29 

i 07 

9e 

1661 

: c9 07 dO Of a5 f7 69 38 

f 4 

1669 

: 85 f7 

1 ab f8 

l 69 01 8E 

i f 8 

19 

1671 

: 4c 76 ad e6 f7 bl f7 25 

78 


1679 : 

b8 

85 

b6 bl 

f 9 

25 

b9 05 

91 

1681 : 

b6 

91 

f 9 ca 

dO 

dO 

68 25 

57 

1689 : 

b8 

85 

b6 bl 

f 7 

25 

b9 05 

81 

1691 : 

b6 

91 

f 7 18 

a5 

fb 

69 08 

01 

1699 : 

85 

f 7 

a5 fc 

69 

00 

85 f 8 

cl 

16al : 

c6 

af 

30 15 

fO 

08 

a9 ff 

o4 

16e9 : 

85 

b8 

84 b9 

dO 

9a 

a5 ba 

dO 

16bl : 

85 

b8 

a5 bb 

85 

b9 

4c 49 

6d 

16b9 : 

ad 

68 

60 a5 

ac 

48 

a5 ad 

66 

16cl : 

48 

a5 

cl 85 

ac 

a6 

c2 85 

Ob 

16c9 : 

ad 

20 

9a 06 

bd 

e9 

c7 85 

5b 

16dl : 

ba 

49 

ff 85 

bb 

68 

85 ad 

61 

16d9 : 

68 

85 

ac 20 

9a 

c6 

bd el 

ce 

16el i 

c7 

85 

b8 49 

ff 

85 

b9 60 

96 

16e9 : 

20 

b& 

c6 20 

46 

06 

20 31 

d7 

16f 1 : 

c6 

84 

b7 a9 

dO 

8d 

99 o7 

80 

16f9 : 

aO 

00 

84 bB 

84 

c7 

84 b9 

dd 

1701 : 

bl 

22 

30 58 

c9 

20 

bO 47 

c9 

1709 : 

c9 

Od 

dO 15 

a9 

00 

85 ac 

3a 

1711 : 

85 

ad 

18 a5 

ae 

69 

08 bO 

df 

1719 : 

33 

c8 

c8 bO 

2f 

85 

ae 90 

74 

1721 : 

2b 

c9 

Oe dO 

06 

a9 

08 85 

a7 

1729 : 

b8 

dO 

21 c9 

11 

fO 

e3 c9 

87 

1731 : 

12 

dO 

06 a9 

80 

85 

c7 dO 

57 

1739 s 

13 

c9 

13 fO 

32 

c9 

ld dO 

9b 

1741 : 

Ob 

18 

a5 ac 

89 

08 

85 ac 

9d 

1749 : 

90 

02 

e6 ad 

4c 

06 

bO cd 

95 

1761 : 

60 

90 

04 29 

df 

dO 

5c 29 

68 

1759 : 

3f 

4c 

b4 ae 

29 

7f 

c9 7f 

76 

1761 I 

dO 

02 

a9 5e 

c9 

20 

bO 49 

5b 

1769 : 

c9 

13 

dO Od 

20 

8d 

aO a9 

dB 

1771 : 

00 

85 

ac 85 

ad 

85 

ae f0 

b3 

1779 : 

d3 

c9 

Od fO 

8f 

c9 

Oe dO 

b3 

1V81! : 

06 

a9 

00 86 

b8 

fO 

c5 c9 

ca 

1789 : 

lil 

dO 

Ob 38 

a5 

ae 

e9 08 

54 

1791 : 

: 90 

ba 

85 ae 

bO 

b6 

c9 12 

cl 

1799 : 

dO 

06 

a9 00 

85 

c7 

fO ac 

8a 

17al 

: c9 

ld 

dO a8 

38 

a5 

ac e9 

79 

17a9 : 

08 

85 

ac bO 

9f 

c6 

ad 90 

bd 

il,7bl 

: 8b 

09 

40 05 

c7 

85 

fb a9 

6d 

17b9 

: 00 

06 

fb 2a 

06 

fb 

2a 06 

f 5 

17cl 

: fb 

2a 

Od 99 

c7 

65 

b8 85 

dd 

17c9 

: fc 

78 

a9 31 

85 

01 

ae ac 

06 

17dl 

: c7 

dO 

03 4c 

59 

af 

ca fO 

6b 

17d9 

: 2c 

ca 

fO 52 

aO 

07 

bl fb 

f 2 

17el 

: 4a 

2e 

al c7 

4a 

2e 

aO c7 

cc 

17e9 

: 4a 

2e 

9f c7 

4a 

2e 

9e c7 

4b 

cb 

17f 1 
17f 9 

: 4a 
: 4a 

2: 9b c7 

4a 2: 9a! 

4a 

1801 

: 88 

10 

db 30 

5d 

aO 

07 bl 

e9 

1809 

: fb 

4a 

6e 9a 

c7 

4a 

6© 9b 

d8 

1811 

: c7 

4a 

6e 9c 

c7 

4a 

6e 9d 

fO 

1819 

: c7 

4a 

6e 9e 

c7 

4a 

6e 9f 

3c 

1821 

: c7 

4a 

6e aO 

c7 

4a 

60 al 

89 

1829 

: c7 

88 

10 db 

30 

34 

aO 07 

e9 

1831 

: bl 

fb 

Oa 7e 

9a 

c7 

Oa 7e 

3f 

1839 

: 9a 

c7 

Oa 7e 

9a 

c7 

Oa 7e 

16 

1841 

: 9a 

c 7 

Oa 7e 

9a 

c7 

Oa 7e 

le 

1849 

: 9a 

c7 

Oa 7e 

9a 

c7 

Oa 7e 

26 

1851 

: 9a 

c7 

e8 88 

10 

da 

30 Oa 

c7 

1859 

: aO 

07 

bl fb 

99 

9a 

c7 88 

07 

1861 

: 10 

f 8 

20 8e 

c6 

aO 

00 84 

42 

1869 

: bb 

20 

9a c6 

a5 

ac 

a6 ad 

69 

1871 

: 85 

cl 

86 c2 

a5 

ae 

85 02 

bb 

1879 

: a2 

00 

a9 01 

85 

b6 

a6 bb 

c6 

1881 

: bd 

9a 

c7 85 

bc 

a9 

08 85 

72 

1889 

: ba 

a9 

01 85 

bd 

06 

ba 90 

29 

1891 

: lc 

a5 

ad fO 

06 

a5 

ac c9 

dd 

1899 

: 40 

bO 

27 a5 

ba 

1 20 

aB al 

77 

18al 

: 20 

55 

c5 c6 

: bd dO 

oa c6 

52 

18a9 

i ba 

. dO 

de fO 

IE 

1 ab 

ad fO 

b8 

18bl 

: 06 a5 

1 ac c9 40 bC 

1 Ob 20 

o4 


18b9 : 56 c5 c6 bd dO ef c6 ba 77 
18cl : dO c7 a5 ol a6 c2 86 aa 06 
18c9 : 86 ad e8 aa a6 aa oO cB aa 
18dl : bO 11 20 9c c6 c6 b6 a5 6e 
18d9 : b6 dO a3 e6 bb a6 bb aO 6f 
18ol : 08 90 97 a5 02 69 ff 85 -12 
18e9 : aa 18 a5 ac 69 08 85 aa e8 
18f1 : aa a5 ad 69 00 85 ad c9 7d 
18f9 : 01 dO 02 aO 40 bO 11 a5 18 
1901 : aa c9 c8 bO Ob 06 b9 a4 f4 
1909 : b9 c4 b7 bO 03 4c 01 ae lc 
1911 : 60 20 3d 06 8a 8b af 8a c3 
1919 : Oa Oa Oa 8d 46 aa 8d a9 cO 
1921 : ae 20 46 c6 20 3d c6 8e 6e 
1929 : 7c af 8a Oa Oa Oa 8d 17 b6 
1931 : ae 8d 90 ae 20 46 06 20 2f 
1939 : 85 c5 8d ee af 8c f5 af 79 
1941 I 20 46 c6 20 85 c5 8d e7 06 
1949 : af ca e7 af 20 79 00 c9 bO 
1951 • 2c dO Oc 20 73 00 20 3d lf 
1959 : c6 8a 29 03 8d ac c7 60 2d 
1961 : a9 d5 aO c9 85 f7 84 f8 72 
1969 : aO 00 a2 Oa bl f7 08 29 40 
1971 : 7f 20 6e c5 c8 ca 28 fO ba 
1979 : Oc 10 fl a9 20 20 6e c5 87 
1981 : ca dO fa fO e5 60 20 3d ec 
1989 : c6 86 b6 86 b9 aO 07 a5 19 


1991 : 

b6 

85 b9 . 

a2 

fa 

le 

ff 1 

df 

2d 

1999 : 

le 

f 9 eO 

le 

f3 al 

le ed 

52 

19a 1 : 

©2 

le 1 

e7 . 

a3 

le 

al 

e4 

le 

c9 

19a9 : 

db 1 

a5 

le d5 ' 

b6 

la < 

Cf c 

b7 

27 

19bl : 

la 

c9 . 

e8 

le 

c3 

e9 

le 

bd 

31 

19b9 : 

ea 

le b7 1 

Bb 

le bl 

ec 

le 

7d 

19cl : 

ab 

ed 

le 

a5 

ee 

le 

9f 

ef 

dd 

19c9 : 

le 

99 

fO 

le 

93 

fl 

le 

Bd 

10 

19dl : 

f 2 

le 

87 

f 3 

le 

Bl 

f 4 

le 

31 

19d9 : 

7b 

f 5 

le 

76 

f 6 

le 

6f 

f 7 

93 

19el : 

la 

69 

f 8 

le 

63 

f 9 

le 

5d 

ef 

19e9 : 

fa 

le 

57 

fb 

le 

51 

fc 

le 

e4 

19f 1 : 

4b 

fd 

le 

45 

fe 

ca 

dO 

9d 

30 

19f 9 : 

a5 

b6 

fO ' 

08 

c6 

58 

dO 

fc 

aB 

laOl : 

c6 

b9 

dO 

f 8 

88 

10 

88 

60 

e3 

la09 : 

20 

b5 

c5 

20 

46 

c6 

20 

3d 

Of 

lall : 

c6 

eO 

81 

90 

02 

a2 

Dil 

86 

f e 

lal9 : 

b6 

20 

46 

c6 

20 

3d 

c6 

aO 

13 

la21 : 

81 

90 

02 

a2 

80 

86 

b7 

20 

lb 

la29 i 

46 

c6 

20 

96 

c5 

aO 

01 

dO 

b8 

la31 : 

02 

cO 

69 

90 

04 

a2 

01 

aO 

9a 

la39 ! 

68 

84 

f 9 

86 

fa 

20 

46 

c6 

8a 

Ia41 : 

20 

96 

c5 

eO 

01 

dO 

02 

cO 

5a 

la49 : 

69 

90 

04 

a2 

01 

aO 

68 

84 

Of 

1 a51 : 

fb 

86 

fc 

e4 

fa 

dO 

02 

c4 

33 

la59 

f 9 

bO 

Oc 

a5 

fB 

84 

f 9 

85 

19 

la61 : 

fb 

a5 

fa 

86 

fa 

85 

fc 

aO 

cf 

la69 : 

00 

84 

fd 

84 

fa 

84 

60 

84 

52 

la71 : 

5f 

88 

84 

&c 

B4 

5d 

84 

14 

2e 

la79 : 

84 

15 

a5 

ac 

a6 

ad 

85 

cl 

f 8 

laBl : 

86 

c2 

a5 

ae 

85 

02 

a5 

f 9 

9a 

la89 1 

a6 

fa. 

dO 

le 

c9 

5a 

bO 

09 

e8 

la91 : 

aa 

bd 

76 

c9 

85 

fd 

4c 

cb 

02 

la99 : 

bl 

c9 

b4 

bO 

Od 

a9 

59 

aa 

4d 

laal : 

bd 

76 

c9 

49 

ff 

85 

5o 

4c 

6b 

laa9* i 

aO 

bl 

eO 

01 

dO 

02 

c9 

Oe 

la 

labl : 

bO 

Ob 

e9 

b3 

aa 

bd 

76 

c9 

de 

lab9 : 

85 

5e 

4c 

fb 

bl 

e9 

Oe 

aa 

f 8 

lacl : 

bd 

76 

c9 

49 

ff 

85 

14 

4c 

6a 

lac9 : 

14 

b2 

ab 

fb 

a6 

fc 

dO 

Od 

cf 

ladl : 

c9 

5a 

bO 

09 

aa 

bd 

78 

c9 

lb 

lad9 : 

85 

fe 

4c 

21 

b2 

84 

fe 

a5 

ab 

laal : 

fb 

a6 

fc 

dO 

11 

c9 

b4 

bO 

lc 

lae9 : 

Od 

ed 

59 

aa 

bd 

76 

c9 

49 

eO 

laf 1 : 

: ff 

85 

5d 

4c 

21 

b2 

84 

5d 

08 

laf 9 i 

e6 

5d 

a6 

f c 

a5 

fb 

eO 

01 

97 

lbOl i 

: dO 

02 

c9 

Oe 

bO 

Ob 

e9 

b3 

79 

lb09 : 

aa 

bd 

76 

c9 

85 

5f 

4c 

21 

2f 

lbl 1 : 

: b2 

84 

Bf 

38 

ab 

fb 

e9 

Oe 

e2 

lbl9 : 

: aa 

bd 

76 

c9 

49 

ff 

85 

15 

4d 

lb21 

: 84 

bb 

84 

bc 

c8 

84 

b8 

a6 

lc 

lb29 

; b8 

bd 

76 

c8 

a6 

b6 

20 

01 

19 

lb31 

: a8 

85 

ba 

a5 

b8 

49 

ff 

aa 

2a 

lb39 

: bd 

76 

c8 

a6 

b7 

20 

01 

a8 

Oa 

lb41 

: 85 

b9 

c5 

bb 

dO 

09 

a5 

ba 

ed 

lb49 

: c5 

bc 

dO 

03 

4c 

08 

b3 

a6 

22 

lb51 

: b8 

e4 

fd 

90 

26 

e4 

fe 

fO 

74 

lb59 

: 02 

bO 

20 

a5 

fd 

05 

fa 

fO 

56 

lb61 

: la 

18 

a5 

al 

65 

ba 

86 

ac 

c4 

lb69 

: a5 

02 

69 

00 

85 

ad 

38 

a5 

bc 

lb71 

: 02 

e5 

b9 

90 

06 

aa 

20 

75 

07 

lb79 

: al 

a6 

b8 

e4 

5c 

fO 

06 

bO 

ff 

lb81 

: 2c 

e4 

5d 

90 

28 

a5 

5a 

06 

35 

lb89 

5d 

dO 

04 

c9 

ff 

fO 

le 

18 

b9 

lb91 

: a5 

cl 

65 

ba 

86 

ac 

a5 

o2 

al 

lb99 

: 69 

00 

85 

ad 

18 

a5 

02 

65 

9b 

lbal 

: b9 

bO 

Oa 

c9 

c8 

bO 

06 

aa 

ee 

lba9 

: 20 

75 

al 

a6 

b8 

e4 

5e 

90 

Oe 

lbbl 

: 2a 

e4 

bf 

fO 

02 

bO 

24 

ab 

c5 

lbb9 

: 5a 

05 

5f 

fO 

le 

38 

ab 

cl 

4d 

lbcl 

: o5 

ba 

85 

ac 

a5 

c2 

e9 

00 

12 

ibc9 

i 86 

ad 

18 

a5 

02 

65 

b9 

bO 

73 

lbdl 

: Oa 

o9 

c8 

bO 

06 

aa 

20 

75 

29 

1 bd9 

: al 

aB 

b8 

e4 

15 

90 

28 

e4 

d8 

lbel 

: 14 

fO 

02 

bO 

22 

a5 

14 

c6 

2f 

lbe9 

: 15 

dO 

04 

cB 

ff 

fO 

18 

38 

f 9 

lbf 1 

: a5 

cl 

e5 

ba 

85 

ac 

ab 

c2 

21 

lbf 9 

: a9 

00 

85 

ad 

38 

a6 

02 

eb 

7e 

IcOl 

: b9 

90 

04 

aa 

20 

75 

al 

a5 

dB 

lc09 

: ba 

85 

bc 

a5 

b9 

85 

bb 

e6 

ee 

lcll 

i b8 

fO 

03 

4c 

28 

b2 

60 

20 

66 

lcl9 

: bb 

ob 

20 

46 

c6 

20 

3d 

c6 

72 

lc21 

: aO 

OO 

84 

b7 

84 

bc 84 

fd 

16 

lc29 

: 84 

fa 

86 

fb 

1 ab 

ac 

aB 

ad 

03 

lc31 

: 85 5e 

86 

i 51' 

1 ab 

ae 85 

bd 

d4 

lc39 

: 3B 

' a5 

5e 

eE 

1 fb 

1 85 

ac 

a5 

82 

lc41 

: 51 

1 e9 

1 OC 

1 85 ad 

1 18 ab 

1 5e 

35 

lc49 

: 65 fb 

1 8E 

1 cl 

a5 

5f 

69 

00 

40 

lc51 

: 85 c2 38 aE 

i bd e5 b7 

90 

05 

lc59 

: 07 

' 86 

1 aa 85 b9 

1 20 

1 de 

' b3 

ff 

lc61 

: 18 a5 bd 65 b7 

' bO 16 c9 

55 

lc69 

: c8 bC 

1 12 85 ae 85 ba 2c 

19 

lc71 

: 98 c7 70 06 10 04 c5 bd 

7 d 

lo79 

: fO 03 20 de b3 38 a5 5o 

lf 

lc81 

: e5 b7 85 ac a5 5f ©9 00 

36 

lc89 

: 85 ad 18 a5 5a 65 b7 

1 85 

9b 


Lisling 1. Fortsetzung 


ÜJÜj* 


SONDERHEFT 11 


51 







GRAFIK 


C 64 


lc91 : ol a5 5f 69 00 85 c2 38 d2 
lo99 : a5 bd e5 fb 90 16 85 ae 43 
lcal : c5 b9 fO 10 2c 98 c7 70 08 
lca9 : 08 10 06 c 6 bb fO 05 85 56 
lcbl : bb 20 de b3 16 a5 bd 65 lb 
lcb9 : fb bO la o9 c 8 bO 16 85 42 
loci : ae c 6 ba fO 10 2c 98 c7 73 
lcc9 : 70 08 10 06 c5 bc fO 05 12 
Icdl : 86 bc 20 de b3 20 e7 a5 bf 
lad9 : fO a3 4c 39 b3 a5 ad 10 14 
lcel : 04 84 ac 84 ad a5 o2 fO d 8 
lce9 : 12 c9 02 bO 06 a5 ol c9 9f 
lcfl ! 40 90 08 a9 3f 85 cl a9 2b 
lcf9 : 01 85 c 2 4c f4 a3 20 3d 5e 
IdOl : c 6 8 a 29 03 48 20 46 c 6 «3 
ld09 : 68 dO 03 4c 9c b4 a9 01 bc 
ldl 1 : fO Oa c9 02 dO 03 4c c9 a3 
ldl9 : b 6 4c 21 b 6 20 ac o4 a5 b9 
ld21 i cl 29 07 aa bd e9 o7 85 e3 
ld29 : 5f 49 ff 85 15 20 9a c 6 28 
ld31 i bd el c7 86 5e 49 ff 85 bd 
ld39 : 14 a5 af dO Od a5 5e 4a 32 
ld41 : 26 5f 85 5f a5 14 05 15 9c 
ld49 : 85 15 a5 f7 85 f9 a5 f 8 72 
ld51 : 85 fa a5 af fO 29 a5 14 ca 
ld59 : 31 f7 85 ba bl f7 25 5a 6 b 
ld61 : 4a 05 bu 91 f7 a 6 af 08 92 
ld69 : 18 a5 f9 89 08 85 f9 90 b5 
ld71 ! 02 e 6 fa 28 ca fO 08 bl 62 
ld79 : f9 6 a 91 f9 4c 68 b4 bl 89 
ldBl f9 aa 25 15 85 ba 8 a 6 a 08 
ldB9 : 25 5f 05 ba 91 f9 a5 ae d3 
ld91 : c5 02 fO 06 20 02 c 6 4c 16 
ld99 : 4b b4 60 20 ac c4 a5 ac 3b 
ldal : 29 07 aa bd el c7 86 5f el 
lda9 ! 49 ff 85 15 a5 ol a6 c2 7e 
ldbl : 85 ac 86 ad 20 9a c6 bd 51 


ldb9 

: e9 

c7 

85 

5e 

49 

ff 

85 

14 

86 

ldcl 

: a6 

af 

dO 

Od 

a5 

5e 

Oa 

25 

d4 

ldc9 

: 5f 

85 

5f 

a5 

14 

05 

15 

85 

40 

lddl 

: 15 

a5 

f 7 

a6 

f 8 

85 

f 9 

86 

3c 

ldd9 

: fa 

a6 

af 

fO 

27 

bl 

f 9 

25 

62 

ldel 

: 14 

85 

ba 

bl 

f 9 

25 

5e 

Oa 

f 3 

lde9 

05 

ba 

91 

f 9 

08 

38 

a5 

f 9 

bc 

ldfl 

: e9 

08 

85 

f 9 

bO 

02 

c6 

fa 

ab 

ldf 9 

: 28 

ca 

fO 

08 

bl 

f 9 

2a 

91 

7a 

leOl 

: f 9 

4c 

ed 

b4 

bl 

f 9 

aa 

25 

12 

le09 

: 15 

85 

ba 

8a 

2a 

25 

5f 

05 

34 

lell 

: ba 

91 

f 9 

a5 

ae 

c5 

02 

fO 

ca 

lel9 

: 06 

20 

02 

c5 

4c 

d2 

b4 

60 

58 

le21 

: 20 

ac 

c4 

38 

a5 

ae 

e5 

02 

3b 

le29 

: fO 

f 5 

48 

20 

bc 

ad 

a5 

af 

59 

le31 

: dO 

2f 

a5 

b8 

25 

ba 

85 

bc 

dl 

le39 

: 49 

ff 

85 

bd 

68 

aa 

a5 

f 7 

fd 

le41 

: 85 

f 9 

a6 

f 8 

85 

fa 

20 

02 

00 

le49 

: c5 

bl 

f 7 

26 

bc 

85 

b6 

bl 

cO 

le51 

: f 9 

25 

bd 

05 

b6 

91 

f 9 

ca 

62 

le59 

: dO 

e4 

bl 

f 7 

25 

bd 

91 

f 7 

7d 

le 61 

: 60 

68 

48 

aa 

a5 

f 7 

86 

fb 

85 

le69 

: a5 

f 8 

85 

fc 

a5 

f 8 

85 

fa 

b9 

le71 

: a5 

f 7 

85 

f 9 

29 

07 

dO 

Of 

df 

le79 

: 38 

a5 

f 7 

e9 

39 

85 

f 7 

a5 

aa 

le 81 

: f 8 

e9 

01 

85 

f 8 

dO 

02 

c6 

Oa 

le89 

: f 7 

bl 

f 7 

25 

bB 

85 

b6 

bl 

fl 

le91 

: f 9 

25 

b9 

05 

b6 

91 

f 9 

ca 

al 

le99 

: dO 

d2 

bl 

f 7 

25 

b9 

91 

f 7 

94 

leal 

i 18 

a5 

fb 

69 

08 

85 

f 7 

a5 

90 

lea9 

: fc 

69 

00 

86 

f 8 

c6 

af 

30 

ef 

lebl 

: 15 

fO 

08 

a9 

ff 

B5 

b8 

84 

8e 

lob9 i 

: b9 

dO 

a6 

a5 

ba 

85 

b8 

a5 

3f 

leol 

: bb 

85 

b9 

4c 

62 

b5 

68 

60 

6d 

lec9 ; 

20 

ac 

c4 

20 

69 

c6 

38 

a5 

6d 

ledl i 

: 02 

e5 

ae 

fO 

38 

48 

aO 

00 

d8 

led9 : 

20 

bc 

ad 

a5 

af 

dO 

2f 

a5 

01 

leel i 

b8 

25 

ba 

85 

bc 

49 

ff 

85 

ac 

lee9 : 

bd 

68 

aa 

a5 

f 8 

85 

fa 

a5 

2c 

lef 1 : 

f 7 

85 

f 9 

20 

lf 

c5 

bl 

f 7 

04 

lof9 ! 

25 

bc 

85 

b6 bl 

f 9 

25 

bd 

af 

lfOl : 

05 

b8 

91 

f 9 

ca 

dO 

e4 

bl 

2f 

lf09 : 

f 7 

25 

bd 

91 

f 7 

60 

68 

48 

e9 

lf 11 : 

aa 

a5 

f7 

85 

fb 

a5 

fB 

85 

18 

lf 10 ! 

fc 

a5 

f8 

85 

fa 

a5 

f 7 

85 

9e 

lf 21 : 

f 9 

29 

07 

c9 

07 

dO 

Of 

a5 

28 

lf29 : 

f 7 

69 

38 

85 

f 7 

a5 

f 8 

89 

f 7 

lf 31 : 

01 

86 

fB 

4c 

39 

b6 

e6 

f 7 

91 

lf39 : 

bl 

f 7 

26 

b8 

85 

b6 

bl 

f 9 

Of 

lf 41 : 

25 

b9 

06 

b6 

91 

f 9 

ca 

dO 

11 

lf49 : 

dO 

bl 

f 7 

26 

b9 

91 

f 7 

18 

cd 

lf 51 : 

a5 

fb 

69 

08 

85 

f7 

a5 

f c 

f 8 

lf59 : 

69 

00 

85 

fß 

c6 

af 

30 

15 

18 

lf 61 : 

fO 

08 

a9 

ff 

85 

b8 

84 

b9 

63 

lf69 : 

dO 

a4 

a5 

ba 

85 

b8 

a5 

bb 

78 

lf 71 : 

85 

b9 

4c 

Of 

b6 

68 

60 

20 

38 

lf79 : 

21 

c6 

20 

69 

c6 

äd 

00 

db 

c4 

1 f 81 : 

29 

eO 

85 

bb 

85 

bc 

20 

46 

3e 

lf89 : 

c6 

20 

bf 

c& 

48 

98 

48 

86 

7f 

1 f 91 : 

bd 

20 

79 

00 

c9 

2c 

dO 

20 

3e 

lf99 : 

20 

73 i 

00 

20 

3d 

c6 

8a 

29 

fd 

lf al : 

07 

aa 

bd 

af 

c7 

85 

bc 

20 

3e 


lfa9 : 46 c 6 20 3d c 6 8 a 29 07 76 
lfbl : aa bd af c7 85 bb a 6 bd 6 b 
lfb9 : 68 85 5f 88 85 5e e4 ae 05 
lfcl : bO 03 4c 9b b7 38 a5 cl dl 
lfc9 : 06 ac aa a5 c2 e 6 ad a 8 c7 
lfdl : 18 8 a 65 5e 85 5e 98 65 cc 
lfd9 ! 5f 85 5f 38 a5 02 e5 ae 39 
lfel : 18 65 bd 85 bd 20 6 b b 8 c 8 
lfe9 : a5 ac a 6 cl 85 cl 86 fb 3f 
lffl : a5 ad a 6 c2 85 c2 86 fc fl 
Iff9 : a5 ae a 6 02 85 02 86 ba d7 
2001 : a5 5e a 6 5f a4 bd 85 ac 12 
2009 : 86 ad 84 ae aO 00 20 9a la 
2011 : c 6 85 bf 49 ff 85 af a5 e9 
2019 : f7 85 f9 a5 f 8 29 lf 05 65 
2021 : bb 85 fa a5 fb a 6 fc 85 06 
2029 : ac 86 ad a5 ba 85 aa 20 Ob 
2031 : 9a c 6 a5 i'B 29 lf 05 bc dO 
2039 i 86 fB bl f7 25 be fO 09 c4 
2041 : bl f9 05 bf 91 f9 4c 50 e3 
2049 1 b7 bl f9 25 af 91 f9 a 6 b7 
2051 : ad c5 o 2 dO 14 a 6 ac c 6 58 
2059 : cl dO Oe a5 ba c 6 02 dO 3e 
2061 ! 01 60 06 bd c 6 ba 4c 01 71 
2069 : b7 a6 ac dO 02 c 6 ad c 6 d3 
2071 : ac 06 be 90 Oc 26 be a 6 la 
2079 : f7 e9 07 85 f7 bO 02 c 6 72 
2081 : f 8 06 bf 90 Oc 26 bf a5 ba 
2089 f9 e9 07 85 f9 bO 02 c 6 a4 
2091 :•fa a5 bf 49 ff 85 af 4c fa 
2099 : 3b b7 a5 ac a 6 cl 85 cl cl 
20al : 86 fb a5 ad a 6 c2 85 c2 60 
20a9 : 86 fo a5 ae 85 ba 38 a5 47 
20bl ; fb e5 cl aa a5 fc e5 c2 c4 
20b9 : a 8 18 8 a 65 5e 85 6 e 98 79 
20cl : 65 5f 85 5f c9 01 dO 04 13 
20c9 : a5 5e c9 40 90 03 4c 15 94 
20 dl : c 6 aO 00 a5 5e a 6 5f 85 40 
20d9 : ac 86 ad a5 bd 85 ae 20 ab 
20el : 9a c 6 85 bf 49 ff 85 af 42 
20e9 : a5 f7 85 f9 a5 f8 29 lf 2f 
20fl : 05 bb 85 fa a5 fb a 6 fc 63 
20f9 : 85 ac 86 ad a5 ba 85 ae cf 
2101 : 20 9a c6 a5 f8 29 lf 05 34 
2109 : bc 85 f8 bl f7 25 be fO 82 
2111 : 08 bl f9 05 bf 91 f9 dO 23 
2119 : 06 bl f9 25 af 91 f9 a5 d6 


• ci au ue aa Da cd uz au ue 
2131 : 01 60 e 6 bd e 6 ba 4c d4 f3 
2139 : b7 a5 ac dO 02 c 6 ad c 6 a3 
2141 : ac 06 be 90 Oc 26 be a5 ea 
2149 : f7 e9 07 85 f7 bO 02 c 6 42 
2151 : f 8 06 bf 90 Oc 26 bf a5 8 a 
2159 : f9 e9 07 85 f9 bO 02 a6 74 
2161 : fa a5 bf 49 ff 85 af 4c ca 
2169 : Oc b 8 a5 bd c9 c 8 bO Od b2 
2171 : a5 5f c9 01 dO 04 aö 5e d9 
2179 : c9 40 bO 01 60 4c 15 06 f9 
2181 : 20 b5 c5 20 46 c 6 20 3d 87 
2189 : c 6 86 b 6 20 46 c 6 20 3d da 
2191 : c 6 86 b7 20 46 c 6 20 96 d4 
2199 : c 6 eO 01 dO 02 cO 68 90 12 
21al : 04 aO 67 a2 01 98 eO 00 7c 
21a9 : dO 28 c9 5a bO Oc a 8 b9 cc 
21 bl : 76 o9 85 b 8 a9 00 86 b9 a 8 
21b9 : fO 3c eO 00 dO 14 c9 b4 3e 
21cl : bO 10 e9 59 a 8 b9 76 c9 e5 
21c9 i 49 ff 85 b 8 a9 01 85 b9 b 6 
21dl : dO 24 eO 01 dO 02 c9 Oe 6 c 
21d9 : bO Oe e9 b3 a 8 b9 76 c9 47 
21el : 85 b 8 a9 02 85 b9 dO Oe f2 
21o9 : o9 Oe a 8 b9 76 c9 49 ff 15 
21f1 : 85 b 8 a9 03 85 b9 a 6 b 8 cf 
21f9 i bd 76 c 8 a 6 b 6 20 01 a 8 ba 
2201 : 85 ba a5 b 8 49 ff aa bd le 
2209 : 76 cB a 6 b7 20 01 a 8 85 3o 
2211 : bb a5 b9 dO lc 18 a5 ac 9a 
2219 : 65 ba 85 ol a5 ad 69 00 e2 
2221 : 85 c2 38 a5 ae o5 bb 90 f4 
2229 : 6 a 85 02 20 95 b9 4c cO b4 
2231 : al c9 01 dO 20 18 a5 ac c4 
2239 i 65 ba 85 cl a6 ad 69 00 02 
2241 : 85 c2 18 a5 ae 65 bb bO 48 
2249 : 4a c9 c8 bO 46 85 02 20 99 
2261 : 95 b9 4c cO al c9 02 dO 00 
2259 : lf a5 ac e5 ba 85 cl a6 5d 
2261 : ad e9 00 85 o2 18 a5 ae 94 
2269 : 66 bb bO 27 c9 c8 bO 23 a9 
2271 : 85 02 20 95 b9 4c cO al f 6 
2279’ : a6 ac e5 ba 85 cl a5 ad 9d 
2281 : e9 00 85 c2 38 a5 ae e5 6 b 
2289 : bb 90 08 65 02 20 95 b9 2a 
2291 : 4c cO al 80 a5 c2 fO fb de 
2299 : c9 02 bO 06 a5 cl c9 40 60 
22al : 90 fl 68 68 60 aO 00 ad b7 
22a9 : 00 db 84 f7 85 f8 a2 20 a2 
22bl : bl f7 49 ff 91 f7 c8 dO 4e 
22b9 : f7 06 f8 ca dO f2 60 20 21 


22 cl 

: 3d 

c 6 

8 a 

29 

07 

aa 

bd 

af 

45 

22c9 

! c7 

85 

bd 

20 

46 

c 6 

20 

7c 

da 

22 dl 

: c5 

a9 

35 

85 

01 

ad 

11 

dO 

cc 

22d9 

: 48 

29 

ef 

8 d 

11 

dO 

20 

ff 

7b 

22 el 

t b9 

n9 

00 

85 

cl 

85 

ae 

a9 

76 

22e9 

: 20 

85 

c 2 

a9 

40 

85 

af 

20 

el 

22 f 1 

! 58 

c 6 

20 

ff 

b9 

a9 

35 

85 

7d 

22f 9 

: 01 

68 

8 d 

11 

dO 

60 

aO 

00 

46 

2301 

: 84 

f 7 

84 

f 9 

a9 

20 

85 

f 8 

85 

2309 

: a5 

bd 

85 

fa 

a9 

20 

85 

b 6 

6 d 

2311 

: bl 

f 7 

aa 

bl 

f 9 

91 

f 7 

8 a 

cO 

2319 

: 91 

f 9 

c 8 

dO 

f 3 

eB 

f 8 

06 

lb 

2321 

: fn 

c6 

b6 

dO 

eb 

60 

20 

3d 

03 

2329 

: c6 

8a 

29 

07 

aa 

bd 

af 

c7 

46 

2331 

s 48 

20 

46 

c6 

20 

7c 

06 

68 

c2 

2339 

; a8 

a2 

00 

8a 

4c 

61 

cB 

20 

af 

234 1 

: 3d 

c6 

8a 

29 

07 

aa 

bd 

af 

c5 

2349 

: c7 

85 

f 8 

20 

46 

c6 

20 

3d 

ab 

2361 

: c6 

8a 

29 

07 

aa 

bd 

af 

c7 

6e 

2369 

: 85 

fa 

20 

46 

c6 

20 

3d 

c6 

lc 

2361 

: 8a 

29 

03 

85 

b6 

aO 

00 

84 

6b 

2369 

: f 7 

84 

f 9 

a9 

20 

85 

b8 

a6 

54 

2371 

: b6 

fO 

19 

ca 

fO 

11 

ca 

fO 

o4 

2379 

: 07 

bl 

f 7 

51 

f 9 

4c 

Bf 

ba 

37 

2381 

: bl 

f 7 

31 

f 9 

4c 

8f 

ba 

bl 

49 

2389 

: f 7 

11 

f 9 

2c 

bl 

f 7 

91 

f 9 

22 

2391 

: c8 

dO 

de 

e6 

f 8 

e6 

fa 

c6 

15 

2399 

b8 

dO 

d4 

80 

20 

3d 

c6 

8a 

17 

23a 1 

: 29 

07 

aa 

bd 

af 

c7 

85 

f 8 

fl 

2 3a 9 

: 20 

46 

c6 

20 

3d 

c6 

8a 

29 

28 

23bl 

i 07 

aa 

bd 

af 

c7 

85 

fa 

20 

47 

23b9 

: 46 

c8 

20 

3d 

c8 

8a 

29 

03 

7d 

23cl 

: 86 

b6 

aO 

00 

84 

f 7 

84 

f 9 

d7 

23c9 

: a9 

20 

85 

bB 

bl 

f 9 

48 

a6 

54 

23dl 

i b6 

fO 

19 

ca 

fO 

11 

ca 

fO 

44 

23d9 

: 07 

bl 

f 7 

51 

f 9 

4c 

ef 

ba 

18 

23el 

: bl 

f 7 

31 

f 9 

4c 

ef 

ba 

bl 

ac 

23c9 

: f 7 

11 

f 9 

2c 

bl 

f 7 

91 

f 9 

82 

23f 1 

: 68 

91 

f 7 

c8 

dO 

d6 

06 

f 8 

8a 

23f 9 

: e6 

fa 

c6 

b8 

dO 

ce 

60 

20 

6a 

2401 

: b6 

‘ c5 

20 

46 

c6 

20 

31 

c6 

29 

2409 

: 84 

b6 

aO 

00 

84 

b8 

a4 

b8 

23 

2411 

: c4 

b6 

bO 

5c 

e6 

b8 

a9 

01 

c5 

2419 

: 85 

ba 

bl 

22 

e9 

30 

c9 

04 

fb 

2421 

: 90 

02 

c6 

ba 

29 

03 

85 

b9 

ef 

2429 

: a9 

00 

8d 

ad 

c7 

ad 

ad 

c7 

lb 

2431 

: cd 

ae 

c7 

bO 

d9 

ee 

ad 

c7 

b9 

2439 

: a4 

ba 

dO 

09 

a6 

ae 

eO 

c8 

85 

2441 : 

bO 

03 

20 

75 

al 

a6 

b9 

bd 

db 

2449 : 

fl 

c7 

fO 

13 

30 

09 

e6 

ac 

fd 

2451 : 

dO 

Od 

e6 

ad 

4c 

60 

bb 

a5 

19 

2459 : 

ac 

dO 

02 

c6 

ad 

c6 

ac 

bd 

06 

2461 : 

f 5 

c7 

fO 

c9 

30 

05 

e6 

ae 

d3 

2469 : 

4c 

2e 

bb 

c6 

ae 

4c 

2e 

bb 

11 

2471 : 

60 

20 

3d 

c6 

8e 

ae 

c7 

20 

c7 

2479 : 

46 

cB 

20 

3d 

c6 

8a 

29 

07 

46 

2481 : 

Oa 

Oa 

Oa 

a8 

a2 

00 

b9 

f 9 

2d 

2489 : 

c7 

9d 

fl 

07 

c8 

a8 

eO 

08 

fb 

2491 : 

90 

f 4 

60 

20 

3d 

c6 

8a 

29 

3e 

2499 : 

07 

aa 

86 

b8 

8e 

aa 

c7 

bd 

87 

24al : 

af 

c7 

85 

b6 

20 

46 

cB 

20 

fc 

24a9 : 

3d 

c8 

ad 

ab 

c7 

fO 

18 

a9 

e2 

24bl : 

35 

86 

01 

8a 

29 

07 

aa 

bd 

2b 

24b9 : 

c7 

c7 

8d 

00 

dd 

bd 

bf 

c7 

22 

24cl : 

8d 

18 

dO 

a9 

30 

85 

01 

38 

67 

24c9 : 

ad 

00 

db 

e5 

b6 

85 

b6 

aO 

de 

24dl : 

oo- 

38 

b9 

00 

db 

e5 

b6 

99 

57 

24d9 : 

00 

db 

c8 

cO 

c8 

dO 

f 2 

38 

60 

24el : 

ae 

00 

db 

8a 

e9 

80 

Bd 

78 

al 

24e9 : 

a8 

Bd 

b3 

a9 

ca 

aO 

00 

8a 

41 

24f 1 : 

99 

93 

aO 

99 

98 

bO 

e8 

c8 

f 3 

24f9 : 

c8 

c8 

cO 

5e 

90 

fl 

a6 

b8 

c6 

2501 : 

bd 

b7 

c7 

aa 

8o 

18 

al 

e8 

d3 

2509 : 

8e 

19 

al 

o8 

8e 

lc 

al 

e8 

cb 

2611 : 

8e 

lf 

al 

60 

20 

3d 

c6 

8a 

bf 

2519 : 

29 

07 

aa 

bd 

af 

o7 

85 

f 8 

69 

2521 : 

85 

b8 

20 

46 

c6 

20 

3d 

c6 

c3 

2529 : 

8a 

29 

07 

aa 

bd 

of 

c7 

85 

e2 

2531 : 

fa 

85 

b9 

20 

46 

c6 

20 

3d 

f 6 

2539 : 

c6 

8a 

09 

OL 

85 

b6 

20 

46 

c2 

2541 : 

o6 

20 

3d 

o6 

8e 

ad 

c7 

aO 

f 6 

2649 ; 

00 

84 

f 7 

84 

f 9 

84 

fd 

84 

de 

2551 : 

fb 

84 

fc 

a9 

20 

85 

fe 

aO 

6e 

2559 : 

00 

bl 

f 7 

aa 

bl 

f 9 

91 

f 7 

a6 

2561 ! 

8a 

91 

f 9 

c8 

cc 

ad 

c7 

dO 

46 

2569 : 

fa 

18 

aö 

f 7 

65 

b6 

85 

f 7 

ea 

2571 : 

90 

19 

e6 

f 8 

e6 

fa 

e6 

fc 

42 

2579 : 

a5 

fc 

c9 

20 

90 

Od 

a5 

b8 

8c 

2581 : 

85 

f 8 

a6 

b9 

85 

f a 

a9 

00 

fa 

2589 : 

85 

fc 

18 

aö 

f 9 

65 

b6 

85 

f 8 

2591 : 

f 9 

18 

ab 

fb 

65 

b6 

85 

fb 

99 

2599 : 

a5 

fd 

dO 

02 

c6 

fe 

c6 

fd 

2d 

26al : 

aö 

fd 

05 

fe 

dO 

bl 

60 

20 

c2 

25a9 : 

79 

00 

aa 

dO 

2e 

a9 

35 

85 

f 7 

25bl : 

01 

a9 

31 

aO 

ea 

Bd 

14 

03 

59 

25b9 : 

8c 

15 

03 

a9 

fO 

8d 

la 

dO 

4b 

25cl : 

ad 

a8 

c7 

fO 

15 

ad 

a7 

c7 

bf 

25c9 : 

Bd 

00 

dd 

ad 

a6 

c7 

8d 

11 

84 

25dl : 

dO 

ad 

a5 

c7 

8d 

18 

dO 

ce 

55 




52 


SONDERHEFT 11 









C 64 


GRAFIK 


25d9 : 
25el : 
25e9 : 
25X1 : 
26X9 : 
2601 : 
2609 : 
2611 1 
2619 : 
2621 : 
2629 : 
2631 ! 
2039 : 
2641 ; 
2649 i 
2661 : 
2659 i 
2661 
2669 : 
2671 
2679 
2681 
2689 
2691 
2899 
26al 
26a9 
26bl 
26b9 
26cl 
26 g 9 
26dl 
26d9 
28el 
26e9 
26fl 
26f 9 
2701 
2709 
2711 
2719 
2721 
2729 
2731 
2739 
2741 
2749 
2751 
2759 
2761 
2769 
2771 
2779 
2781 
2789 
2791 
2799 
27al 
27a9 
27bl 
27b9 
27cl 
27c9 
27dl 
27d9 
27ol 
27e9 
27f 1 
27X9 
2801 
2809 
2811 
2819 
2821 
2829 
2831 
2839 
2841 
2849 
2851 
2869 
2861 
2869 
2871 
2879 
2881 
2889 
2891 
2899 
28al 
2Ba9 
28bl 
28b9 
28cl 
28o9 
28dl 
28d9 
28el 
28e9 


aB c7 60 c9 
3d c6 8e 3d 
20 3d c6 8e 
c2 8d la dO 
3d c6 8a 30 
bd bf o7 8d 
c7 8d 35 o2 
o2 dO 12 ad 
q 2 ad a3 c7 
a4 o7 Bd 35 
20 3d c6 8a 
aa bd bf c7 
o7 c7 Bd 4c 
47 c2 dO 12 
42 c2 ad a3 
ad a4 c7 8d 
aO c2 8d 14 
a9 35 85 01 
15 ea aB c7 
a6 c7 ad 18 
ad 00 dd 8d 
c2 Bd 12 dO 
7f 8d 11 dO 
dO 60 20 21 
aO 00 38 a5 
86 bd a5 ae 
a5 ad 48 a5 
c2 85 ad a6 
9a c6 86 b7 
a5 X8 85 5f 
85 ac 20 9a 
X9 a5 X8 85 
20 9a c6 a5 
11 a5 X7 c5 
el c7 a6 b7 
54 be 38 a5 
b6 a5 5f a5 
6a 4a 4a 85 
c7 85 b9 49 
b6 a6 b9 dO 
b9 84 ba 31 
X9 48 25 b9 
25 ba 05 bc 
ba 05 bb 91 
08 85 X7 90 
a5 X9 69 08 
e6 Xa 18 ca 
bd e9 c7 85 
ba bl X7 25 
X9 48 25 b9 
25 ba 05 bc 
: ba 05 bb 91 
02 a5 bd fO 
: a3 bd 60 20 
c6 aO 00 38 
: 85 b6 a5 c2 
b6 a5 ac 48 
; cl 85 ac a5 
9a c6 85 bX 
: a5 X8 86 Xa 

: 85 ac 20 9a 

: X7 25 be XO 

: bX dO 25 bl 

: X9 aS be 49 

: X7 4c XI be 

: XO Oe a5 bf 

: 91 X9 bl X7 

: 46 be 90 Oc 

: 69 08 85 X7 

: 06 bX 90 Oc 

: o9 07 85 X9 

: Ba XO 04 ca 

: ae o5 02 XO 

: 9a be 60 c9 

: eO XO 03 4c 

: 8d a9 c7 4c 

! c6 20 b5 o5 

: 80 85 62 84 

: 65 64 66 64 

: 31 X7 XO 02 

i 60 00 00 00 

: 00 00 00 00 

; 00 00 00 00 

: 00 00 00 00 

: 00 00 00 00 

: 00 00 00 00 

: 00 00 00 00 

: 00 00 00 00 

: 00 00 00 00 

i 00 00 00 00 

: 00 00 00 00 

: 00 00 00 00 

: 00 00 00 00 

: 00 00 00 00 

: 00 00 00 00 

: 00 00 00 00 

; 00 00 00 00 

: 00 00 00 00 

: 00 00 00 00 


3a 10 ce 20 
c2 20 46 c6 
22 c2 8e 26 
20 46 c6 20 
16 29 07 aa 
2b c2 bd c7 
a9 3b 8d 30 
a2 o7 8d 2b 
8d 30 c2 ad 
c2 20 46 c6 
30 16 29 07 
Bd 42 o2 bd 
c2 a9 3b 8d 
ad a2 c7 8d 
c7 8d 47 c2 
4c c2 a9 Of 
03 Bc 15 03 
ad a8 o7 dO 
ad 11 dO 8d 
dO 8d a5 o7 
a7 c7 ad 3a 


ad 11 
a9 81 


dO 29 
8d la 


c6 20 69 c6 
02 e5 ae 4a 
48 ab ac 48 
cl 86 ac a5 
02 85 ae 20 
a6 17 85 5e 
68 85 ad 68 
cB a5 X7 85 
Xa 68 85 ae 
5X c5 Xa dO 
6e dO Ob bd 
2d e9 c7 4c 
5e e5 X9 85 
Xa 4a a5 b6 
b6 18 bd el 
ff 85 ba a6 
06 a9 XX 85 
17 85 bb bl 
85 bc bl 17 
91 17 68 25 
f9 a5 17 69 
03 e6 f8 18 
85 f9 90 03 
dO c7 a6 b7 
b9 49 ff 85 
b9 85 bb bl 
85 bc bl 17 
91 X7 68 25 
X9 e6 ae c6 
05 c6 bd 4c 
21 c6 20 69 
a5 cl e5 ac 
e5 ad 4a 66 
a5 ad 48 a5 
c2 85 ad 20 
a5 17 85 X9 
68 85 ad 68 
c6 a6 b6 bl 
17 bl X9 25 


X9 05 bf 
ff 31 17 


91 

91 


bl X9 25 bf 
49 ff 31 X9 
05 be 91 17 
66 be a5 X7 

90 02 e6 X8 
26 bf a5 X9 
bO 02 c6 Xa 
4c cO be a5 
05 e6 ae 4c 

91 XO 07 c9 
lb c6 e9 eO 
73 00 20 a3 
20 ac o6 a9 
63 84 64 84 
Od 20 9a c8 
aO 81 84 61 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 


5d 

28X1 

aO 

28X9 

ea 

2901 

aa 

2909 

5e 

2911 

91 

2919 

47 

2921 

6b 

2929 

54 

2931 

87 

2939 

51 

2941 

14 

2949 

52 

2951 

8a 

2969 

58 

2961 

93 

2969 

2f 

2971 

07 

2979 

da 

2981 

09 

2989 

37 

2991 

al 

2999 

3e 

29al 

5e 

29a9 

9b 

29bl 

39 

29b9 

32 

29cl 

9d 

29c9 

3c 

29dl 

6a 

29d9 

84 

29el 

X 2 

29e9 

5e 

29X1 

8f 

29X9 

28 

2a01 

6f 

2a09 

lc 

2 all 

ba 

2al9 

8f 

2a21 

db 

2a29 

e7 

2a31 

b4 

2a39 

49 

2a41 

Oe 

2a49 

8f 

2a51 

af 

2a59 

61 

2a61 

96 

2a69 

a8 

2a71 

f 4 

2a79 

89 

2a81 

ee 

2a69 

fl 

2a91 

bb 

2a99 

00 

2aal 

X 5 

2aa9 

8a 

2abl 

54 

2ab9 

24 

2acl 

cd 

2ac9 

dO 

2adl 

4a 

2ad9 

5a 

2ael 

02 

2ae9 

49 

2 af 1 

87 

2af 9 

5f 

2b01 

lf 

2b09 

6d 

2bl 1 

77 

2bl9 

42 

2b21 

71 

2b29 

23 

2b31 

bc 

2b39 

ld 

2b41 

Od 

2b49 

06 

2b51 

a2 

2b59 

e4 

2b61 

e5 

2b69 

ba 

2b71 

62 

2b79 

6a 

2b81 

72 

2b89 

7a 

2b91 

82 

2b99 

8a 

2 bal 

92 

2ba9 

9a 

2bbl 

a2 

2bb9 

aa 

2 bcl 

b2 

2bc9 

ba 

2bdl 

c2 

2bd9 

ca 

2bel 

d2 

2be9 

da 

2bf 1 

e2 

2bf 9 

ea 

2c01 


00 00 
00 00 
Be 06 
a9 49 
99 aO 
e3 a 6 
00 02 
e 8 dO 
08 c8 
2d c9 
26 c9 
ld 84 
86 7a 
38 X9 
dO 30 
99 fb 
38 e9 
02 85 

85 08 
08 XO 
dO XO 
9d aO 
b4 aO 
00 02 

80 XO 
b9 dO 
dO e4 
Xd 01 
60 20 
c9 Bb 
20 79 
cO 20 
cc Oa 
9e ca 
00 20 

81 dO 
a7 20 
dO ba 
aO a8 
Od 20 
c9 f5 
8d ae 
01 58 
fl ca 
8e c6 

86 c7 
Ob 24 
06 4c. 
cb aa 
49 aO 

: dl c9 
dl c9 
: X 5 4c 
; 98 48 
; 01 a9 
dd 30 
: ff dO 
: fd 20 
: ab c7 
: c8 XO 
: dO f 4 
: cl 8d 
: 19 03 
: 01 4c 
: 09 20 
: 94 c6 
i XO 09 
: 20 94 
: dO 8d 
: de 58 
: c9 00 
i dO a9 
: 8d 11 
: 4c 81 
a9 00 
dO 
ea 


00 00 
00 00 
20 01 
aO c8 
q 4 20 
7a aO 
10 07 
X4 c9 
22 XO 
3f dO 
30 90 
.71 aO 
ca c8 
9e aO 
05 Ob 
01 b9 
3a XO 
Of 38 
bd 00 
db c8 
a6 7a 
10 Xa 

ff ca 
X9 dl 
of a6 
c9 10 
bd 00 
c6 7b 
73 00 
XO 25 
00 4c 
94 06 
aB b9 
48 20 
73 00 
06 20 
79 00 
20 73 
4c ae 
73 00 
bO 06 
20 44 
60 e9 
48 bd 
4c 73 
28 10 
Of 30 


e9 

02 


11 
81 
05 c3 
Xe a9 
ce 05 
aa bd 

85 01 
04 a2 
ba ff 
ac 85 
c9 2c 
52 c3 

86 13 
cf c7 
a5 ae 
78 a9 
a5 ac 
17 a6 
05 b6 
a2 37 
c7 e6 
dO ce 
a9 00 
ca 10 


ad a9 
ff ca 
10 la 
30 05 
et a6 
a5 01 
7f 8d 
3b 20 
33 20 
18 e5 

84 d4 
07 20 
6c 02 

18 03 
8c fb 
72 Xe 
8e c6 
4c 8b 
20 8e 
c6 4c 

19 dO 
4c 31 
bO 17 
00 8d 
dO a9 
ea a9 
8d 18 
a9 00 

20 3d 
Bd e3 
01 85 
c3 ce 
af c7 
aB 00 
04 aO 
20 cO 
ad 85 
dO 06 
a9 28 
20 18 
20 d2 

85 b8 
30 85 
29 X8 
ad 7d 

85 X8 

86 01 
ae c8 
a5 b8 
a2 07 
f9 49 


00 00 00 00 
00 00 00 20 
aO 20 94 06 
20 le ab a9 
2d e4 4c 86 
04 84 Of bd 
c9 ff XO 3e 
20 XO 37 85 
56 24 Of 70 
04 a9 99 dO 
04 c9 3c 90 
00 84 Ob 88 
eB bd 00 02 
XO X5 c9 BO 
a4 71 e8 c8 
fb 01 XO 67 
04 c9 49 dO 
55 dO 9f 
XO df o5 
99 fb 01 eB 
e6 Ob c8 b9 
b9 9e aO dO 
c8 e8 38 bd 
c9 XO X5 c9 
7a e6 Ob c8 
la b9 dl c9 
02 10 9d 99 
a9 ff 85 7a 
c9 X6 bO 08 
c9 oc bO 06 
e7 a7 20 XO 
4c ae a7 e9 
9f ca 48 b9 
8e c6 4c 73 
20 9e ad a5 
3b a9 4c ae 
10 X8 c9 a7 
00 bO b5 20 
a7 a9 00 85 
c9 ff XO 04 
20 79 00 4c 
cl a2 37 86 
X5 Oa aa bd 
XO aa 48 20 
00 08 a2 00 
Of c9 ff XO 
07 c9 cc bO 

41 dl 

10 08 cd b9 
30 X5 c8 b9 
20 47 ab dO 
78 48 8a 48 
48 a9 37 85 
Od dd ac Od 
bc X6 20 el 
d6 cl 20 a3 
68 aO 00 8c 

84 d8 b9 4a 
d2 ff 78 c8 
aO a9 95 aO 
8d Xa ff 8c 
ff 60 68 85 
ad ab c7 XO 
20 52 al 20 
e3 ad ab c7 
cB 20 52 al 

83 a4 ad 19 
30 07 ad Od 
ea ad 12 dO 
a9 00 Bd 12 
18 dO a9 00 
00 8d 00 dd 
00 8d 12 dO 
dO a9 00 8d 
8d 00 dd 4c 
c6 a9 00 8d 
o3 85 5e 85 
fd 8a 10 06 
e3 o3 29 07 

85 b6 a9 37 
20 bd ff a9 
ff 84 bd 20 
ff a9 00 85 
ae 20 79 00 
20 73 00 4c 
85 bb a2 04 
el aO 04 b9 
ff 88 10 17 
aO 00 84 b9 
01 18 a6 ae 
7d 00 da 85 
00 db 29 
aO 00 bl 17 
a4 b9 99 9a 

84 b9 cO 07 

85 ae aO 08 
le 9a c7 2a 
00 25 bd 09 


X 2 

2c09 

80 20 d6 c6 88 dO e9 18 

3a 

2c 11 

a5 ac 69 08 85 ac 90 03 

05 

2cl9 

e6 ad 18 c6 bb dO 99 a9 

8d 

2c21 

00 85 ac 85 ad a5 ae 69 

70 

2c29 

07 85 ae a9 Od 20 d6 c6 

le 

2c31 

a5 bd c9 XX dO 10 a5 ae 

e4 

2c39 

c9 c4 bO 03 4c a3 c2 a9 

61 

2c41 

Of 85 bd 4c a3 c2 20 d2 

68 

2c49 

ff 20 b5 ab a9 04 4c c3 

ca 

2c51 

ff 20 3d c6 a9 37 85 01 

Oa 

2c59 

a9 ff 85 14 8a dO 03 4c 

7a 

2c61 

a3 c2 a9 c7 85 ae a2 04 

60 

2c69 

86 13 20 18 el aO 05 b9 

30 

2c71 

d3 c7 20 d2 ff 88 dO X7 

17 

2o79 

a6 14 49 ff 85 14 a5 ac 

b2 

2c81 

a4 ad 85 X9 84 Xa a5 X9 

aO 

2c89 

a4 Xa 85 ac 84 ad a5 14 

d4 

2c91 

85 15 aO 00 84 ba a9 07 

2c 

2c99 

85 b9 78 a9 30 86 01 18 

68 

2cal 

a6 ae a5 ac 29 X8 7d 00 

30 

2ca9 

da 85 X7 a5 ad 7d 00 db 

9e 

2cbl 

29 lf 05 bB 85 X8 a5 ac 

2f 

2cb9 

29 07 aa bd d9 c7 31 17 

X 2 

2ccl 

XO 01 38 66 ba c6 b9 XO 

07 

2cc9 

10 a5 15 49 ff 85 15 dO 

a7 

2cdl 

ea e6 ac dO ca e6 ad dO 

bd 

2cd9 

c6 a9 37 85 01 46 bo a5 

Od 

2 cel 

ba 49 00 25 bd 09 80 48 

3d 

2ce9 

20 dB c6 68 20 d6 c6 c6 

la 

2cf 1 

ae a5 ae c9 ff dO 8f a9 

66 

2cf 9 

Od 20 d6 c6 a5 ad dO 03 

64 

2d01 

4c 63 c3 a5 ac c9 3e bO 

08 

2d09 

03 4c 63 c3 a5 bd 10 07 

4a 

2dl 1 

a9 Of 85 bd 4c 63 c3 4c 

e7 

2dl9 

47 c3 20 51 c4 20 46 c6 

eB 

2d21 

20 3d c6 aO 00 8a Oa Oa 

74 

2d29 

Oa Oa 85 f9 bl X7 29 Of 

59 

2d31 

86 Xa 20 79 00 c9 2c dO 

dl 

2d39 

Ob 20 73 00 20 3d c6 8a 

8c 

2d41 

29 Of 85 fa a5 X8 05 Xa 

48 

2d49 

aO 00 91 X7 60 4c 15 c6 

c9 

2d51 

20 bf c5 18 29 X8 7d 00 

99 

2d59 

da 85 17 98 7d 00 db a8 

30 

2d61 

38 a5 f7 e9 00 85 X7 98 

Bf 

2d69 

ed 00 db 4a 66 17 4a 66 

XO 

2d71 

17 4a 66 17 ae aa c7 38 

9c 

2d79 

7d b7 c7 85 f8 60 20 a3 

66 

2d81 

c5 20 51 c4 aO 00 bl f7 

03 

2d89 

48 20 46 c6 20 3d c6 8a 

51 

2d91 

dO 06 68 4a 4a 4a 4a 24 

e3 

2d99 

68 29 Of a8 20 4f c6 4c 

78 

2dal 

ac c5 20 94 c6 20 15 fd 

01 

2da9 

4c 53 e4 20 21 c8 20 69 

99 

2dbl 

c6 a5 ae a4 02 85 02 84 

95 

2db9 

ao a5 ad 4a a5 ac 6a 4a 

39 

2dcl 

4a 85 be a5 c2 4a a5 cl 

2c 

2dc9 

6a 4a 4a 38 e5 be 85 af 

2e 

2ddl 

85 bf 20 8e c6 aO 00 60 

96 

2dd9 

48 8a 20 X7 c4 Oa Oa Oa 

70 

2 del 

Oa 85 be 68 20 17 c4 05 

66 

2de9 

be 60 20 3d c6 8a 29 07 

91 

2df 1 

Oo Oa Oa Oa 0a 60 38 e9 

ce 

2df 9 

3a bO 03 69 07 38 69 02 

c6 

2e01 

60 a5 17 29 07 XO 05 c6 

e2 

2e09 

f7 c6 ae 60 38 a5 17 e9 

51 

2 el 1 

39 85 17 a5 XB e9 01 85 

4a 

2el 9 

X8 c6 ae 60 a5 X7 29 07 

X 5 

2e21 

c9 07 bO 05 e6 17 e6 ae 

14 

2e29 

60 a5 X7 69 38 85 X7 a5 

61 

2e31 

X8 69 01 85 X8 e6 ae 60 

ee 

2e39 

a5 ac dO 02 c6 ad c6 ac 

2e 

2e41 

06 be bO 01 60 26 be a5 

dB 

2e49 

X7 e9 07 85 X7 bO X5 c6 

8c 

2e51 

X8 4o 45 c5 e6 ac dO 02 

c6 

2e59 

e6 ad 46 be bO 01 60 66 

16 

2e61 

I bo a5 17 69 08 85 X7 90 

CC 

2e69 

X5 06 X 8 dO fl 48 20 94 

Oo 

2e71 

c6 68 20 d2 ff 48 20 Be 

a5 

2e79 

c6 68 60 20 94 c6 20 d4 

93 

2e81 

ol 4c 8 e c 6 20 94 06 20 

02 

2e89 

9e ad 20 9b bc 20 8e a6 

2c 

2e91 

a5 65 a4 64 60 20 94 c6 

47 

2e99 

20 9e ad 20 17 b7 aa 4c 

bb 

2eal 

8 e 06 20 94 c6 20 fa ae 

ee 

2ea9 

4c Be c6 20 94 c6 20 17 

a3 

2 ebl 

ae 4c 8e c6 20 bf c6 85 

Od 

2ob9 

ac 84 ad 86 ae 60 a9 37 

6b 

2ecl 

85 01 20 9e ad a5 66 30 

3b 

2ec9 

4b a5 61 c9 91 bO 45 20 

bd 

2edl 

9b bc a5 65 a4 64 cO 01 

93 

2ed9 

dO 02 c9 40 bO 36 85 14 

7c 

2eel 

84 15 20 fd ae 20 9e ad 

78 

2ee9 

a5 66 30 28 a5 61 c9 89 

7a 

2ef 1 

bO 22 20 9b bc 78 a9 30 

94 

2ef 9 

85 01 a6 65 eO c8 bO 14 

Of 

2X01 

a5 14 a4 15 60 20 3d c6 

09 

2X09 

eO 03 bO 08 8a 6a 6a 6a 

56 

ad 

Llstlng 1. Fortsetzung 


Of 

6e 

bl 

65 

8e 

a9 

31 

82 

al 

15 
ba 

29 
2f 
02 
63 
47 

16 
9c 
bl 
ee 

77 
92 
59 
b7 
3c 
bO 
6b 
9b 
94 
Bf 
b8 
18 
la 
e2 
68 
36 
76 
Ob 
4d 
e7 
97 
16 
9f 
e4 
b3 
X 6 
cf 
04 
68 

30 
9f 
88 

78 
e7 
ec 
cb 
bo 
42 
46 
49 
fb 
ld 
55 
XO 

71 
ad 
X 9 
62 
62 
11 
17 
70 
12 
94 
el 
cb 
34 
ae 
39 
07 
Oe 
85 
X 8 
e4 
e2 
24 
e6 
a5 
6c 
63 
20 
79 

72 
o4 
94 
06 
12 
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2fll 
2fl9 
2f 21 
2f 29 
2f 31 
2f 39 
2f 41 
2f 49 
2f 51 
2f59 
2f 61 
2f 69 
2f 71 
2f79 
2f 81 
2f 89 
2f 91 
2f 99 
2fal 
Xfall 
2fbl 
2fb9 
2fcl 
2fo9 
2f dl 
2fd9 
2fel 
2f o9 
2f f 1 
2ff9 
3001 
3009 
3011 
3019 
3021 
3029 
3031 
3039 
3041 
3049 : 
3051 : 
3069 : 
3061 : 
3069 : 
3071 : 
3079 : 
3081 : 
3089 : 
3091 : 
3099 : 
30al : 
30a9 : 
30bl : 
30b9 : 


: 8 d 98 
: 48 b2 
: 20 b5 
: o5 85 
: 20 94 
b7 4c 
i 9e b7 
20 fd 
: c 6 20 
94 06 
48 20 
aö 02 

85 ae 
06 ad 
a4 ad 

86 ac 
86 01 
60 a6 
7d 00 
00 db 
aa bd 
ae 18 
d8 85 

85 f8 
d9 c7 
6b a5 
fo dO 
18 a5 
dO f 9 

86 fe 

la 20 
ff a6 
c6 e6 
a5 fd 
d2 ff 
ff 20 
ff 4c 
e6 fd 
5f a5 
a5 fe 
bO Od 
dO f 9 
la 20 
ff a9 
ff e6 
a5 fd 
d2 ff 
ff 20 
c6 fe 
dO ff 
ff 15 
01 00 
40 60 
5f 5b 


c7 60 
20 94 
c5 20 
cl 84 
66 20 
8 e 06 
4c Be 
ae 4c 
a2 b3 
20 ed 
94 o6 
c5 ae 

84 02 
dO 02 

85 ad 
84 cl 
60 a9 
ae 18 
da 86 
Hb ffl a5 ao 
d9 c7 86 be 
a5 ac 29 f8 
f7 a6 ad 7d 


20 94 
c6 4c 
46 o6 
c2 86 
9e ad 
20 94 
c6 20 
8e c6 
4c 8e 
f 5 4c 
68 4o 
bO 06 
a5 c2 
e4 ac 
84 o2 
60 78 
37 85 
a5 aa 
f 7 a5 


a5 ac 
85 be 
6o c9 
2e a5 
5e 20 
a9 00 
a9 Od 
d2 ff 
6e 20 
fd a9 
20 d2 
a9 la 
d2 ff 
f 3 c6 
dO 02 
5e 48 
dO 25 
68 20 
a9 01 
d2 ff 
01 85 
fd a9 
20 d2 
a9 la 
d2 ff 
68 4c 
ff ff 
1b c7 
00 00 
80 eO 
7f db 


c6 4c 
08 af 
20 bf 
02 60 
20 82 
c6 20 
94 c6 
20 94 
c6 20 
6e c6 
d5 ff 
a4 ao 
a6 cl 
bO Oc 
a4 ac 
a9 30 
01 58 
29 f8 
ad 7d 
29 07 
60 a6 
' 7d 00 
00 d9 
aa bd 
Od dO 
13 a5 
03 bO 
c6 fd 
85 5e 85 fd 
4c d2 ff a9 
a5 fd 20 d2 
d2 ff 4c f3 
la 20 d2 ff 
ff a5 5e 20 


29 07 
60 c9 
80 fO 
fd o9 
d2 ff 


20 d2 
a5 5e 
c5 5e 
e6 fe 
a5 5f 
a5 fd 
d2 ff 
85 fd 
a5 fd 
fd 68 
la 20 
ff 68 
20 d2 
a9 01 
d2 ff 
ff ff 
00 00 
01 01 
eO eO 
db db 


ff a9 
20 d2 
dO 07 
60 85 
85 5e 
c9 03 
c6 fd 
60 b9 
20 d2 
4c d2 
d2 ff 
48 20 
ff a9 
85 fd 
10 40 
ff ff 
00 00 
eO 20 
db 07 
78 28 


43 
a3 
2c 
db 
2e 
95 
ed 
66 
db 
aO 
f 7 
82 
3d 
18 
5d 
8f 
38 
51 
e4 
8a 
c6 
o3 
69 
ba 
fl 
ff 

23 
b2 
86 
b8 
50 
bd 
ed 
06 
8c 
60 
cd 

85 
3c 
be 
ea 
cd 
bO 
28 

86 

24 
ec 
02 
68 
69 
eb 
86 
fO 
fO 


30cl : 
30c9 : 
30dl : 
30d9 : 
30el : 
30e9 : 
30f 1 : 
30f9 : 
3101 ; 
3109 : 
3111 : 
3119 : 
3121 : 
3129 : 
3131 : 
3139 : 
3141 : 
3149 : 
3161 : 
3159 : 
3161 : 
3169 : 
3171 : 
3179 : 
3181 i 
3189 : 
3191 : 
3199 : 
31al : 
31a9 : 
31bl : 
31b9 : 
31cl : 
31c9 : 
31dl : 
31d9 : 
Siel : 
31e9 : 
31f 1 : 
31f 9 : 
3201 : 
3209 : 
3211 : 
3219 : 
3221 : 
3229 : 
3231 : 
3239 : 
3241 : 
3249 : 
3251 : 
3259 : 
3261 : 
3269 : 


80 78 
02 02 
10 1b 
80 40 
ff 7f 
80 cO 
00 01 
00 01 
01 01 
01 00 
01 ff 
00 ff 
ff ff 
ff 00 
ff 01 
30 31 

38 39 
93 06 
2a 20 
4f 52 
49 52 
54 45 

20 2a 
02 03 
08 09 
Oe Of 
15 15 
lb la 

21 22 
27 28 
2d 2e 
33 34 

39 39 
3e 3f 
44 44 
49 49 
4e 4f 
53 63 
57 58 
5c 5c 
60 61 
64 65 
68 68 
6b 6c 
6f 6f 
72 72 
74 75 
77 
79 
7b 7b 
7c 7d 
7e 7e 
7f 7f 
7f 7f 


78 78 
00 00 
08 28 
20 10 
3f lf 
eO fO 
00 ff 
00 ff 
ff ff 
ff 00 
ff 01 
00 01 
01 01 
01 00 
01 ff 
32 33 
41 42 
92 8e 
43 4f 
45 20 
45 53 
52 20 
2a 2a 


78 78 
00 00 
00 10 
08 04 
Of 07 
f 8 fo 
ff 00 
ff 00 
ff 01 
00 01 
01 01 
01 00 
01 ff 
00 ff 
ff ff 
34 35 
43 44 

11 ld 
4d 4d 
36 34 
2d 4d 
56 31 
Od 00 
05 06 
Ob Oo 

12 12 
18 19 
le lf 
24 25 
2a 2b 
30 31 
36 36 
3b 3c 
41 42 
46 47 


03 04 
Oa Ob 
10 11 
16 17 
lc ld 
23 23 
29 29 
2e 2f 
34 35 
3a 3b 
40 40 
45 46 
4a 4b 4b 4c 
4f 50 50 61 
54 56 55 56 
59 59 5a 5a 
5d 5e 5e 5f 
61 62 62 63 
65 66 66 67 

69 69 6a 6a 
6c 6d 6d 6e 

70 70 70 71 
72 73 73 73 
76 75 76 76 

‘ 7 “a 7a 
7c 7c 
7d 7d 
7e 7e 
7f 7f 
7 f 7f 


00 03 
50 00 
lb 08 
02 01 
03 01 
fe ff 
01 00 
01 00 
01 ff 
00 ff 
ff ff 
ff 00 
ff 01 
00 01 
01 01 

36 37 
45 46 
2a 2a 
4f 44 
20 48 

41 53 
2o 30 
00 01 
07 07 
Od Oe 
13 14 
19 la 
lf 20 
26 26 
2c 2c 
31 32 

37 38 
3d 3d 

42 43 
48 48 
4d 4d 
52 62 

66 57 
5b 5b 
5f 60 
63 64 

67 68 
6b 6b 
6e 6e 
71 71 
74 74 
76 77 


7b 7b 
7d 7d 
7e 7e 
7f 7f 
7f 7f 


a Io 
7c 7c 
7d 7d 
7e 7e 
7f 7f 
7f 7f 


fc 
Oe 
73 
2e 
8b 
93 
76 
7e 
8f 
12 
4a 
49 
92 
6b 
f 7 
29 
a6 
oc 
4b 
3d 

78 
01 

49 
e9 
53 
6b 
7c 
05 
51 
69 
ld 
lc 
92 
76 
a2 
aa 
32 
b6 
92 
c6 
4e 
56 
b3 
64 
ad 
6d 

50 

79 
81 
67 
50 
59 
61 
69 


3271 
3279 
3281 
3289 
3291 
3299 
32al 
32a9 
32bl 
32b9 
32cl 
32c9 
32dl 
32d9 
32el 
32e9 
32f 1 
32f 9 
3301 
3309 
3311 
3319 
3321 
3329 
3331 
3339 
3341 
3349 


7f 7f 
08 Ob 
lf 22 
35 38 
4c 4f 
63 66 
79 7d 
90 93 
• a7 aa 
bd cO 
d4 d7 
ob ee 
48 46 
43 4c 
47 52 
c6 4d 
d4 4c 
43 4c 

42 4f 
45 54 
4d 53 
ob 52 
d4 53 
d3 4f 

43 49 
62 4f 


7f 7f 
Oe 11 
24 27 
3b 3e 
52 55 
68 6b 
80 82 
96 99 
ac af 
c3 c6 
da dd 
fO f3 
4o dO 
d3 43 
4f ce 
4f 44 
49 4e 
c5 42 
d8 46 
4d 53 
cb 53 
4f 4c 
49 5a 
46 c6 
62 43 
4c oc 


7f 00 02 05 
13 16 19 la 
2a 2d 30 33 
41 44 46 49 
67 5a 5d 60 
6e 71 74 77 
85 88 8a 8d 
9b 9e al a4 


b2 b5 
c9 cc 
df e2 
f 6 f 9 
49 4o 
4f 4c 
47 62 
o5 50 
c6 43 
4o 4f 
49 4c 
cb 43 
64 4f 


b 8 bb 
ce dl 
e5 08 
fc ff 
49 d4 
4f d2 
4f 46 
4c 4f 
49 52 
43 cb 
cc 53 
48 41 
4d 53 


cc 54 45 58 
c6 45 43 4a 
41 62 c3 46 
4c c5 53 43 
52 41 c4 62 
46 56 45 52 d3 47 53 41 
56 c5 47 4c 4f 41 c4 43 


8a 

2b 

d3 

53 

43 

ea 

2b 

5a 

01 

82 

72 

19 

bf 

da 

dO 

61 

48 

00 

bb 

bl 

01 

aO 

69 

50 

dd 

C6 

94 

76 


3351 

: 4f 

4e 

4e 

45 

43 

d4 

53 

57 

da 

3359 

: 41 

dO 

46 

49 

47 

56 

52 

c5 

bl 

3361 

: 54 

65 

52 

ce 

50 

41 

47 

c5 

86 

3369 

: 44 

65 

50 

4c 

49 

43 

41 

54 

52 

3371 

: c5 

45 

46 

46 

45 

4b 

d4 

57 

e4 

3379 

: 49 

4e 

44 

4f 

d7 

58 

4d 

49 

ec 

3381 

: d2 

59 

4d 

49 

d2 

43 

4f 

50 

al 

3369 

: d9 

4f 

50 

54 

49 

4f 

ce 

43 

79 

3391 

: 53 

45 

d4 

54 

45 

53 

d4 

43 

Of 

3399 ; 

: 54 

45 

53 

d4 

00 

60 

bO 

00 

a6 

33a 1 

'■ aO 

8c 

aO 

f 4 

aO 

23 

al 

51 

9a 

33a9 i 

al 

05 

c6 

84 

al 

ba 

al 

03 

9b 

33bl : 

: a5 

12 

a6 

lc 

a7 

13 

a8 

78 

33 

33b9 : 

aa 

bl 

aa 

d8 

aa 

f 7 

aa 

e8 

e8 

33cl : 

ad 

11 

bO 

86 

bO 

a2 

c4 

08 

37 

33c9 : 

bl 

17 

b3 

fe 

b3 

80 

b8 

a5 

40 

33dl ! 

b9 

bf 

b9 

26 

ba 

3f 

ba 

9c 

67 

33d9 : 

ba 

ff 

ba 

71 

bb 

93 

bb 

77 

a6 

33el : 

b6 

14 

bc 

a7 

bc 

92 

bd 

83 

24 

33e9 ! 

be 

52 

c2 

23 

bf 

la 

c4 

36 

32 

33f 1 : 

bf 

7e 

c4 

00 

07 

Of 

3f 

3c 

7f 

33f9 : 

78 

70 

70 

70 

70 

78 

3c 

3f 

Oe 

3401 : 

Of 

07 

00 

00 

80 

80 

80 

7e 

9f 

3409 : 

7c 

78 

00 

00 

78 

7c 

7e 

80 

28 

-3411 : 

80 

80 

00 

aa 

aa 

aa 

aa 

55 

7c 


Llsting 1. »HiRes-Master« (Schluß) 


10 GRON:CLS:MÜDE1 

20 FQRI=0TQ159STEP5s J = 100+I/1.6 

30 LINEO,J,1,199 

40 LINEO,199—J,1,0 

50 LINE319,J,319-1,199 

60 LINE319.199-J,319-1,0 

70 NEXT 

80 SIZE2,3,16,0,0 
90 TEXT64,B0,"HIRES-MASTER" 

100 TEXT98,120,“TASTE. .." 

110 LINE64,80+3*8,320-64,80+3*8 
120 POKE198,Os WAIT198,1 
130 ECLS20I M0DE2s X=319s Y=199 
140 FORK=OT01sFÜRJ=lT0200 
150 FORI“OTDYSTEPJ 

160 LINEI,I,X-I,Y—13LINEI,Y—I,X—I,1 

170 NEXTI,J,K 

1B0 FQR1=1TO100sNEXT 

190 M0DE2sX=319sY=199 

200 FORI-OTOY 

210 LINEI,I,X-I,Y 

220 LINEX-I,Y—1,1,0 

230 LINEO,Y-I,I,I 

240 LINEX,I,X—I,V—1 

250 LINEI,I,X-I,Y-I 

260 NEXT 

270 M0DE2:X=160sY=100 

280 FORK=OTO1s FORJ = 1TO1B8:FÜRI = 1BBTQOBTEP-J 

290 CIRCLEX,Y,I 

300 NEXTI,J,K 

310 M0DE1s X=160sY=100 

320 FOR1=1OOTOOSTEP—4 

330 CIRCLEX,Y,Y-I, I 

340 NEXT 

350 F'0KE19B, O: WAIT19B, 1 
360 ECLS15s M0DE2:X=110s Y=50 
370 FORI=0T099STEP2 


3B0 CIRCLEX+I/2,Y+I/2,I 
390 NEXT 

400 P0KE19B,0s WAIT19B,1 

410 ECL815 s M0DE2:Y=100 s A=63 

420 F0RJ=0T01 

430 F0RI-0T0255 

440 CIRCLEI ,Y,IANDA 

450 NEXT 

460 NEXT 

470 ECLB15S M0DE2S Y=100s R=30*RND(11+20 

480 FORJ=OT01 

490 FÖRI-0T0319 

500 CIRCLEI,Y,R 

510 NEXT 

520 NEXT 

530 M0DE2 s P0KE650,12B s 8=20 
540 BIZE1,1,7,0,0 

550 TEXT0,0,"IN DIESEM DEMO WERDEN 11610 KREISE" 
560 TEXTO,10,"VERSCHIEDENER BROESSE IN NUR 180.9 B 
EK. “ 

570 TEXTO,20,"BEZEICHNET !!" 

580 POKE198,0 s WAIT198,1sPOKE198,0 

590 BIZE1,1,8,0 

600 FÜRA=1TOBs CLS 

610 F0RX=BT0320-BSTEPB 

620 F0RY=BT0200-BSTEPB 

630 GETA*sIFA*<>""THEN6B0 

640 F0RR=0TQB8TEPA 

650 CIRCLEX,Y,R 

660 NEXTR,Y,X,A 

670 P0KE19B,0s WAIT19B,1 

680 ECLB15 s M0DE2 

690 FORI=0TD319STEP2 
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700 L1NEI,0,1,199:NEXT 

710 FÜRI=0T0199STEP2 

720 LINE0,I,319,l!NEXT 

730 C0NNECT0,4,0 

740 FQRI=1TD5: CQNNECT4,0,0 

750 F0RJ=0Tai8BSTEPI 

760 CIRCLE160,100,J:NEXT: NEXT 

770 P0KE198,0:WAIT19B,1 

700 ECLS15: M0DE2 

790 S=10 

800 FÜRX“0T0319-BSTEPS 
B10 BLOCK X,199,X+S-2,RND<1> *200: NE X T 
B20 POKE198,0:WAIT198,1 
830 CLB 

840 F0RY=0T0199-SBTEPS 

850 BLOCKO,Y,RND(1)*319,Y+S-2iNEXTY 

B60 P0KE198,0:WAIT19B,1 

870 ECLS15:MQDE2:GRON 

880 F0RK=0T01!FDRJ=1T0200IFORI=0T0199STEPJ 

890 BOX 1,1,319-1,199-1 

900 NEXT«NEXT:NEXT 

910 MODE 1:P=—.1/180 

920 FORI=0TO36OSTEP18 

930 X=C0S<I*P>*9 

940 Y=SIN<I*P>*9 

950 SIZE1,1,X+.5,Y+.5,I/90 

960 TEXT160+X*3,100+Y*3, "HIRES-MASTER" 

970 NEXT 

980 POKE198,O« WAIT198,1ä POKE19B,O 
990 M0DE2 

1000 FC1RCLE160,100,140 

1010 ECLB 15:MÜDE1:A*="HIRES-MASTER 11 

1020 F0RI=1T04:T=I*B 

1030 SIZEI,I,T,0,1-1 

1040 TEXTO, Y, A* 

1050 TEXTO,199-Y-T,A* 

1060 Y=Y+T 
1070 NEXT 

1080 SIZE4,4,32,0,0 
1090 TEXT0,B3,"**********" 

1100 POKE198,0:WAIT198,1 
1110 ECL515:MDDE1:A=360/99 
1120 FQRR=0T099BTEP3 
1130 I=R*A 

1140 ARC160,100,R,R,1,360-1 
1150 NEXT 

1160 POKE198,0:WAIT19B,1 
1170 P0KE56,128:CLR:A=19:DIMA*(A) 

1180 A# <0> = "1111222244448BBB111122224444B88B111122 
2244448B8B1111222244448888" 

1190 A* <1> =“7777BBBBDDDDEEEE7777BBBBDDDDEEEE7777BB 
BBDDDDEEEE7777BBBBDDDDEEEE" 

1200 A*(2)="EEEEDDDDBBBB7777EEEEDDDDBBBB7777EEEEDD 
DDBBBB7777EEEEDDDDBBBB7777" 

1210 A*(3)="8BB8444422221111B8BB444422221111888844 
442222111188BB444422221111" 

1220 A*(4)="AAAA5555AAAA5555AAAA5555AAAA5555AAAA55 
55AAAA5555AAAA5555AAAA5555" 

1230 A*(5)="FFFFBBBBBB88B8BBFFFF8B8BB88BBBBBFFFFB8 
8B88B88BBBFFFF8BBBBBB88BBB" 

1240 A#(6)="FFFF80808080B08080B0808080B080BOFFFF80 
BOBO8O8OaOBO0O8OBOBOBO8OBO" 

1250 A*(7 > = "0000000001800240024002401E78200420041E 

78024002400240018000000000" 

1260 A*(8) ="4747B383C5C5EEEE5C5C383B7474EEEE474783 


B3C5C5EEEE5C5C38387474EEEE" 

1270 A*<9)="08B86767O7O7O7O7888876767O7O7O7OB8BB67 
67070707078B8B767670707070" 

1280 A*<10)="00007F7F7F7F7F7FOOOOF7F7F7F7F7F700007 
F7F7F7F7F7FO000F7F7F7F7F7F7" 

1290 A* <11>="8BBB444422225555BS88444422225555BBBB4 
44422225555B8B8444422225555" 

1300 A*(12)="38384444B282929282B24444383801O13B3B4 
444828292928282444438380101" 

1310 A* <13)“"FFFFB1B1BFBFA1AlAlAlAlAl AlA1FFFFFFFF8 
1B1BFBFA1A1A1A1A1A1A1A1FFFF" 

1320 A* <14 >-"8B885555222255558BBB555522225555BB8B5 
5552222555588BB555522225555" 

1330 A*(15)="80804040202010100B0804040202010101010 
20204040B081O10202040408080" 

1340 A* <16) =" 11112222444488BBBBBB44442222111111112 
222444488B00B8B444422221111" 

1350 A*(17)="400420081011B822444422BB11100B2004400 
820111022884444882210112008" 

1360 A*(18)="222022205550BBBF555022205550BBBF55502 
22055508BBF5550222022202220" 

1370 A*(19)="C827E44FF29FF93E7C7C3EF99FF24FE427CB4 

FE49FF23EF97C7CF93EF29FE44F" 

1380 FDRI=0T8A:R=INT(RND(1)*(A+1)):A*=A#(I):A*(I)= 
A*(R>:A*(R)=A*:T=FRE(O):NEXT 
1390 ECLB15:MDDE1 

1400 FDRI=0T0A« X=RND(1)*320:Y=RND(1)*200:R=RND(1)* 
30+20 

1410 MDDEO:FCIRCLEX,Y,R:MQDE1 
1420 CIRCLEX,Y,R 
1430 SETMSKO,A4(I>:FILLX,Y 
1440 P0KE19B,0:WAIT198,1:NEXT 
1450 MODE 1:ECLS15 

1460 SETMSKO,"111111111111FFFF111111111111FFFF1111 
11111111FFFF111111111111FFFF“ 

1470 FILL0,0:8IZE1,2,8,0,0 
1480 FÜRI=0T01 
1490 FDRJ=3T00STEP—1 
1500 H=INT(RND(1)*30) • 

1510 F0RK=0T8H 

1520 DUPLICATE7+J*80+K,43+1*72-K,38+J*80+K,70+1*72 
-K,8+J*80+K,42+I*72-K 
1530 NEXT 

1540 RPI" HEX40: RESUMEB+J*BO+K,42+1*72-K,39+J*80+K, 
69+1*72—K: HE X41 

1550 REMTRAPB+J*BO+K,42+1*72-K,39+J*80+K,69+1*72-K 
1560 TEXTB+J»80+K+(3-LEN(STR* <H>))*4,48+1*72-K,STR 
* (H) 

1570 NEXT: NEXT 
1580 P0KE198,0:WAIT198,1 
1590 ECLS15:M0DE2:C=1.6:X=319:YY=199 
*1600 FÜRI =OTQ 160STEP2: Y=INT < I/O 
1610 BÜXI.Y.X—I.YY-Y 

1620 IFI7100THEN:ROLLO,110,60,210,140 

1630 NEXT 

1640 BIZE2.2,14,0 

1650 PQKE19B,0:WAIT19B,1 

1660 ECLS15:PA8E0,0:CQLOR1,0:CLS:PA3E3,3:CLS:COLQR 
1,0:M0DE2 

1670 F0RI=0T0187:PABE(IAND1> *3,((1 + 1)AND1> *3:FCIRC 

LE 160,100,I:NEXT 

1680 P0KE19B.0:WAITI90,1:PASEO,0 


Listing 2. Schluß 
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Speed-Copy für Stur SG-10/15 


Eine schnelle Hardcopy-Routine für Star-Drucker, 
die diesem noch einige Vorteile entlockt. 

B ei diesem Programm handelt es sich um eine Hardcopy- 
Routine, die auf einen Star SG-10/15 (jedoch nicht 
SG-10C!) zugeschnitten ist. Diese Routine gleicht 
einen der großen Nachteile des Star aus: Weil im Grafik¬ 
modus nur unidirektional gedruckt wird, nutzt der Drucker die 
Zeit, die sein Druckkopf benötigt, um seine Ausgangsposi¬ 
tion (linker Rand) zu erreichen, nicht aus. 

»Speed-Copy VI.1« jedoch druckt bidirektional, wodurch 
eine Zeitersparnis von 25 Prozent erreicht wird. Erreicht wird 
dies durch einen neu definierten Zeichensatz. Trotz des bidi¬ 
rektionalen Druckes ist das Bild sehr genau (Bild 1). 



ifiia ruii r ii mis t""j ü" n i"civ t~ deri~~S(i inii ?s« je i~"?| 

Bild 2. Normale Hardcopy (SYS 49152,1,1) mit eingeschalteter 
Schmalschrift 



IWaruw niHMst du nicht den Sc h messe l ?l 

Bild 3. Normale Hardcopy (SYS 49152,1,1) mit Emphaslzed 
& Double-Strike 


Der zweite und wohl größere Vorteil des Programmes ist, 
daß man von nun an die Grafik in Schmalschrift, hervorgeho¬ 
ben oder zum Beispiel im Doppeldruck drucken kann. Da 
nämlich ein neuer Zeichensatz definiert wird, befindet man 
sich beim Druck im Textmodus und kann somit die Schrift auf 
alle möglichen Arten verändern (Bilder 2 und 3). 

Zum Programm 

Bitte geben Sie das Programm »Speed-Copy V1.1« (Listing 
1) mit Hilfe des MSE ein. 

Das Programm ist an andere Drucker anpaßbar, sofern sie 
über mindestens 54 vom Benutzer frei definierbare Zeichen 
verfügen. Außerdem sollte der Drucker eine Matrix von 8x11 
Punkten besitzen, Befehle zum Einstellen des linken und 
rechten Randes haben und bidirektional drucken können. 

Das Programm druckt eine HiRes-Grafik in normaler Dichte 
(60 dots/inch) aus und zentriert sie in der Mitte des Blattes. 
Sie kann wahlweise auch invertiert dargestellt werden. 

Die Bedienung 

Das Programm ist absolut (.8,1) zu laden. Für den Betrieb 
muß zuerst ein Datenkanal zum Drucker eröffnet werden. Die 
logische Filenummer wird als erste Variable (X) in dem Befehl 
angeführt. Die Befehlssyntax lautet: SYS 49152,X,Y 

Der Wert Y gibt die Art des Ausdruckes an (Y=0 - Invers; 
Y=1 - normal). Die auszudruckenden Grafiken müssen im 
Computer-Speicher ab Hexadezimal $2000 stehen. 

Für Profis, die gegebenenfalls etwas an diesem Programm 
ändern möchten, ist in Listing 2 der kommentierte Quellcode 
abgedruckt. (J. Knauer/dm) 


_ 


name 

: 

speed-copy Sc 

C000 

c0d3 


C000 

1 

20 

fd 

ae 

20 

9e 

b7 

20 

c9 

Ba 


C008 

: 

ff 

a9 

00 

a0 

20 

B5 

c9 

B4 

4e 


C010 

8 

ca 

a9 

80 

B5 

bd 

20 

fd 

ae 

b2 


C01B 


20 

9e 

b7 

a9 

00 

Bd 

92 

C0 

e3 


C020 

: 

ca 

10 

03 

ce 

92 

C0 

a9 

18 

93 


C02B 

8 

B5 

9 6 

a 0 

13 

2 c 

aß 

04 

b9 

ce 


C030 

8 

b7 

C0 

20 

d2 

ff 

BB 

10 

f 7 

le 


C03B 

8 

a 2 

34 

a9 

Bb 

20 

d2 

ff 

a9 

bc 


C040 

8 

04 

B5 

9e 

20 

89 

C0 

a9 

00 

fB 


C048 

8 

20 

d2 

ff 

c6 

9e 

10 

f 4 

20 

2B 


c050 

8 

B9 

C0 

ca 

10 

b5 

a9 

Bb 

20 

0B 


C05B 

8 

d2 

ff 

20 

B9 

C0 

a9 

00 

20 

fd 


C060 

8 

d2 

ff 

20 

B9 

C0 

a9 

00 

20 

05 


C068 

8 

d2 

ff 

a0 

0B 

20 

d2 

ff 

BB 

0d 


C070 

: 

d0 

fa 

a 0 

21 

9B 

20 

d2 

ff 

df 


C07B 

8 

cB 

c9 

56 

d0 

f 7 

c6 

96 

10 

05 


C0B0 

8 

ac 

a9 

0ri 

20 

d2 

ff 

4c 

cc 

40 


C0BB 

8 

ff 

a9 

00 

B5 

b6 

a 0 

07 

bl 

fc 


C090 

8 

c9 

49 

00 

25 

bd 

f0 

07 

a5 

6d 


C09B 

3 

b6 

19 

cb 

C0 

BS 

b6 

BB 

10 

36 

Listing 1. 

C0a0 

8 

BB 

a3 

b6 

20 

d2 

ff 

66 

bd 

55 

c0aB 

c0b0 

1 

90 

85 

0c 

c9 

66 

90 

bd 

02 

a5 

e6 

c9 

ca 

69 

60 

08 

56 

ee 

71 

»Speed-Copy 

c0bB 

8 

21 

01 

2 a 

lb 

01 

24 

lb 

00 

e5 

VI.1« - Bitte mit 

C0C0 

8 

2a 

lb 

0B 

41 

lb 

44 

51 

lb 

fi 

dem MSE 

C0c8 

8 

0d 

4d 

lb 

80 

40 

20 

10 

08 

aB 

c0d0 

8 

04 

02 

01 

00 

00 

00 

00 

00 

16 

eingeben 



1100 -| 

1110 -I 

1120 -.BA *C000 
1130 

1140 -.OL BSOUT - *FFD2 
1130 -.GL KOMMA - *AEFD 
1160 -.GL DYTEX - *D79E 
1170 -.GL CKOUT - *FFC9 
1 IGO -| 

1190 

1200 -.GL HIREB - *2000 | GRAFIKBPEICHER 

1210 -.GL GRAZG - *C9 | ZEIGER AUF GRAFIKBPEICHER 

1220 -.GL MASKE - *DD | DIT-TEBT-MABKE 

1230 -.GL BPALT - *D6 | ERRECHNETE BPALTE 

1240 -.GL ZEILN - *96 | ZU DRUCKENDE ZEILEN 

1230 -.GL BCHLE - *9E | SCMLEIFENZAEHLER 

1260 -» 

1270 -| 

12B0 -| Ml INITIALISIERUNG Ml 
1290 -| 

1293 -| 

1300 -IN1T JBR KOMMA i TEST AUF KOMMA 

1310 - J9R BYTEX | FILENUMMER INB «-REGISTER 

1320 - JSR CKOUT | AU3GABEGERAET BETZEN <CMD> 

1330 -| 

Listing 2. Der kommentierte Quellcode der Hardcopy-Routine 


56 


SONDERHEFT 11 


(-ÜS? 






















C 64 


GRAFIK 


1340 - 
1330 - 
1360 - 
1370 - 
1380 -| 

1390 - 
1400 - 
1410 -| 

1420 - 
1430 - 
1440 - 
1430 - 
1460 - 
1470 ~ 

1400 " 

1490 -1 
1300 -WEITER 
1310 - 
1320 -| 

1330 - 

1340 -.DY *2C 
1330 -| 

1360 -1 
1370 -1 ••• 
1300 
1390 -| 

1600 -HPG 
1610 -LOOP 1 
1620 - 
1630 - 
1640 - 
1630 -| 

1660 - 
1670 -L00P2 
1680 - 
1690 -| 

1700 - 
1710 - 
1720 -L00P3 
1730 - 
1740 - 
1730 - 
1760 - 
1770 -| 

1780 - 
1790 - 
1800 - 
1810 -l 
1820 - 
1830 - 
1840 
1860 - 
1870 - 
1880 - 
1890 “ 

1893 - 
1900 - 
1910 -| 

1920 - 
1930 -L00P4 
1940 - 
1930 - 
1960 -| 

1970 -l 
1980 - 
1990 -LOOP3 
2000 - 
2010 - 
2020 - 


LDA 

B<(HIRES) 

LDY 

4XHIREB) 

STA 

GRAZG 

8TY 

GRAZG»1 

LDA 

4*80 

BTA 

MABKE 

JSR 

KOMMA 

JSR 

BYTEX 

LDA 

4*00 

BTA 

EOR* 1 

DEX 


DPL 

WEI TER 

DEC 

EOR* 1 

LDA 

424 

STA 

ZEILN 

LDY 

419 


LDY 44 
LDA CODE 1,V 
J9R B90UT 
DEY 

BPL LOOP1 

LDX 432 
LDA 4139 
JGR BEIOUT 

LDA 44 
BTA BCHLE 
JBR BPDEF 
LDA 40 
JBR BSOUT 
DEC BCHLE 
DPL L00P3 

JBR BPDEF 
DEX 

DPL L00P2 

LDA 4139 
JBR BBOUT 

JBR BPDEF 
LDA 40 
JBR BBOUT 
JBR BPDEF 
LDA 40 
JBR BSOUT 

LDY 48 
JBR BBOUT 
DEY 

BNE L00P4 


LDY 433 
TYA 

JSR BSOUT 
INY 

CMP 486 


MAUPTPROGRAMM 4M 


I LOW-BYTE DER GRAFIK 
I HIGH-BYTE DER 6RAF1K 


l MASKE INITIALISIEREN 
| ( Ä1000 0000 ) 

I TEST AUF KOMMA 
I NORMAL/INVERB 
I NORMALE HARDCOPY 

I X DECREMENTIEREN 

I WENN DER INHALT > O WAR. DANN OK 
I 90N9T INVERSE HARDCOPY 


I ZU DRUCKENDE ZEILEN 

I 20 STEUERZEICHEN ZUR INI 11AL19IERUNG 
I VERSTECKTER D1T-DEFEML 


I 3 STEUERZEICHEN ZUR UDC-DEFINITION 
I CODE ■> A 
1 UND AN DRUCKER 
I ZAEHLER DECR. 

I WENN NOCH NICHT FERTIG. DANN 

I 33 SONDERZEICHEN 
I ATTRIBUTBYTE DEB UDC 
I AN DRUCKER SENDEN 

I 3 SPALTEN DEF 

I SPALTE BERECHNEN UND SENDEN 
| LEERE SPALTE AN DRUCKER 

I ZAEHLER DECR. 

I WENN NOCH NICHT FERTIG. DANN 

I LETZTE SPALTE IM UDC 
I EIN ZEICHEN WENIGER 
| 33 GEBCHAFFT ? 

| ATTRIBUTBYTE FUER 34. ZEICHEN 


I 1. SPALTE DEB ZEICHENS 
I UND EINE LEERSPALTE 

| B.O. 


I DIE LETZTEN 4 SPALTEN 
I DEB LETZTEN ZEICHENS ( LEER > 


2030 

2033 

2040 

2050 

2070 

2OB0 

2090 

2110 

2120 

2130 

2140 

2130 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2230 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2330 

2360 

2370 

2300 

2390 

2400 

2410 

2420 

2430 

2440 

2430 

2460 

2480 

2490 

2300 

2510 

2320 

2330 

234i.i 

2550 

2560 

2370 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 


DEC ZEILN 
DPL HPG 

LDA 413 
JBR BBOUT 
JMP 4FFCC 


I ZEILENZAHL DECR. 

| FERTIG 7 NEIN, DANN 

I <CR> 

I SENDEN 
I ENDE 


-I IM B-DIT-8PALTE BERECHNEN • «! 


-BPDEF 

-I 

-L00P6 

-EOR 


LDA 40 
BTA BPALT 

LDY 47 

LDA «GRAZG),' 
EOR 4400 
AND MASKE 
BEO Ml 

LDA SPALT 
ORA C0DE2.Y 
BTA BPALT 

DEY 

DPL L00P6 

LDA BPALT 
JSR BSOUT 

ROR MASKE 
BCC RETURN 
ROR MASKE 

LDA GRAZG 
ADC 40 
BTA GRAZG 
PCC RETURN 
INC GRAZG»I 


I SPALTE LOESCHEN 
| 8 Bl TB 

1 ZUGEHOERIGE8 BYTE »> A 
I EVENTUELL INVERTIEREN 
I ENTSPRECHENDES BIT GESETZT ? 

I NEIN 

I JA. DANN ENTSPRECHENDES BIT 
I IM ZWISCHENSPEICHER FUER EINE 
I SPALTE 8ETZTEN 

I NAECHSTEB BYTE BZW. BIT IN BIT-MAP 
I ItERECHNETE SPALTE SENDEN 

I VERGLEICHBB1T IN MASKE NACH RECHTS BCHIEBEN 
I □ BITS DEARDEITET 7 NEIN, DANN 
I JA. DANN VERGLEICHBBIT WIEDER AN 1. P09IT1ON 

I GRAFIKZEIGER UM 8 ERHOEMEN < LOW-BYTE ) 


l UEBERTRAG "» NEIN. DANN 
I SONST HIGH-BYTE ERMOEHEN 


-RETURN RT9 I 7URUECK 

-I 

Ml STEUERCODES ••• 

-* 

-CODE 1 .BY 06.33.I."*".27 

-.DY 1.“*".27 
-.BV 0."•".27 
-.BV 8. "A", 27 
-.BY 68. "Q M .27 
-.BY 13."M", 27 
-I 

-C0DE2 .BY 128.64.32.16.8.4.2,1 

“I 

-I ENDE ••• 

-I 

-I 


I DEFINIERTE ZEICHEN 
I < ASCII 33 BIS 85 > AUSDRUCKEN 


G4CR 


READY. 

Listing 2. Der kommentierte Quellcode der Hardcopy-Routine 
(Schluß) 


Hanko 


MIPS 


aracopy 
801 /GP 


für 

100 VC 


Große Bilder im Format DIN A4 sind für den MPS 
801/GP 100 VC nun kein Problem mehr. Diese 
Hardcopy erlaubt einen seitenfüllenden Aus¬ 
druck jeder Grafik. 

D iese sehr einfach zu bedienende Hardcopy-Routine er¬ 
möglicht den Ausdruck von HiRes-Grafiken im Format 
DIN A4. Das Programm läuft mit den Druckern MPS 801 
und Seikosha GP 100 VC sowie kompatiblen Sieben-Nadel- 
Druckern. An den Beispielausdrucken (Bild 1 bis 3) können 
Sie erkennen, wie sauber die Routine arbeitet. 
Bedienungshinweise: 

Das Programm »DIN-A-4-HARDC0PY« (Listing 1, bitte mit 
dem MSE eingeben) wird mit LOAD"DIN- 
A-4-HARDC0PY ",8,1 nach $C000 geladen. Anschließend 
geben Sie bitte NEW < RETURN > ein. 

Mit SYS 49152, "NAME",8 

werden Grafikbilder in den Speicherbereich ab $2000 ge¬ 
laden. 

Mit < E> können Sie das Programm verlassen, bevor der 
Druckvorgang begonnen hat und ein neues Bild laden. 

Die Taste <R> bewirkt einen reversen Ausdruck der 
Grafik. 

Möchten Sie die Grafik normal ausdrucken, ist nur < C > 
zu drücken. 



Bild 1. Auch digitalisierte Bilder bereiten der Druckerroutine 
kein Problem 


Innerhalb eines Basic-Programms kann durch SYS 49313 
die Druckerroutine ohne reverse Darstellung aufgerufen wer¬ 
den. Die Speicherstellen $F8 bis $FE sollten dabei nicht 
belegt beziehungsweise gelöscht sein. (Paul Ohrem/dm) 
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Bild 2. Dieses Raumschiff wurde 
mit einem Seikosha GP100VC 
im Format DIN A4 ausgedruckt 





WM. 


v///A 


mm 


Bild 3. Diese Hardcopy hat 
normalerweise etwa DIN-A4-Größe 


Name 

: dln-a 

-4- 

hardcopy 

cOOO c514 

cOOO 

: 20 

fd 

ae 

20 

d4 

el 

aO 

20 

QO 

c 008 

: a2 

00 

aS 

00 

2C 

d5 

ff 

a9 

19 

oOlO 

: 00 

20 

bd 

ff 

a9 

04 

a2 

04 

dd 

c018 

: aO 

ff 

20 

ba 

ff 

20 

cO 

ff 

lb 

c020 

: a2 

04 

20 

c9 

ff 

ad 

11 

dO 

59 

c 028 

: OS 

bO 

8d 

ii 

dO 

ad 

16 

dO 

83 

c030 

: 29 

ef 

8d 

16 

dO 

ad 

18 

dO 

f 3 

c038 

: 09 

08 

8d 

18 

dO 

20 

44 

e5 

97 

a040 

a9 

01 

8d 

20 

dO 

a2 

03 

a9 

53 

c048 

: 04 

85 

fb 

aO 

00 

84 

f a 

84 

3b 

o050 

02 

a9 

01 

91 

fa 

c8 

c4 

02 

a6 

0058 

dO 

f 9 

e6 

fb 

ca 

fO 

05 

10 

c6 

c060 

f 2 

4c 

6a 

cO 

a2 

e8 

86 

02 

ba 

c068 

dO 

e9 

20 

9f 

ff 

eO 

52 

dO 

lb 

c070 

ld 

a9 

00 

85 

22 

a9 

20 

85 

Oe 

c078 

23 

aO 

00 

a9 

ff 

3B 

fl 

22 

06 

c080 

91 

22 

08 

dO 

f 6 

a5 

23 

c9 

2b 

c 088 

40 

dO 

11 

4c 

al 

cO 

eO 

43 

28 

e090 

dO 

03 

4c 

al 

cO 

eO 

45 

dO 

f 3 

c098 

dl 

4c 

78 

c4 

©6 

23 

4c 

79 

f 2 

cOaO 

oO 

a9 

05 

85 

fe 

a9 

c7 

85 

8e 

c0a8 

02 

20 

a6 

c4 

20 

b2 

c4 

aO 

©8 

oObO 

00 

bl 

f a 

29 

fO 

85 

f 8 

85 

97 

c0b8 

f 9 

a2 

04 

18 

06 

f 8 

6a 

06 

e4 

oOeO 

f 9 

6a 

ca 

dO 

f 7 

09 

80 

20 

c5 

o0c8 

d2 

ff 

20 

d2 

ff 

c6 

02 

a5 

86 

eOdO 

02 

o9 

ff 

dO 

d7 

o9 

Od 

20 

10 

o0d8 

d2 

ff 

a9 

c7 

B5 

02 

20 

a6 

43 

aOeO 

c4 

20 

b2 

c4 

aO 

00 

bl 

fa 

cO 

e0e8 

29 

lo 

4a 

85 

f 8 

86 

f 9 

a2 

4c 

oOfO 

04 

18 

46 

f8 

2a 

46 

f 9 

2a 

c2 

c0f8 

ca 

dO 

f 7 

4a 

09 

80 

20 

d2 

2c 

olOO 

ft 

20 

d2 

ff 

c6 

02 

a5 

02 

db 

0108 

c9 

ff 

dO 

dB 

a9 

Od 

20 

d2 

e9 

ollO 

ff 

a9 

c7 

85 

02 

20 

a6 

c4 

cc 

0 II 8 

20 

b2 

c4 

aO 

00 

bl 

fa 

29 

a2 

ol 20 

01 

85 

f 8 

aO 

08 

bl 

fa 

29 

82 

0128 

oO 

46 

f 8 

6a 

85 

f 8 

85 

f 9 

el 

al30 

a2 

04 

18 

06 

f 8 

6a 

06 

f 9 

8a 

ol38 

6a 

CO 

dO 

f 7 

09 

80 

20 

d2 

f 6 

0140 

ff 

20 

d2 

ff 

06 

02 

a5 

02 

lb 

0148 

c9 

ff 

dO 

cc 

a9 

Od 

20 

d2 

OB 

ol60 

ff 

a9 

o7 

85 

02 

20 

a6 

c4 

Oc 

0158 

20 

o6 

c4 

20 

b2 

c4 

aO 

00 

f 4 

ol60 

bl 

fa 

29 

3c 

Oa 

Oa 

85 

f 8 

59 

0168 

85 

f 9 

a2 

04 

18 

06 

f 8 

6a 

7d 

cl70 

06 

f 9 

6a 

CO 

dO 

f 7 

4a 

09 

6f 

ol78 

80 

20 

d2 

ff 

20 

d2 

ff 

c6 

e3 

ol80 

02 

a5 

02 

c9 

ff 

dO 

d4 

a9 

3c 

0188 

Od 

20 

d2 

ff 

a9 

c7 

85 

02 

4d 

cl90 

20 

a6 

c4 

20 

b2 

c4 

aO 

00 

Oo 

0198 

bl 

fa 

29 

03 

85 

f 8 

aO 

08 

24 

claO 

bl 

fa 

29 

cO 

46 

f 8 

6a 

46 

93 

cla8 

f 8 

6a 

85 

f 8 

85 

f 9 

a2 

04 

10 

clbO 

18 

06 

f 8 

6a 06 

f 9 

6a 

ca 

c6 


clb8 

: dO 

f 7 

09 

80 

20 

d2 

ff 

20 

af 

clcO 

: d2 

ff 

c6 

02 

a6 

02 

c9 

ff 

15 

clc8 

i dO 

c9 

a9 

Od 

20 

d2 

ff 

a9 

75 

cldO 

: c7 

85 

02 

20 

a6 

c4 

20 

e6 

bd 

cld8 

: c4 

20 

b2 

c4 

aO 

00 

bl 

fa 

b8 

cleO 

: 29 

78 

Oa 

85 

f 8 

85 

f 9 

a2 

61 

cle8 

: 04 

18 

06 

f 8 

6a 

06 

f 9 

6a 

2d 

cif 0 
cif 8 

: ca 
: ff 

f 0 d2 

fc 


24 

d3 

c200 

: c9 

ff 

dO 

d5 

a9 

Od 

20 

d2 

el 

c 208 

: ff 

a9 

c7 

85 

02 

20 

a6 

c4 

c4 

c 210 

: 20 

b2 

c4 

aO 

00 

bl 

fa 

29 

9a 

c218 

: 07 

85 

f 8 

aO 

08 

bl 

fa 

29 

80 

Q220 

: 80 

Oa 

26 

f 8 

a5 

f 8 

85 

f 9 

7a 

c228 

: a2 

04 

18 

46 

f 8 

2a 

46 

f 9 

89 

c230 

: 2a 

ca 

dO 

f 7 

09 

80 

20 

d2 

ad 

c238 

: ff 

20 

d2 

ff 

c6 

02 

a5 

02 

13 

c240 

: c9 

ff 

dO 

cc 

a9 

Od 

20 

d2 

00 

c248 
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C 64 


GRAFIK 


Der Relativafor 


Daß das Diskettenlaufwerk VC-1541 die Möglichkeit 
bietet, relative Dateien zu verwalten, ist schon 
lange bekannt. Daß der Normalverbraucher bei sei¬ 
nem Programm trotzdem auf die sequentielle Datei 
zurückgreift, liegt sicherlich an der normalerweise 
aufwendigen Programmierung der relativen Da¬ 
teien. Der Relativator macht damit jedoch Schluß. 


I n manchen Basic-Erweiterungen ist der Befehl RECORD 
enthalten, mit dem es möglich ist, einen bestimmten 
Datensatz anzuwählen. Die Hauptarbeit nimmt dieses 
Kommando aber nicht ab. 

Da in einer relativen Datei alle Datensätze gleich lang sind, 
müssen kürzere Felder vom Programm mit Leerzeichen auf¬ 
gefüllt werden. Das kostet Zeit und Speicherplatz. Der Relati¬ 
vator nimmt diese Arbeit ab. Dazu muß nur angegeben wer¬ 
den, welche Struktur ein Datensatz haben soll. Dies 
geschieht mit dem neuen RLEN-Befehl: 

RLEN 11,12,...,ln,0... 

II bis In sind dabei die Längen der einzelnen Felder. RLEN 
10,4,0 zum Beispiel bedeutet, daß jeder Datensatz zwei Fel¬ 
der (zehn und vier Zeichen Länge) hat. Die Null schließt den 
Befehl ab. Der Computer springt, sobald er auf den Wert 0 
trifft, zum nächsten Befehl. Dadurch ist der Befehl flexibler, 


wenn zum Beispiel der Datensatzaufbau aus DATA-Zeilen 
gelesen wird: 

RLEN L0,L1,L2,L3,L4,L5,L6,L7,L8,L9,0 
Durch diesen Befehl werden maximal zehn Felder definiert. 
Wäre die Variable L4 gleich Null, so werden nur vier Felder 
definiert (mit den Längen LO bis L3). 

Nachdem die Struktur festgelegt ist, kann die Datei eröffnet 
werden. Dies geschieht mit dem Befehl ROPEN: 

ROPEN "name" 

Dieser Befehl ersetzt die beiden Befehle: 

OPEN 14,8,14,"name,L,"+chr$(gesamtlänge) 

OPEN 15,8,15 

Entsprechend steht der Befehl 

RCLOSE für CLOSE 14,15. 

Um der Fehlermeldung »RECORD NOT PRESENT« vorzu¬ 
beugen, sollte man nach dem ersten Öffnen einer Datei den 
voraussichtlich letzten Datensatz beschreiben. Das geht 
sehr einfach mit dem REND-Befehl. 

REND n 

beschreibt alle Datensätze mit CHR$(255). Bei großem »n« 
kann dies eine Zeitlang dauern. 

Um komfortabel mit der Datei arbeiten zu können, gibt es 
die Befehle: 

RPUT n,vl$,v2$,...,vn$... 

RGET n,vl$,v2$,...,vn$... 

Mit RPUT werden die Inhalte der Stringvariablen v1$ bis 
vn$ als n-ter Datensatz auf Diskette geschrieben. 
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I 

B5 

12 

4c 

00 

c3 

a0 

00 

a5 

ae 

cBeB 

s 

a9 

0o 

a2 

0B 

a0 

0u 

20 

ba 

b2 

c23B 

8 

a7 

20 

Ba 

ad 

20 

f 7 

b7 

20 

2B 

c3BB 

3 

fa 

91 

fd 

cB 

a5 

fB 

91 

fd 

4B 

C0f0 

C 

ff 

20 

C0 

ff 

a9 

00 

20 

bd 

c6 

c240 

8 

49 

cl 

a2 

Be 

20 

c6 

ff 

a2 

52 

c390 

3 

cB 

a5 

f 9 

91 

fd 

20 

fd 

ae 

12 

C0f B 

S 

ff 

a9 

0f 

a 2 

08 

a0 

0f 

20 

e6 

c24B 

8 

00 

B6 

02 

a6 

02 

bd 

cd 

c3 

ae 

c39B 

3 

a9 

01 

20 

7d 

b4 

aS 

61 

a6 

c5 

c 100 

B 

ba 

ff 

20 

C0 

ff 

4c 

ae 

a7 

46 

c250 

8 

f0 

47 

B5 

f 7 

20 

7d 

b4 

a5 

50 

C3a0 

8 

62 

a4 

63 

85 

f 9 

86 

f a 

B4 

a7 

c 10B 

I 

a9 

0e 

20 

c3 

ff 

a9 

Bf 

20 

03 

c25B 

8 

62 

a4 

63 

B5 

fB 

B4 

f 9 

a 0 

73 

c3aB 

3 

fb 

a0 

00 

a5 

02 

91 

62 

20 

lf 

cl 10 

: 

c3 

ft 

4c 

ae 

a7 

a9 

00 

B5 

Bf 

c260 

8 

00 

20 

cf 

ff 

91 

fB 

cB 

c4 

f 2 

c3b0 

8 

Bb 

b0 

a6 

0d 

d0 

03 

4c 

99 

68 

cllB 

5 

02 

□d 

cc 

c3 

20 

9e 

b7 

Ba 

77 

c26B 

8 

f 7 

d0 

f 6 

BB 

bl 

fB 

c9 

20 

G0 

c3bB 

8 

ad 

B5 

f 7 

84 

fB 

a2 

02 

a0 

a4 

Cl20 

- 

f0 

lc 

a6 

02 

9d 

cd 

c3 

e8 

31 

c270 

8 

d0 

05 

c6 

f 7 

4c 

6b 

c2 

20 

df 

c3c0 

8 

02 

b5 

f 9 

91 

f 7 

ca 

BB 

io 

65 

c 12B 

8 

B6 

02 

18 

6d 

CC 

c3 

Bd 

cc 

le 

c27B 

1 

fd 

ae 

20 

Bb 

b0 

a6 

0d 

d0 

5c 

c3cB 

8 

f 8 

4c 

ae 

a7 

00 

00 

00 

00 

87 


Llsting »RELATIVATOR«. Das Programm erleichtert die Verarbeitung relativer Flies durch nur sieben neue Befehle. 
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C 64 


Entsprechend liest der Befehl RGET den n-ten Datensatz 
in die Variablen v1$ bis vn$. 

Bei beiden Befehlen müssen mindestens soviele Variablen 
angegeben werden, wie der Datensatz Felder hat. Überzäh¬ 
lige Variablen werden übersprungen. 

Beim Schreiben mit RPUT werden alle Felder mit Leerzei¬ 
chen aufgefüllt. Diese Leerzeichen werden beim Einlesen mit 
RGET wieder abgeschnitten. 

Alle Befehle des Relativators arbeiten im Direktmodus. 
Daher kann man sich eine bereits angelegte Datei auch im 
Direktmodus ansehen. Zuerst müssen der RLEN- und der 
ROPEN-Befehl gegeben werden, dann kann man sich jeden 
Datensatz mit dem RLIST-Befehl ansehen: 

RLIST n 

Durch diesen Befehl wird der n-te Datensatz auf dem Bild¬ 
schirm ausgegeben. Jedes Feld wird in eine neue Zeile 
geschrieben, in Anführungszeichen eingeschlossen. Bei 
RLIST werden die Auffüll-Leerzeichen nicht abgeschnitten. 

Der Vollständigkeit halber ist auch der RECORD-Befehl 
enthalten: 

RECORD n oder RECORD n,b 

Er positioniert auf das b-te Byte den n-ten Datensatz. Von 
dort können dann mit GET #14, A$ einzelne Zeichen aus dem 
Datensatz gelesen werden. 

Bildschirmmasken kann man einfach mit dem REACH-Be- 
fehl programmieren: 

REACH x,y,s$,l,v$,a$ 

X oder Y geben die Position an, wo die Eingabe erfolgen 
soll. Dort wird der Inhalt der Variablen s$ ausgegeben, ein 1 
Zeichen langes Feld gelöscht, der Inhalt der Variablen v$ aus¬ 
gegeben und eine maximal I Zeichen lange Eingabe erwartet. 
Dabei erscheint kein Cursor, sondern ein Strich. 

Mit der Taste DEL kann dabei das letzte Zeichen gelöscht 
werden und mit der Taste »Pfeil nach links« kann die gesamte 
Eingabe gelöscht werden. Erlaubt sind bei der Eingabe die 


Zeichen ASCII 32 bis ASCII 94 (von Leertaste bis »Pfeil nach 
oben«) und ASCII 193 bis ASCII 219 (Großbuchstaben). 

Wird ein Zeichen eingegeben, das nicht erlaubt ist (zum 
Beipiel Cursortasten) so wird die bisherige Eingabe in die 
Variable v$ gespeichert und das Zeichen, das zum Abbruch 
führte in a$. Durch Abfrage von a$ im Programm ist es also 
leicht möglich, mit den Cursortasten in einer Eingabemaske 
herumzuwandern. Von Vorteil ist dabei, daß der Inhalt der Ein¬ 
gabevariablen beim REACH-Befehl mit ausgegeben wird. 

Da auch der REACH-Befehl im Direktmodus benutzt wer¬ 
den kann, kann man leicht mit ihm experimentieren. 

Der letzte Befehl der Erweiterung ist der einfachste: 

ROFF 

Dieser Befehl dient dazu, den Relativator auszuschalten. 
Eingeschaltet werden kann er dann wieder, wie auch nach 
dem Laden mit SYS 49152. 

Eingabehinweise: 

Der Relativator (siehe Listing) wird mit dem MSE eingege¬ 
ben. Danach kann er rriit LOAD "RELATIVATOR", 8,1 geladen 
werden. Nach dem Laden sollte man NEW benutzen, da 
sonst schnell »OUT OF MEMORY« gemeldet wird. 
Gestartet wird er dann mit SYS49152. 

Befehlsübersicht 

RLEN I1,l2,...ln,0 
ROPEN"name" 

RCLOSE 
RENDn 

RPUT n,v1$,...,vn$ 

RGET n,v1$.vn$ 

RLIST n 
RECORD n,b 
REACH x,y,s$,l,v$,a$ 

ROFF 

(M. Stecher/og) 


Struktur festlegen 
File öffnen 
File schließen 
n-ten Datensatz belegen 
Datensatz schreiben 
Datensatz lesen 
Datensatz ansehen 
auf Zeichen positionieren 
vom Bildschirm einiesen 
Relativator aus 


Von LowRes noch HiRes 


Hardcopies von LowRes-Bildschirmen mit selbst¬ 
definiertem Zeichensatz? Kein Problem, wenn 
Sie die Grafik in ein HiRes-Bild umwandein. Dann 
läßt es sich problemlos mit jedem beliebigen 
Hardcopy-Programm ausdrucken. 

W er hat nicht schon versucht, eine Hardcopy einer 
Bildschirmgrafik zu machen, um enttäuscht festzu¬ 
stellen, daß es sich um selbstdefinierte Zeichen 
handelt? Nur nicht aufgeben, sondern »LOW-HIRES« (siehe 
Listing) mit dem MSE abtippen. Mit SYS 52992 wird die Rou¬ 
tine in den Interrupt eingebunden. Mit <F7> legt das Pro¬ 
gramm den momentanen LowRes-Bildschirm, in HiRes- 
Daten umgewandelt, in der ersten Grafikseite (ab $2000) ab. 
Danach kann sie sofort mit Hi-Eddi oder dem Hardmaker aus 
Ausgabe 4/86 bearbeitet und ausgedruckt werden. Wenn 
Sie die Grafik kontrollieren wollen, geben Sie folgende Zeile 
ein: 

la=53272:b=53265:c=peek(a):d=peek(b):poke a,24: poke 
b,59:waitl98,0:poke a,c:poke b,d 
Beim Start mit RUN wird in die Grafikseite umgeschaltet 
(richtig, die Farben sehen wirr aus), mit einer beliebigen Taste 
kommt man wieder in den Text-Modus. 

(M. Klingemann/S. von Schickfus/og) 


Programm i low—>hires cf00 c-fd9 


cf 00 

: 

7B 

a9 

0d 

Bd 

Bf 

02 

a9 

cf 

91 

cf 0B 

« 

Bd 

90 

02 

SB 

60 

a5 

cb 

c9 

5f 

cf 10 

: 

03 

f0 

03 

4c 

4B 

eb 

ad 

00 

70 

cf 1B 

i 

dd 

49 

ff 

29 

03 

aB 

BB 

30 

b7 

cf 20 

s 

0e 

a2 

07 

bd 

ca 

cf 

1B 

69 

57 

cf2B 

i 

40 

9d 

ca 

cf 

ca 

d0 

Bf 

a9 

2a 

cf 30 

s 

00 

Bd 

ff 

90 

B5 

fb 

ad 

BB 

09 

cf3B 

t 

02 

85 

fc 

«9 

ff 

05 

24 

a9 

Bl 

cf 40 

3 

3f 

85 

25 

ad 

1B 

d0 

29 

0e 

0a 

cf4B 

S 

1B 

6a 

aB 

b9 

ca 

cf 

B5 

fe 

36 

cf 50 

I 

a9 

ff 

85 

fd 

7B 

a9 

33 

BS 

c6 

cf 5B 

: 

01 

a0 

00 

bl 

fb 

1B 

0a 

2b 

b5 

cf 60 

3 

ff 

90 

0a 

2e 

ff 

90 

0a 

2a 

f 9 

cf 68 

3 

ff 

90 

1B 

65 

fd 

05 

22 

ad 

52 

cf 70 

X 

ff 

90 

65 

fe 

B5 

23 

a0 

0B 

f 4 

cf 7B 

3 

bl 

22 

91 

24 

BB 

d0 

f 9 

a9 

6d 

cf 00 

3 

00 

Bd 

ff 

90 

mb 

fb 

d0 

0B 

fa 

cfBB 

3 

e6 

fc 

a5 

fc 

c9 

00 

f0 

10 

b6 

cf 90 

3 

a5 

24 

18 

69 

0B 

05 

24 

a5 

03 

cf 9B 

3 

25 

69 

00 

B5 

25 

4c 

5b 

cf 

e4 

cfa0 

3 

a9 

37 

B5 

01 

a9 

40 

BS 

fc 

13 

cf aB 

X 

a9 

00 

B5 

fb 

B5 

fd 

a9 

20 

61 

Cfb0 

3 

85 

fe 

bl 

fb 

91 

fd 

b6 

fb 

3d 

cf bB 

3 

e6 

fd 

d0 

f 6 

e6 

fc 

e6 

f B 

a0 

CfC0 

3 

a5 

fc 

c9 

60 

d0 

ec 

5B 

4c 

d0 

cf cB 

X 

4B 

eb 

ff 

07 

cf 

d7 

lf 

27 

6d 

cfd0 

3 

2f 

37 

00 

00 

00 

00 

00 

00 

9b 

cf dB 


00 

00 

00 

00 

00 

00 

00 

00 

d9 


Listing. »LowRes — HiRes« wandelt Textbildschirme 
in Graflkbildschirme um 
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EINGABEHILFE 


Chedtsummer 
64 V3 


Der Checksummer 64 V3 überprüft jede Basic- 
Zeile direkt nach der Eingabe, erkennt Fehlein¬ 
gaben sowie Vertauschungen von Ziffern und 
erspart eine aufwendige Fehlersuche. 

D er Checksummer 64 V3 (Listing) ist ein kleines Maschi¬ 
nenprogramm, das Sie sofort unterrichtet, ob Sie die 
jeweilige Programmzeile korrekt eingegeben haben. 
So gehen Sie vor: 

1. Programm abtippen und speichern. 

2. Starten mit RUN. 

3. Nach kurzer Zeit sehen Sie am Bildschirm: 
»CHECKSUMMER 64, CHECKSUMMER AKTIVIERT, AUS¬ 
SCHALTEN MIT POKE 1,55, ANSCHALTEN MIT POKE 1,53, 
READY«. 

4. Einschalten des Checksummers 64 V3 mit POKE 1,53. 

5. Test: Geben Sie in einer freien Zeile ein: »1 REM« und 
drücken die < RETURN >-Taste. Am Bildschirm oben links 
sollten Sie die Prüfsumme <63> sehen. 

6. Geben Sie ein Listing aus unserem Heft ein. Nach jeder 
Zeile wird die Zahl, die im Listing in Klammern < > steht, in 
den Bildschirm eingeblendet. Stimmen die Zahlen nicht über¬ 
ein, so liegt vermutlich ein Eingabefehler vor. 

Die Zahl in den Klammern, und auch die Klammern 
selbst, dürfen beim Abtippen nicht eingegeben werden! 

7. Der Checksummer 64 V3 bemerkt auch Vertauschun¬ 
gen von Zahlen und Buchstaben, aber nicht das Fehlen (oder 
Hinzufügen) von Leerzeichen. 

8. Unsere Basic-Listings enthalten keine Steuerzeichen 
mehr. Diese werden ersetzt durch Klartext und stehen zwi¬ 
schen geschweiften Klammern. Deshalb sind weder die 
Klammern noch das was dazwischensteht, abzutippen, son¬ 
dern die in Tabelle 1 aufgeführten Tasten zu drücken. Auf 
Ihrem Bildschirm erhalten Sie dann wieder die entsprechen¬ 
den Grafikzeichen. 

9. Alle Grafikzeichen werden ebenfalls ersetzt durch unter¬ 
strichene oder überstrichene Großbuchstaben. 

Unterstrichene Buchstaben bedeuten, daß Sie die 
<SHIFT>-Taste und den angegebenen Buchstaben 
drücken müssen, überstrichene jedoch die Commodore- 
Taste (CBM) oder (<C= >) mit dem Buchstaben. 


Auch hier erhalten Sie am Bildschirm das entsprechende 
Grafikzeichen und nicht etwa das im Listing erkennbare Zei¬ 
chen. 

Die Leerzeichen zwischen den einzelnen Basic-Befehlen 
können beim Abtippen entfallen (ohne Einfluß auf die Check¬ 
summe zu nehmen). Dies ist besonders bei speicherkriti¬ 
schen Programmen wichtig. Ebenso müssen Zeilen, die 
mehr als 80 Zeichen pro Zeile enthalten, mit den bekannten 
Abkürzungen für die Basic-Befehle (siehe auch das Hand¬ 
buch zum C 64, Anhang D, Seite 130) eingegeben werden. 

Sie können die Programme auch weiterhin ohne den Check¬ 
summer eintippen. (F. Lonczewski/gk) 

Hinweis: j13 SPACEj bedeutet 13mal die Leertaste drücken 


9 REM #*■*##***####•**#**#************* 

10 PRINT"CCLR,11SPACE,RVSONJCHECKSUMMER 64 

V3IRVOFFJ" 

11 PRINT" I2D0WN,9SPACE>EINEN MOMENT, BITTE 

12 FOR I=B2B TO 864:READ A:POKE I,A:PS=PS+ 
A+1: NEXT. I 

13 IF PSO5802 THEN PR INT" PRUEFBUMMENFEHLE 
R IN ZEILEN 20-22":END 

14 SYS B2B:PS=0:FOR 1=58464 TO 5B583:READ 
A:POKE I,A:PS=PS+A+1:NEXT I 

15 IF PSO16267 THEN PRINT"PRUEFSUMMENFEHL 
ER IN ZEILEN 22-30":END 

16 POKE 1,53:POKE 422B9,96:POKE 42290,228 

17 PRINT"{4DQWN,9SPACE TCHECKBUMMER AKTIV IE 
RT. " 

18 PRINT"L2D0WNJAUSSCHALTEN : POKE1,55" 

19 PRINT"ID0WNJANSCHALTEN-C2SPACEJ: P0KE1,5 
3":NEW 

20 DATA 169,0,133,254,162,1,189,93,3,133,2 
55,160,0,177,254 

21 DATA 145,254,136,208,249,230,255,165,25 
5,221,95,3,208,23B,202 

22 D«u, 16,230,96,160,224,192,0,160,2,169, 
0,170,133,254,177 

23 DATA 95,240,40,201,32,208,3,200,208,245 
,133,255,138,41,7 

24 DATA 170,240,14,72,165,255,24,42,105,0, 

202.208.249.133.255 

25 DATA 104,170,232,165,255,24,101,254,133 
,254,76,111,228,192,4 

26 DATA 48,219,198,214,165,214,72,162,3,16 
9,32,157,1,4,189 

27 DATA 212,228,32,210,255,208,12,0,92,72, 
32,201,255,170,104 

28 DATA 144,1,138,96,202,16,228,166,254,16 
9,0,32,205,189,169 

29 DATA 62,32,210,255,104,133,214,32,108,2 

29.169.141.32.210.255 

30 DATA 76,128,164,9,60,18,19 

6 G4'ef- 

Der Checksummer 64 V3 erkennt auch 
Vertauschungen von Zahlen 


CTRL steht für Control-Taste, so bedeutet |CTRL+Aj, daß Sie die 
Control-Taste und die Taste »A« drücken müssen. Im folgenden steht: 

|DOWN| Taste neben rechtem Shift, Cursor unten 

|UP] Shift-Taste & Taste neben rechtem Shift: Cursor hoch 

|CLR| Shift-Taste 8 2, Taste ganz rechts oben 

[INSTj Shift-Taste 8 Taste ganz rechts oben 

|HOME| 2. Taste von ganz rechts oben 

[DEL] Taste ganz rechts oben 

IRIGHT] Taste ganz rechts unten 

ILEFTj Shift-Taste 8 Taste unten rechts 

[SPACE] Leertaste 

(SHFT-SPCE) Shift-Taste & Leertaste 

|F11 bis (F8| Funktionstasten 

IRETURNI Shift-Taste 8 Return 

(BLACKI Control-Taste 8 1 

|WHITE| Control-Taste 8 2 

[RED] Control-Taste 8 3 


[CYAN] 

[PURPLE] 

[GREEN] 

[BLUE] 

[YELLOW] 

IRVSON] 

[RVOFF] 

IORANGE] 

[BROWN] 

[LIG.RED] 

IGREY 1] 

IGREY 2] 

[LIG.GREEN] 

ILIG.BLUE] 

[GREY 3] 


Control-Taste 8 4 
Control-Taste 8 5 
Control-Taste 8 6 
Control-Taste 8 7 
Control-Taste 8 8 
Control-Taste 8 9 
Control-Taste 8 0 
Commodore-Taste 8 1 
Commodore-Taste 8 2 
Commodore-Taste 8 3 
Commodore-Taste 8 4 
Commodore-Taste 8 5 
Commodore-Taste 8 6 
Commodore-Taste 8 7 
Commodore-Taste 8 8 


Tabelle 1. Die Steuerbefehle in den Listings 
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MSI- Ablippen 
sicher und 
leicht gemacht 

Ähnlich wie der Checksummer ist auch der MSE 
ein leicht zu bedienendes Hilfsmittel bei der Ein¬ 
gabe von Listings, diesmal jedoch bei reinen 
Maschinensprache-Programmen. 

I m Gegensatz zum »Checksummer« aber ist die Eingabe 
nicht ohne den MSE möglich. Der MSE verringert die 
Tipparbeit um ein Drittel und schließt Fehleingaben voll¬ 
kommen aus. Außerdem können Sie die Werte blind einge¬ 
ben, ohne andauernd auf den Bildschirm schauen zu müs¬ 
sen. Dies wird durch akustische Meldungen realisiert. 

MSE ist ein Maschinensprache-Editor, mit dem ein Vertip¬ 
pen ausgeschlossen ist. Eine abgetippte Zeile wird nur ange¬ 
nommen, wenn sie richtig ist. Eine Checksumme am Ende 
jeder Zeile prüft, ob die richtigen Werte in der richtigen Zeile 
an der richtigen Stelle stehen. Wenn nicht, ertönt ein Warn¬ 
signal, und man beseitigt den Fehler. 

War die Zeile korrekt, erklingt ein Gong, und die nächste 
Zeilennummer wird ausgegeben. Damit ist also auch »blin¬ 
des« Eintippen möglich; Sie können sich voll auf den Text kon¬ 
zentrieren. 

So arbeitet man mit MSE 

Laden und starten Sie MSE. Zuerst werden der Programm¬ 
name und die Start- und Endadresse erfragt. Diese Angaben 
entnehmen Sie dem Kopf des jeweiligen abgedruckten 
Listings. Der MSE meldet sich dann mit der Zeilennummer der 
ersten Zeile. 

Wenn Sie die Zeile richtig eingegeben haben, erscheint die 
nächste Zeilennummer und so weiter bis zum Ende. Zum 
Schluß wird das fertige Programm mit <CTRL+S> auf Dis¬ 
kette oder Kassette gespeichert. Dazu sind keine weiteren 
Angaben mehr erforderlich. Das Programm kann dann ganz 
normal wieder geladen und gestartet werden. Wenn Sie nicht 
alles auf einmal tippen wollen, können Sie jederzeit unterbre¬ 


chen und den eingetippten Teil mit <CTRL+S> speichern. 
Wollen Sie Weiterarbeiten, laden und starten Sie MSE wieder. 

Geben Sie auf die Frage nach der Startadresse aber jetzt 
<L> ein, um Ihr Teilprogramm zu laden. Jetzt können Sie mit 
<CTRL+N> die Adresse eingeben, an der Sie weitertippen 
müssen. Wenn Sie sich nicht gemerkt haben, wie weit Sie 
gekommen sind, geben Sie nach dem Laden <CTRL+M> 
ein. 

Auf die Frage nach der Startadresse antworten Sie mit der 
Anfangsadresse, die links in der Kopfzeile auf dem Bildschirm 
steht. Nun wird Ihr Programm aufgelistet. Mit < SPACE > wird 
das Listen fortgesetzt, mit <STOP> abgebrochen. Das Ende 
Ihres Programmteils erkennen Sie sehr einfach daran, daß nur 
noch der Wert »AA« in der Zeile steht. Die Adresse dieser Zeile 
müssen Sie anschließend mit <CTRL+N> eingeben. Das 
Programm ist nur mit <RUN/STOP+RESTORE> zu verlas¬ 
sen. Speichern Sie aber vorher unbedingt immer Ihren Text. 

Hinweise zum Abtippen 

Vor dem Abtippen oder späteren Wiederladen des MSE- 
Laders müssen Sie unbedingt folgende Zeile eingeben; 
POKE 43,1: POKE 44,32: POKE 8192,0: NEW 

Den MSE-Lader brauchen Sie nur einmal. Nach erfolgrei¬ 
chem Abtippen und Starten mit RUN geht der Lader verloren, 
und es wird das endgültige Programm MSE VI.0 erzeugt. So 
gehen Sie vor: 

Starten Sie das Programm mit RUN. Fehlerhafte Zeilen wer¬ 
den angezeigt und müssen korrigiert werden, bis der Lader 
zum »READY« durchläuft. Jetzt müssen Sie das fertige MSE- 
Programm speichern. Dazu brauchen Sie nur < RETURN > 
zu drücken, weil die erforderlichen Angaben schon auf dem 
Bildschirm stehen. (Kassettenbesitzer müssen in.Zeile 343 
die letzte Zahl in »1« abändern.) Ab jetzt können Sie »MSE 
VI.0« direkt, also ohne den DATA-Lader, benutzen. MSE VI.0 
wird ganz ■ lormal mit »,8« geladen (keine POKEs notwendig). 

(N. Mann/D. Weineck/gk) 


MSE-Befehle: 

<DEL> 

löscht die letzte Eingabe. 

<CTRL+S> 

speichert das eingetippte Programm ab. 

<L> oder 

lädt ein Programm. Start- und Endadresse wer- 

<CTRL+L> 

den automatisch ermittelt. 

<CTRL+M> 

listet den Speicherinhalt. Abbruch mit STOP- 

<CTRL+N> 

Taste, weiter mit Leertaste. 

erlaubt die Eingabe einer neuen Adresse zum 

<CTRL+P> 

Weitertippen. 

gibt ein MSE-Listing auf dem Drucker aus. 


100 

REM *#*******#*«***#*«******#*** 

<091 > 

KE 198,3 

Z949> 

110 

REM # * 

<159> 

343 PRINT"<3D0WN>SAVE"CHR* (34)"MSE V1.0"CH 


120 

REM * MSE LADER * 

<206> 

R*(34)",B 

< 171 > 

130 

REM * * 

< 179> 

344 END 

<092> 

220 

REM **###*#***#*#**#**#*#*##**** 

<211 > 

1000 DATA 00,0B,08,0A,00,9E,32,30,36,31,00 


230 

REM 

<036> 

,00,00,A2,08,A9,36,85,A4,A9, 1247 

< 119> 

240 

DIM 1-1(75): FOR 1=0 TO 9 

< 113> 

1001 DATA 08,85,A5,A9,00,85,A6,A9,B0,B5,A7 


250 

H(48+1)=1: H(65+1)=1+10:NEXT 

<041 > 

,A0,00,Bl,A4,91,A6,CB,D0,F9, 2888 

<054> 

260 

FOR 1=2048 TO 3755 : READ A* 

<198> 

1002 DATA E6,A5,E6,A7,CA,D0,F2,A9,36,85,01 


270 

H=ASC(LEFT*(A*,1>):L=ASC(RIGHT*(A*,1>) 

<199> 

,4C,00,80,20,Dl ,B1 ,A9,06,01), 2787 

< 144> 

280 

D=H(H>*16+H(L):S=S+D:POKE I,D 

<219> 

1003 DATA 21,D0,A9,03,8D,20,D0,8D,86,02,A0 


290 

A=A+1:IF A<20 THEN NEXT:A=-1 

< 141 > 

,B3,A9,74,20,FF,B1,A0,B3,A9, 2667 

<237> 

300 

PRINT " ZEILE:";1000+Z; 

<011> 

1004 DATA B9,20,FF,Bl,A0,00,20,CF,FF,99,01 


310 

READ V :Z=Z+1:IF V=S THEN 330 

<21B> 

,02,CB,C9,0D,D0,F5,88,F0,D2, 2912 

<217> 

320 

PRINT"PRUEFSUMMENFEHLER !":STOP 

< 138> 

1005 DATA C0,0F,90,02,A0,0E,8C,00,02,20,EA 


330 

IF A<0 THEN 341 

<221 > 

,81,A0,B3,A9,CF,20,FF,Bl,20, 2323 

<013> 

340 

S=0:A=0:PRINT:NEXT 

<046> 

1006 DATA 8E,B4,85,FC,85,62,20,BE,B4,85,FB 


341 

PRINT"CCLR>Pfl43,1:Pfi44,B:Pß45,172:Pß46 
,1* 

<010> 

,85,61,20 , A7 , B4, D0,20 , A0 , B3, 2864 

1007 DATA A9,E5,20,FF,B1,20,8E,B4,85,60,20 

< 199> 

342 

POKE 631,19:POKE 632,13:P0KE 633,13:P0 


,BE,B4,B5,5F,20,A7,B4,D0,0A, 2624 

<091 > 

Der MSE zum bequemen Abtippen von Maschinenprogrammen 
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1000 DATA A5,61,C5,5F,A5,62,E5,60,90,06,20 

,43,B3,4C,3A,B0,A9,AA,A0,00, 2379 <167> 

1009 DATA 91,FB,E6,FB,D0,02,E6,FC,20,3F,B2 

,90,EF,4C,FB,B4,A2,02,06,50, 3118 <152> 

1010 DATA A9,A6,A0,9D,20,F2,B1,20,E4,FF,F0 

,FB,C9,30,90,0C,C9,47,B0,0B, 2970 <231> 

1011 DATA C9,3A,90,0B,C9,41,B0,07,C9,14,D0 

,0F,4C,0B,B1,20,D2,FF, A6,58, 2322 <121> 

1012 DATA 95,F7,C6,58,D0,D2,60,AE,BD,02,F0 

,26,C9,0C,D0,03,4C,0B,B6,C9, 2685 <057> 

1013 DATA 13,D0,03,4C,BB,B5,C9,0D,D0,03,4C 

,BA,B4,C9,10,D0,03,4C,68,B5, 2282 <225> 

1014 DATA C9,0E,D0,06,20,5F,B4,4C,64,B1,4C 

,92,B0,A5,F9,20,02,B1,0A,0A, 2132 <20B> 

1015 DATA 0A,0A,B5,F9,A5,F8,20,02,B1,05,F9 

,60,C9,3A,90,02,69,0B,29,0F, 1950 <092> 

1016 DATA 60,A6,59,E0,0B,90,1F,A6,5B,E0,02 

,B0,06,20,D2,FF,4C,BE,B0,C6, 2509 <1BB> 

1017 DATA 59,A0,14,A9,92,20,F2,B1,CA,D0,FA 

,04,57,60,68,4C,BB,B1,A6,D3, 2891 <197> 

1018 DATA E0,0B,B0,03,4C,92,B0,20,D2,FF,A6 

,5B,E0,02,90,09,C6,59,20,D2, 246B <049> 

1019 DATA FF,C6,58,D0,F9,4C,BE,B0,4B,4A,4A 

,4A,4A,20,59,B1,6B,29,0F,C9, 2419 <035> 

1020 DATA 0A,90,02,69,06,69,30,4C,D2,FF,A2 

,FC,9A,20,D1,B1,20,48,B2,20, 2261 <073> 

1021 DATA EA,B1,20,9F,B2,A5,FC,20,4E,B1,A5 

,FB,20,4E,B1,20,ED,B1,A9,3A, 2860 <14B> 

1022 DATA A0,20,20,F2,B1,A9,00,B5,59,20,8E 

,B0,20,ED,B1,A4,59,20,EF,B0, 2530 <233> 

1023 DATA 91,FB,C8,04,59,00,08,90,EC,20,10 

,B2,A9,12,20,D2,FF,20,8E,B0, 2657 <105> 

1024 DATA 20,EF,B0,C5,FF,F0,0D,20,43,B3,A9 

,14,A0,14,20,F2,B1,4C,A2,B1, 2665 <034> 

1025 DATA A9,92,20,D2,FF,20,33,B2,20,E0,B2 

,20,3F,B2,90,9F,4C,8B,B5,A9, 2648 <123> 

1026 DATA 93,20,D2,FF,A2,00,A9,03,9D,00,D8 

,9D,00,D9,9D,00,DA,9D,00,DB, 2476 <237> 

1027 DATA EB,D0,EF,60,A9,0D,2C,A9,20,4C,D2 

,FF,20,D2,FF,98,4G,D2,FF,20, 2965 <160> 

1028 DATA E4,FF,F0,FB,60,84,5D,85,5C,A0,00 

,Bl,5C,F0,06,20,D2,FF,CB,D0, 3100 <077> 

1029 DATA F6,60 , A5 , FB, 85,5A, A0,00,84,5B, B1 

,FB,18,65,5A,85,5A,90,02,E6, 2606 <156> 

1030 DATA 5B,06,5A,26,5B,C8,C0,08,90,EC,A5 

,5A,65,5B,85,FF,60,18,A5,FB, 2467 <219> 

1031 DATA 69,08,85,FB,90,02,E6,FC,60,A5,FB 

,C5,5F,A5,FC,E5,60,60,A0,B3, 3106 <1B3> 

1032 DATA A9,FB,20,FF,B1,A0,01,B9,00,02,20 

,D2,FF,CC,00,02,CB,90,F4,A9, 2692 <09B> 

1033 DATA 10,ED,00,02,AA,20,ED,Bl,CA,D0,FA 

,A5,62,20,4E,B1,A5,61,20,4E, 2453 <236> 

1034 DATA Bl,20,ED,B1,A5,60,20,4E,B1,A5,5F 

,20,4E,B1,A9,9F,20,D2,FF,20, 2575 <038> 

1035 DATA EA,B1,24,5E,10,01,60,A9,12,20,D2 

,FF,A2,28,20,ED,B1,CA,D0,FA, 2646 <161> 

1036 DATA A9,92,4C,D2,FF,A5,D6,C9,16,B0,01 

,60,A9,A0,85,A4,A9,78,05,A6, 2945 <204> 

1037 DATA A9,04,85 , A5,85, A7 , A2 , 13, A0,27 , B1 

,A4,91,A6,B8,10,F9,CA,F0,19, 2671 <20B> 

1038 DATA 18,A5,A4,69,28,B5,A4,90,02,E6,A5 

,18,A5,A6,69,28,85,A6,90,E0, 2503 <251> 

1039 DATA E6,A7,4C,B6,B2,A9,91,4C,D2,FF,A9 

,0F,8D,18,D4,A9,00,8D,05,D4, 2776 <000> 

1040 DATA A9,F7,8D,06,D4,A9,11,BD,04,D4,A9 

,32,BD,01,D4,A9,00,8D,00,D4, 2413 <126> 

1041 DATA A0,B0,20,09,B3,A9,10,BD,04,D4,60 

,A2,FF,CA,D0,FD,88,D0,FB,60, 2914 <240> 

1042 DATA A9,0F,8D,1B,D4,A9,2D,8D,05,D4,A9 

,A5,BD,06,D4,A9,21,BD,04,D4, 23BS <U9> 

1043 DATA A9,07,8D,01,D4,A9,05,8D,00,D4,A0 

,FF,20,09,B3,A9,20,8D,04,D4, 2250 <07B> 

1044 DATA A9,00,BD,01,D4,BD,00,04,60,38,20 

,F0,FF,8A,48,98,48,18,A0,06, 2179 <175> 

1045 DATA A2,18,20,F0,FF,A0,B4,A9,0A,20,FF 

,Bl,20,12,B3,20,E4,FF,F0,FB, 2931 <093> 

1046 DATA A2,1D,A9,14,20,D2,FF,CA,D0,FA,68 

,A8,68,AA,1B,4C,F0,FF,0D,0D, 2704 <0B8> 

1047 DATA 0D,20,20,20,20,20,20,20,4D,41,53 

,43,48,49,4E,45,4E,53,50,52, 1144 <216> 

1048 DATA 41,43,4B,45,20,2D,20,45,44,49,54 

,4F,52,20,0D,0D,20,20,20,20, 1023 <03B> 


1049 DATA 20,20,20,20,56,4F, 4E , 20,4E, 2E, 4D 

,41,4E,4E,20,26,20,44,2E,57, 1128 <206> 

1050 DATA 45,49,4E,45,43,4B,00,0D,0D,0D,20 

,20,20,50,52,4F,47,52,41,4D, 1102 <117> 

1051 DATA 4D,4E,41,4D,45,20,3A,20,00,0D,0D 

,20,20,20,53,54,41,52,54,41, 1073 <095> 

1052 DATA 44,52,45,53,53,45,20,3A,20,24,00 

,0D,0D,20,20,20,45,4E,44,41, 1014 <129> 

1053 DATA 44,52,45,53,53,45,20,20,20,3A,20 

,24,00,92,05,20,50,52,4F,47, 1171 <217> 

1054 DATA 52,41,4D,4D,20,3A,20,00,12,20,20 

,2A,2A,2A,20,46,41,40,53,43, 1024 <027> 

1055 DATA 4B,45,20,45,49,4E,47,41,42,45,20 

,2A,2A,2A,20,20,92,00,0D,0D, 1058 <098> 

1056 DATA 2A,2A,2A,20,45,4E,44,45,20,2A,2A 

,2A,00,13,05,20,20,12,44,92, 920 <14B> 

1057 DATA 49,53,4B,20,4F,44,45,52,20,12,54 

,92,41,50,45,0D,00,13,20,20, 1151 <035> 

1058 DATA 49,2F,4F,20,2D,20,46,45,48,4C,45 

,52,00,20,D1,B1,20,48,B2,A0, 1606 <012> 

1059 DATA B3,A9,CF,20,FF,B1,20,8E,B4,85,FC 

,20,8E,B4,85,FB,C5,61,A5,FC, 3207 <251> 

1060 DATA E5,62,90,23,A5,FB,C5,5F,A5,FC,E5 

,60,B0,19,20,A7,B4,D0,14,60, 2860 <112> 

1061 DATA 20,A7,B4,F0,0C,85,F9,20,A7,B4,F0 

,05,85,FB,4C,EF,B0,68,68,20, 2749 <08B> 

1062 DATA 43,B3,4C,5F,B4,20,CF,FF,C9,4C,D0 

,09,20,D1,Bl,20,48,B2,4C,0B, 2372 <046> 

1063 DATA B6, C9,0D, 60, A9,00,85,5E , 20,5F , B4 

,20,EA,B1,20,0D,B5,24,5E,30, 2042 <120> 

1064 DATA 05,20,E4,FF,F0,FB,20,E1,FF,F0,26 

,20,9F,B2,24,5E,10,09,20,4E, 2435 <19B> 

1065 DATA B5,20,0D,B5,20,60,B5,20,33,B2,20 

,3F,B2,90,D7,A0,B4,A9,28,20, 2190 <207> 

1066 DATA FF,Bl,20,E4,FF,C9,0D,D0,F9,A9,00 

,85,5E,A5,61,85,FB,A5,62,85, 3056 <240> 

1067 DATA FC,20,E0,B2,4C,64,B1,A5,FC,20,4E 

,Bl,A5,FB,B5,FF,20,4E,B1,A9, 3003 <221> 

1068 DATA 20,A0,3A,20,F2,B1,A0,00,20,ED,Bl 

,Bl,FB,20,4E,Bl,CB,00,08,90, 2566 <070> 

1069 DATA F3,20, ED , B1,24,5E, 30,03 , A9,12,2C 

,A9,2",20,D2,FF,20,10,B2,A5, 2190 <059> 

1070 DATA FF,20,4E,Bl ,A9,92,20,D2,FF, 4C,EA 

,B1,A9,FF,85,BB,B5,B9,A9,04, 3073 <029> 

1071 DATA 85, BA , 20 , C0 , FF , A2, FF , 4C, C9 , FF, 20 

,CC,FF,A9,FF,4C,C3,FF,20,5F, 3315 <189> 

1072 DATA B4, A9,80,85,5E , 20,4E , B5,20,48, B2 

,A2,24,A9,2D,20,D2,FF,CA,D0, 2596 <111> 

1073 DATA FA,20,EA,Bl,20,EA,B1,20,60,B5,4C 

,C1,B4,20,B8,B5,A6,5F,A4,60, 2812 <015> 

1074 DATA A9,61,20,DB,FF,B0,0A,20,B7,FF,29 

,BF,D0,03,4C,FB,B4,A9,01,20, 2577 <201> 

1075 DATA C3, FF , 20,6B, B6, A0 , B4 , A9,4F, 20, FF 

,Bl,20,F9,B1,4C,FB,B4,20,68, 2921 <237> 

1076 DATA B6 , A9,37, A0, B4,20, FF , B1,20, F9, B1 

,A2,08,C9,44,F0,06,A2,01,C9, 2717 <213> 

1077 DATA 54,D0,F1,A9,01,AB,20,BA,FF,A0,00 

,E0,01,F0,1A,A9,40,8D,20,02, 2403 <101> 

1078 DATA A9,3A,8D,21,02,B9,01,02,99,22,02 

,CB,CC,00,02,90,F 4,C8,CB,D0, 2182 <127> 

1079 DATA 00,B9,01,02,99,20,02,CB,CC,00,02 

,D0,F4,98,A2,20,A0,02,4C,BD, 2018 <025> 

1080 DATA FF,20,BB,B5,A5,BA,09,08,90,33,A6 

,B9,B6,57,A9,01,20,C3,FF,A9, 2B00 <022> 

10B1 DATA 60 , B5, B9,20, C0, FF, B0,2B , A5, BA , 20 

,B4,FF,A5,B9,20,96,FF,20,A5, 2911 <053> 

1082 DATA FF,85,61,A5,90,4A,4A,B0,13,20,A5 

,FF,85,62,20,AB,FF,A5,57,85, 2663 <214> 

1083 DATA B9,A9,00,20,05,FF,90,03,40,A3,B5 

,86,5F,84,60,A5,BA,C9,01,D0, 2639 <131> 

1084 DATA 0A,AD,3D,03,B5,61,AD,3E,03,85,62 

,4C,FB,B4,A9,13,20,D2,FF,A2, 2300 <120> 

1085 DATA IC,20,ED,Bl,CA,D0,FA,60, 1230 <214> 

6 64'«- 
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Umfangreicher 

Einstelgerteil: 

■ Profit hoMon llntlolgern 
■ Hardwaro-Brwollorungon 
M Oroßor Batlc-Kurs 


... außerdem lesen Sie: 


■ Den großen Meiseberidtt von der 
Orga-Technik in Köln ■ So funktioniert die 
serielle Schnittstelle ■ Umfangreiche 
Marktübersichten von Hardware-Zusätzen 

■ Viele neue Hypra Basic-Module ■ Bau¬ 
anleitung: überprüfen Sie die Verschluß¬ 
zeiten Ihrer Kamera ■ Der große Kursteil: 
Grafik-Assembler-Druckerkurs ■ Tips und 
Tricks zu Geos, Protext und Master Text ■ 
Es wird spannend: Auflösung unseres 
Wettbewerbs »Knobelecke« ■ 64'er Ex¬ 
tra: Alles über Eproms ■ Diesmal im Test: 
Soft-Cards — ein Ersatz für Eproms? 2 Su¬ 
perdrucker: Wie gut sind die 18 Nadeln des 
Oki 292? Gehören dem Tintenstrahl¬ 
drucker wie dem Epson 1X800 die Zukunft? 
Neues HDS-Interface und AGE EPROMMer, 
Erweiterungssysteme mit Diskettenbe¬ 
schleuniger, DELA-Relais-Karte 

Falls Sie »64'er« noch nicht regelmäOig bezie¬ 
hen, sichern Sie sich letzt Ihr persönliches Abon¬ 
nement und nutzen die damit verbundenen Vor¬ 
teile: ■ Sie beziehen »64'er« ohne Mehrkosten 
bequem per Post frei Haus ■ Sie haben Ihr 
»64'er« bereits bei sich zu Hause - noch bevor Sie 
es bei Ihrem Zeitschriftenhändler kaufen können. 

■ Sie sind sicher, keine Ausgabe zu versäumen. 

Sie erhalten — wenn Sie zur Anforderung den 
nebenstehenden Gutschein verwenden — auf alle 
Fälle die neueste Ausgabe als Probeheft unver¬ 
bindlich und kostenlos. 


iss sr~ 

bs^-äsä 

für wenig®* 

ouixubon® 1 » 


Gutschein 

FÜR EIN KOSTENLOSES PROBEEXEMPLAR DES 64'er-MAGAZINS 

JA, Ich möchfo »64'er«, dos Magazin für Compulerfans, kennonlernen. 

Senden Sie mir bilfo die aktuellste Ausgabe kostenlos als Probeexemplar. Wenn mir *64'er« gefällt und ich 
es regelmäßig weltorbozlohon möchte, brauche Ich nichts zu tunt Ich erhalto »64'er« dann regelmäßig frei 
Haus per Post und bezahle pro Jahr nur DM 78,— (Ausland auf Anfrage). 


Vbrnamo, Name 


Straße 


PLZ, Ort 


Datum 1. Unterschrift 

Mir ist bekannt, daß ich diese Bestellung innerhalb von 8 Tagen bei der Bestelladrosse widerrufen kann 
und bestätige dies durch meine zweite Unterschrift. Zur Wahrung der Frist genügt die rechtzeitige Absendung 
des Widerrufs. 


Datum 2. Unterschrift 

Gutschein ausfüllen, ausschneldon. In ein Kuvert stecken und absendon an: 
Markt & Technik \forlag Aktiengesellschaft, Nfertrleh, Postfach 1304, 8013 Haar 
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Text wirkungs 


Szene gesetzt 

Wer kennt sie nicht, die Laufschriften in Schau¬ 
fenstern und im Vorspann professioneller Pro¬ 
gramme. Nutzen Sie die magische Anziehungs¬ 
kraft bewegter Texte in eigenen Programmen - mit 
8fach vergrößerten, frei definierbaren Zeichen. 

D as Programm »MESSAGES« verwandelt Texte mit einer 
maximalen Länge von 2736 Zeichen in eine Laufschrift, 
die mit einem einzigen SYS-Befehl gestartet werden 
kann. So kann diese leicht auch in eigenen Programmen ver¬ 
wendet werden. Jedes einzelne Zeichen wird bei dem flim- 
mer- und ruckfreien Scrollen aus 64 Zeichen dargestellt, also 
8fach vergrößert. Die Lesbarkeit ist also auch bei größerer 
Distanz vom Bildschirm gewährleistet. Sie können auf diese 
Weise leicht die Blicke anderer anziehen und an Ihren Moni¬ 
tor fesseln - Ihre Mitteilung gewinnt an Bedeutung. 

MESSAGES besteht aus dem Programm »EDITOR« (Listing 
1) und dem Maschinenprogramm »MES.C.OBJ« (Listing 2), 
das vom Editor nach RUN automatisch nachgeladen wird. Die 
Bedienung des Editors ist sehr einfach, da er vollkommen 
menügesteuert arbeitet. Er bietet die folgenden Optionen: 
<1 > Text erstellen 

Hier geben Sie Ihren Text ein, der, wie bereits oben er¬ 
wähnt, aus bis zu 2736 Zeichen bestehen kann. Bei der Ein¬ 
gabe sind alle Groß- und Kleinbuchstaben, Zahlen und Son¬ 
derzeichen erlaubt, mit Ausnahme der Commodore-Grafik- 
zeichen und der inversen Zeichen. Die Eingabe wird mit 
< RETURN > abgeschlossen. Der Text wird daraufhin vom 
Programm als Laufschrift aufbereitet. 

<2> Schrift ansehen 

Hier können Sie sich den vorher eingegebenen Text anse¬ 
hen. Der Text scrollt, wie später in Ihrem eigenen Programm, 
von rechts nach links über den Bildschirm. Die Farbe für Hin¬ 
tergrund, Rahmen und Schrift können Sie in eigenen Pro¬ 
grammen selbstverständlich individuell einstellen. Mit 
<CBM+SHIFT> können Sie, wie gewohnt, die Schrift 
umschalten (Klein- beziehungsweise Großbuchstaben). Je¬ 
de andere Taste, mit Ausnahme von < RUN/STOP > führt in 
den Menümodus zurück. 

<3> Text verbessern 

Mit diesem Menüpunkt läßt sich der eingegebene Text 
noch einmal ändern beziehungsweise korrigieren. Mit den 
Tasten < + > und <-> kann der Text durchgeblättert wer¬ 
den. Wird die zu ändernde Textstelle auf dem Bildschirm 
angezeigt, drücken Sie einfach <F1 >, worauf dieser Textab¬ 
schnitt erneut dargestellt wird. Die Darstellung geschieht nun 
aber mit dem blinkenden Cursor, so daß Sie den Text über¬ 
schreiben können. Nach der gewünschten Korrektur drük- 
ken Sie wieder < RETURN >. 

<4> Character ändern 

Das Aussehen der Laufschrift kann mit diesem Menüpunkt 
geändert werden. Jedes dargestellte Zeichen setzt sich 
nämlich aus 64 (8 mal 8) Zeichen des Original-Zeichensat¬ 


zes zusammen. Welches Zeichen hierfür verwendet wird, 
können Sie hier festlegen. Beim Start des Programms ist der 
ASCII-Code 120 voreingestellt, also ein waagerechter Bal¬ 
ken. Es sind grundsätzlich alle Zeichen erlaubt, die Werte fin-' 
den Sie im Handbuch des C64 ab Seite 133. Es gibt aber 
noch eine Alternative: Geben Sie einmal eine negative Zahl 
ein (egal welche). In diesem Fall wird jedes einzelne Zeichen 
des Textes aus diesem Zeichen zusammengesetzt. 

<5> Laufschrift speichern 

Der eingegebene Text wird mit diesem Menüpunkt zusam¬ 
men mit der Scroll-Routine auf Diskette gespeichert. Er kann 
später mit »LOAD "name",8,1« geladen und mit »SYS 50177« 
innerhalb eines Programmes oder im Direktmodus gestartet 
werden. 

<6> Verlassen des Editors 

Mit dem letzten Menüpunkt verlassen Sie den Editor. Ha¬ 
ben Sie ihn versehentlich angewählt, gelangen Sie mit 
FL=0:G0T0 100 

zurück ins Programm. Alle bisherigen Eingaben (Text und 
Zeichen-Code) bleiben erhalten. 

Um eine Laufschrift in Ihr Basic-Programm einzubinden, 
gehen Sie bitte wie folgt vor: 

Erstellen Sie die Schrift mit dem Editor wie oben beschrie¬ 
ben. Speichern Sie diese mit Menüpunkt 5 auf Diskette. Nun 
laden Sie Ihr Basic-Programm. Fügen Sie an den Anfang des 
Programms zwei Zeilen ein: 

0 IF A=1 THEN (Nummer der übernächsten Prg.zeile) 

1 A=l: LOAD"Name der Schrift",8,1 (oder ,1,1) 

Aufgerufen wird die Schrift, wie oben angegeben, mit SYS 
50177. Um die Schrift zu stoppen, brauchen Sie nur irgend¬ 
eine Taste zu drücken (außer < RUN/STOP >). Das Pro¬ 
gramm fährt dann mit der Abarbeitung des Programms fort, 
das heißt mit dem ersten Befehl nach dem SYS-Aufruf. 

Es ist au^-" nöglich, selbstgestaltete Zeichensätze in die¬ 
sen Bereich einzublenden und bei der Scroll-Routine zu ver¬ 
wenden. Hierzu müssen Sie vor dem Laden und Aufruf 
des Maschinenprogramms den gewünschten Zeichensatz in 
den Bereich ab $C000 laden und die Routine nicht mit SYS 
50177, sondern mit SYS 50241 aktivieren. Bei diesem Ein¬ 
sprung wird der Original-Zeichensatz nicht zuvor ins RAM ab 
$C000 kopiert, der geänderte Zeichensatz würde andern¬ 
falls überschrieben. (Ralf Winkler/nj) 


10 XF A=1 THEN 90 <072> 
20 A=1:LOAD "MESS C.OBJ",8,1 <143> 
90 ART=50513 <084> 
95 DIM Z*<100) <120> 
100 POKE 53280,0!POKE 532B1.0 <22B> 
110 PRINT CHR*<147);CHR*<14> <06B> 
120 PRINT TAB (13) " CREDJÜ £ S. £ fl fi £ £" <154> 
130 PRINT TAB < 13) <066> 
140 PRINT <242> 
150 PRINT " {6REEN,6SPACE>WRITTEN 1986 BY R 

ALF WINKLER" <234> 
160 PRINT <006> 
170 FÜR A=1 TO 40s PRINT" — “;:NEXT <236> 
180 PRINT <026> 
190 PRINT “SIEBESC2SPACE>£R0GRAMM ERSTELLT 

EINE C2SPACE JGROSSE" <159> 
200 PRINT "UND FLACKERFREIE<2SPACE>±AUFSCH 

RIFT, DIE MAN" <035> 
210 PRINT "PROBLEMLOS IN EIBENE ÜROGRAMME 

EINBAU-" <241> 
220 PRINT "EN KANN." <149> 
230 PRINT <076> 
240 PRINT "CWHITElflENU :{GREEN>"; <237> 
250 PRINT TAB(10)" -1- £1NGABE DES IEXTES" <191> 
260 PRINT TAB(11)"-2- ANSEHEN DER SCHRIFT“ <163> 


Listing 1. Editor des Laufschriftgenerators. 

Bitte beachten Sie die Eingabehinweise auf Seite 61. 
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C 64 


270 PRINT TAB(11)"-3- 2EXT VERBESSERN" 

2S0 PRINT TAB (11) "-4- .HEUER £HARACTER" 

290 PRINT TAB(11)"—5— ERZEUGE fiBJECTCODE" 
295 PRINT TAB(15)“AUF DISKETTE" 

315 PRINT TAB(11)"-6— £XIT UESSAGES" 

320 GET A*sIF A*="" TUEN 320 
330 A=VAL(A*)sIF A<1 OR A>6 THEN 320 
340 ON A GGSUB 400,1000,1500,1100,1200,140 
0 

350 GOTO 100 
390 s 

400 REM - EINGABE DES TEXTES - 

410 s 

420 PRINT CHR*(147) s 1=0 ! Z*(I>»"" 

430 PRINT "CREDJSCHTUNG !CGREEN,SPACE>JUR 
XEXT DARF HOECHSTENB " 

440 PRINT "ZWEITAUSENDSIEBENHUNDERTSECHSUN 
D-" 

450 PRINT "DREISSIG (2736) REICHEN LANG SE 
IN ! " 

452 PRINT 

455 PRINT "EINGABEENDE MIT .KE_TU.HK " 

460 PRINT 

470 PRINT "0CLEFT>"j 

4B0 GET X*:IF X*="" THEN 400 

490 X=ASC(X*) 

495 IF X=13 THEN 700 

500 IF X=20 THEN 600 

505 IF X=160 THEN X*=" "I GOTO 530 

510 IF X=34 THEN X*=. 

520 IF X<32 OR X>140 AND X<193 THEN 480 

530 PRINT X*"0{LEFT}"j 

540 Z*(I)=Z*(I)+X*sL=L+l 

550 IF LEN(Z*(I))>32 THEN 1=1+1 

560 GOTO 480 

570 : 

600 REM — DELETE — 

605 : 

610 A=LEN(Z$(I)):L=L-2 
620 IF A=0 AND 1=0 THEN GOTO 480 
625 IF A=0 AND I>0 THEN 1=1-1sA=33 
630 Z*(I)=LEFT*(Z*(I>,A-1) 

640 X$="":PRINT CHR*(20); 

650 GOTO 540 
660 ! 

700 REM — RETURN — 

705 : 

710 PRINT : A=0 

720 PRINT "flOMENT BITTE..." 

730 FOR Y=0 TO I 
740 LZ=LEN(Z*(Y>> 

750 FOR X=1 TO LZ 

760 C=ASC(MID*(Z*(Y),X,1)> 

770 IF 0192 THEN C=C-192:G0T0 800 

800 POKE ART+A.C 

810 A=A+1 

900 NEXT X 

910 NEXT Y 

915 POKE ART+A,255 

920 PRINT 

950 RETURN 

960 : 

1000 REM - ANSEHEN DER SCHRIFT - 

1005 i 

1010 PRINT "{HOME}"sFOR A=1 TO 13«PRINTsNE 
XT 

1020 PRINT "IWHITE,SPACE>£RESS ANY KEY TO 
STOP <15SPACE,GREEN >" 

1030 FOR A=1 TO 40sPRINT " "jsNEXT 
1040 SYS 50177 

1045 IF FL=1 THEN PRINT "tCLR>":END 
1050 RETURN 
1060 s 

1100 REM — AENDERN DES CHARACTERS — 

1105 s 
1110 PRINT 

1120 INPUT "HEUER £HARACTER s";A 
1125 IF A<0 THEN POKE 50441,169sPOKE 50440 
,165s GOTO 100 

1130 POKE 50441,AsPOKE 50440,169 
1140 GOTO 100 
1150 i 

1200 REM - SPEICHERN DER SCHRIFT - 

1205 s 
1210 PRINT 

1220 INPUT "HAME DER SCHRIFT "$S* 


< 122 > 

<027> 

< 197> 
<126> 

< 187> 

< 131 > 
<040> 

<124> 

<024> 

< 112 > 

< 140 > 

< 132> 
<060> 

< 191 > 

< 1B4> 

<0B9> 

<044> 

<016> 

<052> 

< 113> 
<009> 

< 164> 
<040> 

< 140> 

< 112 > 

< 146> 

< 13B> 
<083> 
<097 > 

< 169> 

< 132> 
<038> 
<017> 
<073> 

< 157> 

< 186> 
<142> 



< 166> 
<128> 

< 107> 

< 173> 

< 119> 

< 151 > 

< 172> 

< 121 > 
<180> 
<075> 
< 001 > 
< 012 > 

< 127> 
<0B6> 

< 104> 
<007> 
<004> 
<246> 

< 174> 
<006> 
<219> 

<211 > 

<251 > 
<037> 
<204> 
<165> 
<092> 
< 020 > 
<013> 
<065> 

< 196> 
<034> 

< 120 > 
<009> 
<052> 
< 110 > 

< 169> 

< 165> 
<040> 
<046> 


1225 

IF LEN(S*)<1 THEN 1220 


<0B7> 

1230 

OPEN 1,8,1,S$ 


<171 > 

1240 

PRINT#1,CHR*(1> s CHR*(196); 


<1B8> 

1250 

FOR X=50177 TO 50514+L 


<0BB> 

1260 

A=PEEK(X) 


<105> 

1270 

PRINTttl ,CHR* (A); 


<236> 

1280 

NEXT X 


<214> 

1290 

CLOSE 1 


<031 > 

1300 

RETURN 


<088 > 

1310 

1 


<016> 

1400 

REM-BYE- 


< 152> 

1405 

: 


< 1 11 > 

1410 

I=0sZ*(I>=""E A=0 


<209> 

1415 

Z*(I) = "ALa HßAJl. . . I5SPACE)" 


<033> 

1420 

BOSUB 730 


< 190> 

1430 

FL=1s GOTO 1000 


< 144> 

1440 

1 


< 146> 

1500 

REM - TEXT VERBESSERN - 


<255> 

1505 

s 


<211 > 

1510 

PRINT CHR$(147)|"IREDIÄ-AETTERN MIT + 



/- , SENDERN MIT £1" 


<106> 

1520 

PRINT "ZURUECK MIT £7 !{GREEN>" 


< 175> 

1550 

Y = 0 


<023> 

1555 

FOR A=1 TO 40sPRINT" "5sNEXTsPRINT"<2 



UP>" 


<020> 

1560 

PRINT Z*(Y> 


< 141 > 

1570 

GET X*sIF X$=“" THEN 1570 


<231 > 

1580 

IF X*="+" THEN Y=Y+1sIF Y>I THEN 

Y=I 

<221 > 

1590 

IF X*="-" THEN Y=Y—1sIF Y<0 THEN 

Y=0 

<1B7> 

1600 

IF X*="<F1>" THEN 1700 


<021 > 

1605 

IF X*="<F7>" THEN 100 


<094> 

1610 

PRINT "<HOME,2D0WN>";s GOTO 1555 


<025> 

1700 

PRINT 


<022> 

1710 

PRINT TAB(3)Z*(Y) 


< 1B7> 

1720 

PRINT "<2UP>HEUER IEXT s" 


<092> 

1722 

PRINT "{2SPACE>";CHR#(34) 


<010> 

1725 

POKE 632,ASC("<RIGHT >")s POKE 198 

2 

<240> 

1730 

INPUT "<UP>";Z*(Y) 


< 111 > 

1740 

GOSUB 710 


<224> 

1750 

RETURN 


<02B> 

Listlni 
zur Ei 

a 1. Laufschriftgenerator für den C64. Verwenden Sie 

7S:.be den Checksummer auf Seite 61. 




Name : mess c.obj c401 c543 


c401 

: 

78 

a5 

01 

29 

fb 

85 

01 

a9 

f 5 

c409 

: 

00 

85 

5-f 

a9 

dO 

85 

60 

a9 

e7 

c411 

i 

01 

B5 

5a 

85 

58 

a9 

d2 

85 

45 

c419 

i 

5b 

a9 

c 2 

85 

59 

20 

bf 

a3 

87 

c421 

: 

a9 

00 

85 

5f 

a9 

dB 

85 

60 

50 

c429 

i 

a9 

01 

85 

5a 

85 

58 

a9 

da 

77 

c431 

s 

85 

5b 

a9 

c4 

B5 

59 

20 

bf 

Sa 

c439 

: 

a3 

a5 

01 

09 

04 

85 

01 

58 

31 

c441 

s 

a9 

00 

85 

a5 

B5 

a7 

a9 

c5 

c8 

c449 


85 

a4 

a9 

cO 

85 

a6 

a9 

50 

78 

C451 

: 

85 

a3 

a9 

BO 

85 

aB 

a9 

20 

a7 

c459 

X 

85 

a9 

a9 

00 

8d 

77 

02 

ad 

15 

c46l 

X 

16 

dO 

09 

07 

Bd 

16 

dO 

ad 

2b 

c469 

X 

12 

dO 

c9 

76 

10 

f 9 

ad 

16 

dB 

c471 

8 

dO 

29 

07 

dO 

18 

20 

9f 

c4 

3c 

c479 

X 

ad 

77 

02 

dO 

03 

4c 

68 

c4 

3a 

C4B1 

8 

a 9 

c8 

8d 

16 

dO 

a9 

00 

Bd 

2 a 

c409 

1 

77 

02 

85 

c6 

60 

ea 

CO 

16 

00 

C491 

I 

dO 

a2 

15 

aO 

08 

80 

dO 

fd 

10 

c499 

X 

ca 

dO 

f8 

4c 

68 

c4 

ea 

aO 

2d 

c4al 

1 

01 

a9 

aB 

85 

aa 

a9 

06 

85 

6d 

c4a9 

8 

ab 

ad 

12 

dO 

c9 

55 

10 

f 9 

45 

c4bl 

: 

bl 

aa 

88 

91 

aa 

cB 

c8 

cO 

al 

c4b9 

8 

28 

dO 

f 5 

20 

e3 

c4 

a9 

00 

d6 

c4c 1 

i 

BS 

a5 

a9 

cO 

85 

a6 

aO 

01 

ad 

c4c9 

8 

a5 

aa 

18 

69 

28 

85 

aa 

90 

71 

c4dl 

8 

02 

e6 

ab 

a5 

aa 

c9 

eS 

dO 

24 

c4d9 

X 

d7 

ad 

16 

dO 

09 

07 

Bd 

16 

52 

c4el 

1 

dO 

60 

ea 

18 

a5 

a9 

85 

aS 

a8 

c4b9 

X 

06 

a5 

06 

a5 

90 

05 

e6 

a6 

12 

c4f 1 

X 

e6 

a6 

18 

06 

a5 

90 

02 

b6 

a6 

C4f9 

I 

a6 

a5 

a7 

aB 

bl 

a5 

25 

aB 

9f 

c501 

X 

dO 

05 

a9 

20 

4c 

Oa 

c5 

a9 

42 

c509 

8 

7B 

aO 

27 

91 

aa 

aS 

a7 

c9 

d7 

c511 

X 

07 

dO 

lD 

a9 

00 

85 

a7 

46 

94 

c519 

8 

a8 

bO 

01 

60 

a9 

80 

85 

aB 

6c 

c521 

X 

e6 

a3 

dO 

02 

e6 

a4 

aO 

00 

63 

c529 

X 

bl 

a3 

c9 

ff 

fO 

06 

05 

a9 

c7 

c531 

X 

60 

e6 

a7 

60 

a9 

50 

B5 

a3 

75 

c539 

8 

a9 

c5 

85 

a4 

a9 

20 

4c 

2f 

e6 

c541 

X 

cS 

57 

ff 

00 

ff 

00 

ff 

00 

b2 


Llsting 2. Maschinenprogramm zum Laufschriftgenerator. 
Bitte verwenden Sie für die Eingabe den MSE auf Seite 62. 
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COMPUTERMOBEL 


Des Computers neue Kleider 


Sind Ihnen Computermöbel aus dem Geschäft 
nicht individuell genug? Wenn Sie einen Compu¬ 
tertisch haben wollen, der genau Ihren Ansprü¬ 
chen gerecht wird, hilft meist nur eines: Selbst¬ 
bau. Hier geben wir Ihnen Konstruktionsideen 
und Tips. 

B illig sind sie nicht: Die professionellen Computermöbel. 
Durch den Selbstbau läßt sich hier Abhilfe schaffen. So 
kann mit wenig Aufwand den Beschwerden der Mit¬ 
bewohner über den Computer auf dem Wohnzimmertisch 
aus dem Weg gegangen werden. Aus den hier gezeigten Bei¬ 
spielen lassen sich viele neue Anregungen für einen Eigen¬ 
bau ziehen. Auf unseren Aufruf im 64’er-Magazin, Ausgabe 
6/86, bekamen wir viele Einsendungen, die oftmals verblüf¬ 
fende Lösungen aufzeigen. Oft genug waren die Redakteure 
mehr als überrascht beim Sichten des eingesandten Mate¬ 
rials. Im Vergleich zu den Fertigprodukten aus Möbelgeschäf¬ 
ten sind die vorgestellten Lösungen durch das Selbstbau¬ 
prinzip natürlich wesentlich individueller gestaltet. Wichtig ist 



auch, sich bei den gezeigten Beispielen den Aufbau unter 
dem Stichwort Ergonomie anzusehen. Es stellt sich oftmals 
die Frage, ob es sich an einer noch so passend zur Einrich¬ 
tung eines Zimmers gebauten Computeranlage gerne arbei¬ 
ten läßt, wenn diese dem Benutzer kaum Bewegungsfreiheit 
gibt. Entspanntes Sitzen, genügend Beinfreiheit und Zu¬ 
gänglichkeit der Anlage müssen somit auch beachtet wer¬ 
den. Lassen Sie sich überraschen, wie unsere Leser diese 
Probleme gelöst haben. 

Selbst ist der Freak 


Man kann die Computeranlage auf kleinstmöglichem Raum 
und dazu noch besonders transportabel gestalten (Bild 1). 
Josef Gebharts Lösung ist auf den C64 zugeschnitten und 



Bild 1. Computer-Rack, platzsparend und transportabel. 


Bild 3. Rollbare Konsole mit versenkter Tastatur. 
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wurde besonders massiv konstruiert. Die gesamte Einheit ist 
mit schwenkbarer Monitorplatte und in der Neigung verstell¬ 
barer Tastatur ausgestattet und durch vier versenkte Gleitrol¬ 
len beweglich gehalten. Ein freier Stellplatz für das zweite 
Floppylaufwerk ist vorhanden. Auf Grund der Zusammenfüh¬ 
rung der Kabel benötigt man nur ein Netzanschlußkabel zur 
Stromversorgung. Die Verkabelung ist durch einen abnehm¬ 
baren Deckel voll zugänglich, auch die Rückseite ist frei für 
eventuelle Erweiterungen am Computer. Als Material wurden 
Metallprofile und kunststoffbeschichtete 28-mm-Span- 
platten verwendet. Der Preis beträgt zirka 200 Mark. 

Und eine weitere sehr kompakte Ausführung wollen wir 
Ihnen nicht vorenthalten. Eingesandt hat diese Idee zu einem 
kompletten Rack Lex Hoge (Bild 2). Er brauchte dazu laut 
eigenen Angaben nur Material im Wert von ungefähr 40 Mark: 
Holz von 8 oder 10mm Stärke, welches dann genagelt und 
mit Leim geklebt wird. Sehr praktisch sind natürlich auch die 
Tragegriffe zum einfacheren Transport, sowie die praktischen 
Füllerhalter an der Seite. 

Diese beiden bisher gezeigten Beispiele von sehr kompakt 
und transportabel gehaltenen Möbeln bieten den Vorteil, daß 
man sie notfalls sogar ganz aus den jeweiligen Räumlichkei¬ 
ten verbannen kann. Sollte also ganz überraschend jemand 
zu Besuch kommen, greift man sich die gesamte Einheit und 
trägt sie später wieder an den gewohnten Platz. 



Bild 4. Der »Konsolenprofi» mit neu eingekleideter Tastatur 
und Integrierter Datasette. 


Die nächsten Beispiele bedeuten schon etwas mehr Arbeit 
und fordern größeres handwerkliches Können vom Hobby- 
Bastler. Das Möbelstück von Christoph Theuring stellt eine 
Mischung aus den schon vorgestellten Entwürfen dar (Bild 
3). Etwas größer angelegt und auch auf Rollen montiert wird 
hier noch eine weitere Eigenschaft geboten, welche man 
unter den Selbstbauern schon bald als Trend bezeichnen 
kann: die fast bündig in die Tischplatte eingelassene Tastatur. 
Ergonomisch spricht gerade beim C64 einiges dafür, die 
Tastatur so anzulegen, weil sonst bei längerem Arbeiten an 
dessen relativ hoch über der Tischplatte gelegenen Arbeits¬ 
feld schnell Ermüdungserscheinungen auftreten. Da sich 
mehrere unserer Leser schon mit diesem Problem auseinan¬ 
dergesetzt haben, kommen gleich noch weitere gute derar¬ 


tige Lösungen. An Material kostete dieses Modell ungefähr 
170 Mark. 

Mit der letzten frei beweglichen Computereinheit möchten 
wir den Einfall von Gerd Langer aus Berlin vorstellen (Bild 4). 
Er stellt sozusagen das Nonplusultra der Kompaktkonsole 
dar. Großer Vorteil ist dabei immer, daß eventuell heraushän¬ 
gende Kabel in die Verkleidung eingepaßt werden können. 
Der Computer wurde nicht nur allgemein tiefer gelegt, son¬ 
dern die obere Abdeckung entfernt und nur die Tastatur ein¬ 
gebaut. Es steckt sichtbar viel Arbeit dahinter, da alle Teile 
aus Sperrholz nicht genagelt, sondern verleimt, rundgeho¬ 
belt, geschliffen und mehrmals lackiert sind. 

Die Einbauprofis 


Mit dem Entwurf von Ulrich Winkler kommen wir nun zu den 
Computermöbeln, die fest in das sie umgebende Mobiliar ein¬ 
gebaut sind (Bild 5). Seine Computerecke mit den vielen Dis¬ 
kettenfächern hat eine ausziehbare Computerauflage. 
Außerdem bietet sie noch Platz für die Ablage einer Zeit- 



Bild 5. Die Computerecke mit vielen Fächern zum Ordnen der 
Disketten. 



Bild 6. Alles verpackt in einem abschließbaren Schrank. So 
bietet sich Platz für Utensilien an. 


Schrift. Besonders praktisch sei dies laut seiner Erläuterung 
für das Abtippen von Leser-Listings aus der 64’er. Er verwen¬ 
dete Spanplatten und kam zu einem Aufwand von 150 bis 
200 Mark. Wie man so etwas in eine Schrankwand einpassen 
kann, zeigt die Anlage von Roland Winkelmeier (Bild 6). Er 


68 


SONDERHEFT 11 





















COMPUTERMOBEL 


baute den ganzen Schrank aus 16mm starkem Sperrholz, 
wovon er zwölf Quadratmeter verbrauchte. Kosten inklusive 
Scharniere und Schalter etwa 540 Mark. 

Schreibtischspiele 


Bei den übrigen Modellen versuchten die Konstrukteure 
besonders, eine Version auf der Grundlage eines normalen 
Schreibtisches zu entwerfen. Michael Tänzer baute für sich 
auf einer solchen Schreibtischbasis eine Konsole mit extra 
Kassetten-, Utensilien- und Druckerpapierfach (Bild 7). Den 
C64 kann man dabei auf seiner gesamten Unterlage hervor¬ 
ziehen. 

Auch in diesem Artikel darf nicht versäumt werden, einige 
gelungene Beispiele von verwandlungsfähigem Computer¬ 
mobiliar zu veröffentlichen. Das erste Möbel zeigt sich vorher 
als ein aufgeräumt wirkender Schreibtisch, welcher es aber 
in sich hat, wie man auf Bild 8 sieht. Peter Schmelzer konstru¬ 
ierte alles mit 19-mm-Spanplatten und einem Materialwert 
von 160 Mark. Beachtenswert ist auch wieder der in die 
Schreibtischplatte eingelassene C64, so wird ermüdungs- 



Bild 7. Aufbau auf Schreibtischgrundlage mit leicht zugäng¬ 
lichem Druckerpapierfach. 
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Bild 8. Vorher ein aufgeräumt wirkender Schreibtisch, 
nachher des Hackers wahre Freude. 

freieres Arbeiten möglich. Ebenfalls interessant ist die 
Anlage von Karlheinz Göttfert (Bild 9). Er machte nur den Ent¬ 
wurf und ließ die Handwerksarbeit von einem Schreiner aus¬ 
führen. Das trieb die Kosten in Höhen von 2500 Mark. Dafür 
nutzt er diese Konstruktion beruflich. 


Um Sie noch etwas mehr zu aktivieren, sich einmal über 
den möglichen Umbau der eigenen Anlage Gedanken zu 
machen, zeigen wir die folgenden zwei Ideen auch als Zeich¬ 
nungen. Egbert Stöbesand brachte dabei gleich den Entwurf 
seines Computerschreibtisches mit einem Zeichenpro¬ 
gramm und Drucker zu Papier (Bild 10 und 11). Dabei erkennt 
man die Einbaustellen für Lautsprecher mit Lautstärkepotis 
sowie Lüfter und verlegte Anschlüsse für Control-Port 1 und 
2 des Computers. 

Eine andere Möglichkeit, auf diese Weise mehrere Geräte 
zusammenzuschließen, präsentierte uns Kurt Kämpf (Bild 12 
und 13). Sein Floppylaufwerk ist komplett in ein größeres 
separates Gehäuse eingebaut, um Überhitzungsproblemen 
aus dem Weg zu gehen. Außerdem ist noch ein kompletter 
EPROM-Brenner an der Konsolenvorderseite eingebaut. Es 
ist schon erstaunlich, was hier für zirka 200 Mark erreicht 
wurde. 

Als originellste Idee zum Abschluß bringen wir nun wie 
oben angekündigt, die Einsendung von Rolf Dieter Schulte 
(Bild 14). Seine Konstruktion ist zusammengeklappt ein kom¬ 
plett tragbares Möbelstück, mit oben angebrachtem Trage¬ 
griff. Beachten Sie die Floppylaufwerksöffnung an der Seite. 
Zusammengeklappt kann man damit leicht von einem Raum 
in den anderen umziehen. 

Überlegen Sie sich vielleicht selbst einmal, wie die eigene 
Computeranlage besser in die vorhandene Einrichtung inte¬ 
griert werden kann. 

In den hier veröffentlichten Entwürfen stecken wirklich eine 
Menge origineller Ideen, die sich gut für einen Eigenbau ver¬ 
wenden lassen. Jeder muß natürlich entsprechend seinem 
eigenen Platzbedarf und nicht zuletzt auch unter finanziellen 
Gesichtspunkten beurteilen, was sich zu Hause realisieren 
läßt. 

UnbestraiLar bleibt allerdings, daß es auf Dauer nicht 
damit getan ist, sich einfach einen Computer zu kaufen und 



Bild 9. Die professionellste Ausführung wurde von einem 
Schreiner nach einem Leserentwurf angefertigt. 


diesen dann irgendwo in ein Zimmer zu stellen. Man merkt 
beim Arbeiten am Computer sehr bald, daß es viel mehr Spaß 
macht an einer Anlage zu sitzen, an der man alles um sich 
herum greifbar hat. Außerdem macht es auch optisch viel¬ 
mehr her, wenn man den Computer mit entsprechender Peri¬ 
pherie als kompakte Einheit präsentiert. 

Als reiner Nebeneffekt einer solchen Installation, den man 
jedoch nicht unterschätzen sollte, verschwindet endlich das 
Kabelgewirr und niemand stolpert mehr darüber. Gerade 
beim C 64 nimmt dies ja bekanntermaßen bei Zentraleinheit, 
Monitor, Drucker und zwei Floppy-Laufwerken sowie zwei 
Joysticks gigantische Ausmaße an. Aber auch andere Uten¬ 
silien wie Druckerpapier, Disketten, Anleitungen, Handbü¬ 
cher und andere Computerliteratur kann man so platzsparend 
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Bild 10. Auf dem Plan zu diesem großräumigen und daher recht komfortablen Computerschreibtisch lassen sich schon einige 
Feinheiten erkennen und für einen Selbstbau verwenden. 



Bild 11. Der Computerschreibtisch von Bild 10 In natura. Aus 
dem Schreibtisch heraus bietet sich sogar die Möglichkeit, 
Stereosound zu genießen. 


verstauen und immer griffbereit halten. Die hier gezeigten 
Beispiele sollten Sie als Anregungen verstehen, selber ein¬ 
mal den eigenen Computeraufbau zu überdenken und even¬ 
tuell einen neuen Entwurf zu machen. Wenn sich dies auch 
alles noch mit Ihrem eigenen Computer planen läßt, um es 
dann auch zu realisieren, müssen Sie wohl oder übel für eine 
Weile von der Computertastatur weichen. Aber seien Sie sich 
gewiß, die Anstrengung lohnt sich bestimmt. Damit die ge¬ 
plagten Mitbewohner auch endlich wieder einmal Platz auf 
dem Wohnzimmertisch bekommen. 

Wir möchten uns last not least bei allen Einsendern herzlich 
bedanken. Seien Sie nicht enttäuscht, wenn Ihr Vorschlag 
nicht veröffentlicht wurde. Das heißt nicht, daß er schlechter 


war. Wii . ollten jedoch einen Querschnitt durch die einge¬ 
sandten Beiträge zeigen und hoffen, daß er Ihnen gefallen 
hat. (jk) 



Bild 14. Gute Handwerksarbeit mit ausziehbarer Tastatur und 
Drucker. Computer und Peripherie läßt sich komplett im Ge¬ 
häuse versenken, so daß dann nichts mehr davon sichtbar ist. 
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Bild 12. Der Freak braucht den EPROM-Brenner greifbar. Auch 
Netzteilschalter, Control-Ports und Modulschächte sind frei 
zugänglich angelegt. 



Bild 13. Fast schon eine komplette Bauanleitung für die 
Anlage von Bild 12. Ausgehend von den Maßen, kann man 
sofort mit dem Nachbau beginnen. 
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Dem Klang auf der Spur 


Darauf haben viele gewartet: Einen kompletten, 
umfassenden Kurs über die Musikprogrammie¬ 
rung des C 64! Angefangen bei der Erklärung der 
Arbeitsweise eines professionellen Synthesizers 
bis hin zur Erarbeitung eines hervorragenden Pro¬ 
gramms finden Sie alles Wissenswerte, um den 
Soundchip des C64 zu beherrschen. 

D er Komplex Mathematik/Informatik und die Musik haben 
sich lange genug als zwei getrennte Welten gegen¬ 
übergestanden. In den letzten Jahren hat man erkannt, 
daß Computerprogramme, die von anderen Leuten benutzt 
werden als von denen, die sie geschrieben haben, möglichst 
viele Sinne und Bereiche des Gehirns ansprechen müssen, 
um Erfolg zu haben. Schlagwörter wie Benutzerfreundlich¬ 
keit, Software-Ergonomie und gehirngerechte Programme 
sind in diesem Zusammenhang aufgetaucht. Ästhetische 
Gesichtspunkte setzen sich in der Computertechnik mehr 
und mehr durch. 

Die Musik bedient sich seit der Erfindung des Phonogra¬ 
phen mehr und mehr der Technik, besonders der Elektronik, 
die auch die technische Grundlage für Computer darstellt. 
Und obwohl die Welten noch getrennt sind, gibt es eine 
Menge Analogien zwischen Informatik und Musik: Musiker 
und Informatiker wirken beide gestaltend. Beide schreiben 
ihre Werke in einer abstrakten Sprache nieder. Die Werke 
erwachen erst durch eine Interpretation zum Leben und ver¬ 
mögen uns dann zu faszinieren. Was dem Musiker sein 
Instrument ist, ist für den Informatiker der Computer. Sowohl 
in der Informatik als auch in der Musik gab und gibt es Tenden¬ 
zen, universelle Instrumente, die möglichst alles können sol¬ 
len, zu schaffen. In der Musik zeugen die gewaltigen Kirchen¬ 


orgeln und die Orchestrions des vorigen Jahrhunderts von 
diesen Bemühungen. Programmgesteuerte Rechner waren 
schon bald nach ihrer Erfindung mehr als nur Rechenmaschi¬ 
nen. Die technische Annäherung der beiden Bereiche ist 
heute schon so weit fortgeschritten, daß, zumindest was 
elektronische Musik anbelangt, es keinen wesentlichen 
Unterschied mehr zwischen Computern und Musikinstru¬ 
menten gibt. Mit Computern kann man heute nicht nur Noten 
editieren und Partituren plotten lassen, sondern Musik direkt 
auf vielfältige Weise wiedergeben. Ein moderner Synthesizer 
kann heute nicht nur typisch »elektronische« Klänge erzeu¬ 
gen, sondern auch lebendige Naturklänge bis hin zur 
menschlichen Stimme. Und bei genauerer Betrachtung 
erweist er sich als ein Computer, der mit einigen Sonderbau¬ 
teilen und einem besonderen Betriebssystem auf seine Auf¬ 
gabe spezialisiert wurde. 

Der Musiker (zumindest der Studiomusiker) kommt also 
heute nicht darum herum, sich auch mit der Computertechnik 
zu befassen, während der Computerspezialist eher spiele¬ 
risch mit der Musik, die sein Computer so nebenbei bietet, 
konfrontiert wird. 

Man kann wagen zu hoffen, daß der künstlerische und der 
wissenschaftliche Typ im Universalinstrument Computer 
einen Ort der Begegnung finden werden. Dieser könnte 
ihnen die Welt des jeweiligen anderen Charakters, der in viel¬ 
leicht vernachlässigter Form auch in einer eigenen Gehirn¬ 
hälfte schlummert, auf vertrautem Boden eröffnen. 

Dieser Artikel soll hauptsächlich dem Computeranwender, 
der schon einige Programmiererfahrung hat, zeigen, wie man 
die Musikfähigkeiten des C64 gezielt einsetzen kann. Doch 
sollen auch die Musiker, die genügend Aufgeschlossenheit 
gegenüber der neuen Technik mitbringen, nicht zu kurz 
kommen. 
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Um die Wirkungsweise elektronischer Musikinstrumente zu 
verstehen und um Musik einer Bearbeitung mit dem Compu¬ 
ter zugänglich zu machen, müssen wir akustische Ereignisse 
(also Töne) mit Mitteln der Physik und der Mathematik be¬ 
schreiben. Wenn auch unsere Sprache eine sehr technische 
ist, werden wir doch so oft wie möglich den Bezug zur traditio¬ 
nellen Sprache der Musik herstellen. Da wir stilistisch zu¬ 
nächst keine experimentelle Musik machen, sondern Musik 
im traditionellen Stil mit dem Computer realisieren wollen, ist 
dies sogar unumgänglich. 

Die Grundlagen 


Musik nicht mehr als Schwankungen des Schalldrucks? 

Auslösend für eine Wahrnehmung des Gehörs ist ein sich 
schnell verändernder Schalldruck. Treten diese Veränderun¬ 
gen periodisch, das heißt zeitlich regelmäßig auf, so nimmt 
das Gehör einen Ton oder einen Klang wahr, andernfalls ein 
Geräusch. Trägt man den sich verändernden Schalldruck 
nach oben gegen eine rechtsgerichtete Zeitachse auf, erhält 
man einen für das akustische Geschehen charakteristischen 
Kurvenzug (Bild 1). Bei Tönen und Klängen, die einen periodi¬ 
schen Kurvenverlauf haben, genügt zur vollständigen 
Beschreibung die Angabe einer einzelnen Periode. Diese 
Beschreibungsart nennt man »Darstellung im Zeitbereich«, 
da sich aus ihr zu jedem Zeitpunkt die zugehörige Amplitude 
ablesen läßt. Diese Beschreibungsart erscheint - technisch 
gesehen - zunächst als die natürlichste, zumal bereits seit 
langem existierende Geräte wie Plattenspieler und Tonband¬ 
gerät getreue Abbilder solcher Kurvenzüge in Form von Rillen 
beziehungsweise einer magnetisierten Schicht verwenden. 
Die Beschreibung im Zeitbereich entspricht aber nicht der 
Arbeitsweise des Gehörs. Das Ohr ist kein Mikrofon, das nur 
Kurvenzüge an das Gehirn weitergibt. Dem Gehör und auch 
den meisten elektronischen Musikinstrumenten entspricht 
besser die »Beschreibung im Frequenzbereich«. 

Beschreibung im Frequenzbereich - Fourier-Reihen 

Wir betrachten zunächst periodische Kurvenzüge, weil 
diese als Töne und Klänge die Hauptrolle in der Musik spie- 





Bild 2. Charakterisierung eines periodischen Kurvenverlaufs 


len. Um einen periodischen Kurvenzug zu beschreiben, 
genügt es eigentlich, seine Frequenz, das heißt die Anzahl 
der Perioden, die pro Sekunde wiederkehren, seine Ampli¬ 
tude, also den Wert des maximalen Ausschlags des Kurven¬ 
zuges nach oben und nach unten und die Kurvenform zu ken¬ 
nen (Bild 2). Frequenz und Amplitude lassen sich leicht durch 
Zahlen ausdrücken. Da Frequenz und Amplitude für 
Tonhöhen- und Lautstärkeempfinden verantwortlich sind, hat 
man hier schon zwei musikalisch wichtige Parameter erfaßt. 
Die Kurvenform, die für den Klangcharakter verantwortlich 
ist, karir, . .ian allerdings nicht so einfach beschreiben. Es gibt 
aber einige einfache spezielle Kurvenformen, die sowohl theo¬ 
retisch als auch musikalisch eine besondere Rolle spielen: 

Die Sinus-, Rechteck-, Sägezahn- und Dreieckkurve 

Diese Kurvenformen lassen sich mathematisch und gra¬ 
fisch einfach darstellen und auch technisch mit vertretbarem 
Aufwand mit einer Schaltung erzeugen. Der Sinus-Funktion 
kommt aber noch eine besondere Bedeutung zu. Akustisch 
wird der Sinuston, den kein natürliches Instrument erzeugen 
kann, als dumpf, undifferenziert und ohne ausgeprägten Cha¬ 
rakter empfunden. Den Sinuston kann man sich als das ein¬ 
fachste mögliche akustische Ereignis vorstellen, aus dem 
man sich alle anderen Klänge mit periodischem Kurvenzug 
zusammengesetzt denken kann. Diese Betrachtungsweise 
läßt sich mathematisch durch die sogenannte »Entwicklung 
in Fourier-Reihen« rechtfertigen: Gehen wir von einer periodi¬ 
schen und stetigen Funktion aus. Stetig bedeutet anschau¬ 
lich, daß der Kurvenzug keine Sprünge macht beziehungs¬ 
weise, daß er sich in einem Zug zeichnen läßt ohne daß man 
den Zeichenstift absetzen muß. Die ideale Rechteck- und 
Sägezahnfunktion ist nicht stetig. Die Sprungstellen sind 
aber bei den realen elektroakustischen Kurven nur mehr oder 
wenig steile Flanken. Eine solche Funktion kann man nun als 
Summe von geeigneten Sinus- und Cosinus-Funktionen 
schreiben (Bild 3). 

Diese Summen bestehen im allgemeinen aus unendlich 
vielen Summanden. Eine solche Summe nennt man in der 
Mathematik eine Reihe. Die Fourier-Reihen bestehen aus 
Sinus- und Cosinus-Funktionen mit Frequenzen, die immer 
nur ganzzahlige Vielfache der Grundfrequenz betragen. 
Andere Frequenzen treten nicht auf. Die erste Komponente 
der Reihe nennt man auch Grundton, die weiteren Obertöne. 
An der unendlichen Anzahl der Summanden darf man sich 
nicht stoßen; eine solche Summe ist nämlich so zu verste¬ 
hen: Betrachtet man nur eine Teilsumme, zum Beispiel mit 
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Bild 3. 
Annäherung einer 
Rechteckskurve 
durch Fourler- 
Teilsummen. Die 
Annäherung geht bis 
zum Oberton der 
Ordnung 9 


allen Summanden bis zur fünffachen Grundfrequenz, so 
erhält man eine Funktion, die zwar nicht exakt die darzustel¬ 
lende Funktion ist, die sie aber bestmöglich annähert (so gut 
das mit fünf Sinus- und Cosinus-Funktionen eben möglich 
ist). Nimmt man weitere Obertöne hinzu, zum Beispiel noch 
den sechsten und den siebten Oberton, dann wird die Annä¬ 
herung besser. Es ist durch Hinzunahme von immer mehr 
Obertönen in die endliche Summe möglich, die Originalkur¬ 
venform beliebig genau anzunähern, wobei Obertöne mit 
wachsender Frequenz anteilmäßig beliebig klein werden. Nur 
unter diesen Umständen darf man in der Mathematik von 
einer unendlichen Summe (= Reihe) sprechen. Diese Um¬ 
stände sind aber bei den Fourier-Reihen durch die Theorie 
gesichert. 

Beschreibung Im Frequenzbereich - das Spektrum 

Eine Fourier-Reihe wird bereits allein durch die Angabe 
ihrer Koeffizienten vollständig beschrieben. Die Koeffizien¬ 
ten sind die Zahlen, die angeben, wie stark die einzelnen 
Grund- und Obertonanteile vertreten sind. Die Folge dieser 
Koeffizienten nennt man das Spektrum der dargestellten 
Kurvenform. Diese Koeffizienten beschreiben einen Klang 
genauso vollständig wie die der Kurve zugrundeliegende 
Funktion. Eine anschauliche Darstellung des Spektrums 
erhält man, wenn man auf einer waagrechten Achse in gleich¬ 
mäßigen Abständen die Frequenzen des Grundtones und 
der Obertöne kennzeichnet und darauf Balken errichtet, 
deren Höhe den Koeffizientenwerten entspricht. 

Die Fourier-Reihe beziehungsweise das Spektrum eines 
Klanges nennt man auch »Beschreibung im Frequenzbe¬ 
reich«. Die beiden vorgestellten Darstellungsarten von Klän¬ 
gen sind gleichwertige Beschreibungen ein und derselben 
Sache und lassen sich ineinander umrechnen (Bild 4). 

Wie das Gehör arbeitet 

Unter Gehör wollen wir das Ohr zusammen mit dem Teil des 
Gehirns verstehen, der für die Verarbeitung von akustischen 
Reizen zuständig ist. Dem Gehör wird nun die spektrale 
Sichtweise von Klängen weitaus besser gerecht als die 
Sichtweise von Kurvenformen. Der schallverarbeitende Teil 



des Innenohres (Schnecke mit Basilarmembran und dem 
Cortischen Organ) zerlegt in der Tat die eintreffenden 
Schwingungen in ihre spektralen Bestandteile und leitet 
diese ein,, sin über zirka 30 000 Nervenfasern an das Gehirn 
weiter. Das Gehirn verarbeitet also Spektren und nicht Kur¬ 
venformen. Es macht einem geschulten Gehör keine Mühe, 
aus einem Orchester einzelne Instrumente herauszuhören. 
Musiker können sogar aus dem Klang eines einzelnen Instru¬ 
ments die Obertöne einzeln für sich hören. Sieht man sich die 
Kurvenform eines Orchesterklanges mit Mikrofon und Oszil¬ 
loskop an, so sieht man nur Chaos, betrachtet man aber das 
Spektrum, so kann man durchaus einzelne Instrumente oder 
Instrumentengruppen wiedererkennen. Die Leistungsfähig¬ 
keit der spektralen Betrachtungsweise wird hier deutlich. Das 
menschliche Gehör kann im Idealfall Frequenzen im Bereich 
von 16 Hz bis 20000 Hz wahrnehmen. Man kann daher bei 
Spektren Obertöne über 20000 Hz unberücksichtigt las¬ 
sen. Ein Beispiel: Ein Sinuston und ein Sägezahnklang, beide 
von 400 Hz, klingen sehr unterschiedlich. Während der 
Sägezahn ein reichhaltiges Obertonspektrum besitzt, 
besteht der Sinus nur aus einem Grundton. Der Sägezahn 
klingt daher auch hell und scharf, während der Sinuston als 
weich und dumpf empfunden wird. Beträgt die Grundfre¬ 
quenz der beiden Kurven aber zum Beispiel 16000 Hz, so 
kann man keinen Unterschied mehr hören, weil bereits der 
erste Oberton des Sägezahns mit 32000 Hz weit jenseits 
der Hörgrenze liegt. 

Der Ton macht die Musik - über hohe und tiefe Töne 

Wenn wir mit elektronischen Mitteln Musik machen wollen, 
müssen wir über Frequenzen genau Bescheid wissen. Das 
Gehör leitet die empfundene Tonhöhe grundsätzlich vom 
Grundton ab, unabhängig vom restlichen Spektrum, das für 
die Klangfarbe verantwortlich ist. Wir müssen uns zunächst 
also nur mit dem Grundton befassen. Eine interessante 
Eigenschaft des Gehörs ist, daß es absolute Tonhöhen 
schlecht, relative aber sehr gut bestimmen kann. Spielt man 
einen beliebigen Ton aus der Stille heraus ohne jede Ver¬ 
gleichsmöglichkeit, so wird sich selbst ein Musiker in der 
Beurteilung der Tonhöhe um bis zu mehreren Halbtönen ver- 
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schätzen (außer den wenigen, die mit einem »absoluten 
Gehör« gesegnet sind). Spielt man aber innerhalb eines 
Musikstücks nur einen Viertel- oder gar einen Achtelton 
falsch, so hört das sogar ein unmusikalischer Laie. 

Das Gehör kann also Frequenzabstände gut beurteilen, 
arbeitet dabei aber logarithmisch. Das bedeutet, daß der 
empfundene Tonabstand, den man in der Musik als Intervall 
bezeichnet, nicht von der Differenz der Frequenzen abhängt, 
sondern von -ihrem Verhältnis zueinander. 

Ein Beispiel: Drei Töne mit 500 Hz, 1000 Hz und 1500 Hz 
sind jeweils 500 Hz voneinander entfernt. Das Verhältnis von 
Ton 2 zu Ton 1 ist 1000:500 = 2:1, das von Ton 3 zu Ton 2 
aber 1500:1000 = 3:2. Ton 3 und Ton 2 liegen dem Höremp¬ 
finden nach näher beieinander als Ton 2 und Ton 1. Das Ver¬ 
hältnis 2:1 ist musikalisch die Oktave, das Verhältnis 3:2 die 
Quinte. Alle anderen musikalischen sinnvollen Intervalle las¬ 
sen sich durch ähnlich einfache Zahlenverhältnisse charakte¬ 
risieren (Tabelle 1). 


Intervall 

Frequenzverhältnis 

Oktave 

2 : 1 

große Septime 

15 : 8 

kleine Septime 

16 : 9 

große Sexte 

5 : 3 

kleine Sexte = übermäßige Quinte 

8 : 5 

Quinte 

3 : 2 

verminderte Quinte = übermäßige Quarte 

10 : 7 

Quarte 

4 : 3 

große Terz = verminderte Quarte 

5 : 4 

kleine Terz 

6 : 5 

große Sekund (Ganzton) 

9 : 8 

kleine Sekund (Halbton) 

16 : 15 

Tabelle 1. Frequenzverhältnisse der Intervalle 


46R 


Tonsysteme - reine und temperierte Stimmung 

Aus einer Auswahl von theoretisch unendlich vielen Fre¬ 
quenzen zwischen 16 Hz und 20000 Hz beschränkt man 
sich in der Musik immer auf eine Auswahl von Frequenzen, 
eine Skala. In dieser Auswahl kann man eine weitere Eigen¬ 
schaft des Gehörs erkennen: Je einfacher das zahlenmäßige 
Frequenzverhältnis zweier Töne ist, desto mehr scheinen 
diese Töne zueinander zu passen, desto mehr verschmelzen 
sie zu einem Klangbild. Aus diesem Grund spielen in der 
Musik die Intervalle mit den einfachsten Frequenzverhältnis¬ 
sen, die Oktave (2:1), die Quinte (3:2) und die Quarte (4:3) 
die zentrale Rolle. Töne im Oktavabstand werden musiktheo¬ 
retisch nicht einmal als etwas wesentlich Verschiedenes 
angesehen. Die abendländischen Tonskalen werden alle 
dadurch gewonnen, daß man von einem festen Ton ausge¬ 
hend in Quint-, Quart- und Oktavabständen mehr oder weni¬ 
ger neue Töne in die Skala einbezieht. Wenn man sich mit die¬ 
ser Methode um zwölf Quinten nach oben vom Grundton ent¬ 
fernt hat, erhält man einen Ton, der annähernd sieben Okta¬ 
ven vom Grundton entfernt ist. Man erhält also mit mehr als 
elf Quintenschritten nichts wesentlich Neues mehr. Bringt 
man die durch Quintenschritte erhaltenen elf Töne durch 
Oktavverschiebungen in den Bereich einer einzigen Oktave, 
so teilen sie dieses Intervall in zwölf annähernd gleiche kleine 
Teilintervalle, die sogenannten Halbtöne, auf. Aus diesem 
Grund wird in der Musik, die wir betrachten, fast ausschließ¬ 
lich diese zwölfstufige Skala oder eine Teilmenge von ihr ver¬ 
wendet. Die zwölf Halbtöne dieser sogenannten »rein ge¬ 
stimmten« Skala haben, wie schon erwähnt, nicht exakt den 
gleichen Abstand voneinander. Wenn man eine Melodie 
transponiert, das heißt jeden Ton um das gleiche Intervall ver¬ 
schiebt, und dabei nur die zwölf schon vorhandenen Halb¬ 
töne verwendet, erhält man eine Melodie, die, abgesehen 
davon, daß sie jetzt höher oder tiefer erklingt, auch einen 
etwas anderen harmonischen Charakter hat. Dieses Problem 


Eine periodische Funktion f kann man als FOURIER-Reihe 
schreiben: 

oo 

( 1 ) f(t) = —— + £ (a K cos(kwt)+b k sin(kwt)) 

2 K = 1 

Dabei ist: 

u die sogenannte Kreisfrequenz = 2irf 0 

f 0 die Grundfrequenz der Schwingung in Hz 

(nicht verwechseln mit der Funktion f) 
t die Zeit 

k der Laufindex, über den summiert wird 

a 0 ,a,,.... FOURIER-Koeffizienten 
b, ,b 2 . FOURIER-Koeffizienten 

Formel (1) beschreibt, wie man bei gegebenen FOURIER- 
Koeffizienten (dem Spektrum) die Funktion f (den Kurvenzug) 
erhält. 

Umgekehrt erhält man aus gegebenem f die FOURIER- 
Koeffizienten durch Berechnung der Integrale (2a) und (2b): 

T 

(2a) a K = -1- !j f(t)cos(kut)dt k=0,1,2... 
o 

T 


(2b) a k 


2 

T 


i 


f(t)sin(kwt)dt 


k=1,2,3.,. 


o 


Dabei ist: 

o>,t,k wie oben 1 

T die Periodendauer T =-- 

<o 

Beispiel (ohne Rechnung) Rechteckfunktion 

Zeitbereich 

1 fürt e [2mr,(2n+1M 
" -1 fürt«((2n-1)ir,2nir[ 

KU 


Frequenzbereich 

a o =a,=a 2 = ...=0 



^2 - = b 6 0 


J —L 


B 7 0 11 

Spektrum 


Bild 4. Korrespondenz zwischen 
Zeit- und Frequenzbereich 


hat bereits J.S. Bach erkannt und die sogenannte temperierte 
Stimmung erfunden, welche die Oktave in zwölf mathema¬ 
tisch exakt gleiche Intervalle einteilt. 

Die temperierte Stimmung wird heute fast ausschließlich 
verwendet. Die Berechnung der Frequenzen für ein elektro¬ 
nisches Musikinstrument ist einfach: Ausgehend vom einge¬ 
strichenen a, dessen Frequenz international auf 440 Hz fest¬ 
gelegt ist, erhält man die anderen Frequenzen der anderen 
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Töne der Oktave durch wiederholte Multiplikation mit dem 
Halbtonabstand 12 j/2. Die Frequenzen der Töne anderer 
Oktaven erhält man durch Multiplikation und Division mit 
Zweierpotenzen (Tabelle 2). 


Es gibt sieben mltlalolnlachon Buchalnben banannlo Slammlflno, die sich in allen OKIovon 
wiederholen. Die Naohallbe >la< bedeulel eine Erhöhung um einen Holblon, dlo Nachallbe 
.08* bedeulel eine Erniedrigung um einen Holblon. 

GroB- und Klelnachrolbung der Töne und hooh- und liolgoalolllo Indizes kennzeichnen 
die Zugehörlgkell zu verschiedenen Oktaven. 

Oktave 

Noto 

Frequenz in Hz 

Subkontraoktavo 

C 2 bis H 2 


Kontraoktave 

C, bis H, 


Große Oktave 

C 

66,4004 


CIs 

69,2957 


D 

73,4162 


Dis 

77,7817 


E 

82,4069 


F 

87,3071 


Fis 

92,4986 


G 

97,9989 


Gis 

103,8262 


A 

110,0000 


Ais 

116,5409 


H 

123,4708 

Kleine Oktave 

c 

130,8128 


cis 

138,5913 


d 

146,8324 


dis 

155,5635 


e 

164,8138 


i 

174,6141 


fis 

184,9972 


g 

195,9977 


gis 

207,6524 


a 

220,0000 


ais 

233,0819 


h 

246,9417 

Eingestrichene 

C> 

261,6256 

Oktave 

cis' 

277,1826 


d 1 

293,6648 


dis' 

311,1270 


S 1 

329,6276 


F 

349,2282 


tis 1 

369,9944 


i 1 

391,9954 


gis 1 

415,3047 


? 

440,0000 


äü 1 

466,1638 


h' 

493,8833 

Zweigestrichene 

C 5 

523,2511 

Oktave 

cis" 

654,3053 


d 3 

587,3295 


dis 

622,2540 


e 3 

669,2551 


P 

698,4565 


fü 5 

739,9888 


CF 

783,9909 


gis 2 

830,6094 


ä 3 

880,0000 


als 2 

932,3275 


h z 

987,7666 

Tabelle 2. Frequenzen bei temperierter Stimmung und die 

Namen der Töne 



Bevor wir detailliert auf die Klangerzeugung im C 64 einge- 
hen, wollen wir uns erst einen Überblick über die wichtigsten 
Synthesetechniken in elektronischen Instrumenten ver¬ 
schaffen. 

Additive und subtraktive Synthese in Orgeln 

Der Unterschied zwischen Orgel und Synthesizer ver¬ 
wischt sich durch den zunehmenden Einzug der Digitaltech¬ 
nik mehr und mehr. Hier soll aber noch einmal der Unter¬ 
schied zwischen einer typischen Orgel und einem typischen 
Synthesizer, wie er noch vor einigen Jahren bestanden hat, 
dargestellt werden. 

Q3Q? 


In einer Orgel werden für jede einzelne Taste ein oder meh¬ 
rere Töne zur Verfügung gestellt. Man braucht dazu so viele 
einzelne Tongeneratoren, wie das Instrument Tasten hat. 
Diese Tongeneratoren, die Sinus-, Rechteck- oder Säge¬ 
zahnschwingungen erzeugen können, müssen alle einzeln 
gestimmt werden. Den Aufwand an Generatoren kann man re¬ 
duzieren, wenn man nur die zwölf Töne der obersten Oktave 
erzeugt und die Töne der weiteren Oktaven durch Frequenz¬ 
teilung realisiert. Die hier erforderliche Teilung durch Zweier¬ 
potenzen ist schaltungstechnisch einfach zu lösen. Man 
kann sogar die zwölf Töne der obersten Oktave durch Teilung 
aus einer noch viel höheren Masterfrequenz (im MHz-Be- 
reich) gewinnen. Dadurch wird die Orgel stimmstabil und 
kann als Gesamtheit, nur durch Verändern der Masterfre¬ 
quenz, anderen Instrumenten angepaßt werden. Ein Nachteil 
dieses Teilerkonzepts ist, daß die Oktaven zu genau sind. Da 
Töne im Oktavabstand phasenstarr miteinander gekoppelt 
sind, klingen zwei solche Töne wie nur ein Ton, nur mit einem 
etwas volleren Obertonspektrum. 

Synthesetechniken 


Charakteristisch für eine Orgel ist, daß alle Töne gleichzeitig 
und durchgehend bereitstehen und durch Tastendruck auf 
einen Verstärker durchgeschaltet werden, der sie hörbar 
macht. Dieses Konzept hat den Vorteil, daß beliebig viele 
Töne polyphon, das heißt gleichzeitig gespielt werden kön¬ 
nen. Gehen wir einmal davon aus, daß eine Generatorgruppe 
für alle Tasten Sinustöne zur Verfügung stellt. Dann findet 
man zumindest für die tieferen Töne der Klaviatur neben dem 
Grundton eine ganze Reihe von geeigneten Obertönen aus 
der Generatorgruppe. Diese kann man durch geeignete Ver¬ 
schaltung den Grundtönen zumischen, wobei der Anteil der 
Obertöne einzeln und stufenlos durch sogenannte Zugriegel 
eingestellt werden kann. Benötigt man auch für die hohen 
Töne der Klaviatur noch Obertöne, so muß die Generator¬ 
gruppe mehr Töne erzeugen können, als die Orgel Tasten 
hat. Einen solchen Klangaufbau aus einzelnen Obertönen 
nennt man »Additive Synthese«. 

Filter 

Nun kann die Generatorgruppe einer Orgel oft auch Recht¬ 
eck- oder Sägezahnschwingungen erzeugen, die von sich 
aus schon sehr obertonreich sind. Leitet man diese Schwin¬ 
gungen durch Filter, wird der Obertongehalt abgewandelt: es 
entstehen weitere Klangfarben. Ein Filter ist eine Baugruppe, 
die Signale abhängig von ihrer Frequenz verstärkt oder ab¬ 
schwächt (Bild 5). Ein Filter macht aus einem Sinuston immer 
wieder einen Sinuston, nur mit veränderter Amplitude. 
Andere Signale werden durch ein Filter auch in ihrer Kurven¬ 
form geändert. Man kann sich in Gedanken vorstellen, daß 
ein Filter ein Signal in seine Spektralanteile zerlegt, jeden ein¬ 
zelnen sinusförmigen Anteil frequenzabhängig verstärkt oder 
abschwächt und schließlich diese Anteile wieder zu einer 
neuen Kurvenform zusammenbaut. Da Filter keine neuen 
Obertöne produzieren, sondern nur das Verhältnis von vor¬ 
handenen Obertönen zueinander verändern, spricht man von 
»subtraktiver Synthese«. 

Eine Orgel, wie sie bis hierher beschrieben wurde, klingt 
noch sehr starr und unlebendig. Wenn auch additive Syn¬ 
these und Filterung eine gewisse Variation der Klangfarbe 
zulassen, so ist der Klang trotzdem so unlebendig wie der 
einer Autohupe, die einfach ein- und ausgeschaltet wird. Da 
der zeitliche Lautstärkeverlauf viel vom Charakter eines Klan¬ 
ges ausmacht, kommt man nicht umhin, die Amplitude eines 
Klanges vom Anschlag der Taste bis zum Loslassen dyna¬ 
misch zu beeinflussen. Ein Verstärker, dessen Verstärkung 
im Moment des Anschlags am größten ist und die dann expo- 
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nentiell abklingt, sorgt für einen natürlichen, perkussiven 
Amplitudenverlauf. Den zeitlichen Verlauf der Amplitude 
eines Klanges nennt man seine 

Hüllkurve. 

Man kann bei Orgeln auch nur einzelne Obertöne abklin- 
gen und andere unverändert stehen lassen. Man erhält damit 
einen Klang, dessen Färbung sich im zeitlichen Ablauf 
ändert. Man spricht dann von Klangfarbendynamik. 

Mit Tremolo beziehungsweise Vibrato bezeichnet man 
langsame periodische Änderungen in der Lautstärke bezie¬ 
hungsweise in der Tonhöhe eines Klanges. Beide Effekte las¬ 
sen den Klang voller, natürlicher und wärmer wirken. Ein 
gutes Vibrato erhält man mit rotierenden Lautsprechern. Die¬ 
ser Effekt läßt sich aber auch mit rein elektronischen Mitteln 
realisieren. 

Das klassische Synthesizerkonzept von Moog 

Eine Orgel, wie sie hier vorgestellt wurde, erzeugt trotz aller 
Feinheiten nur Klänge, die durch den Umfang der Generator¬ 
gruppe, durch fest eingestellte Filter und durch die verfügba¬ 
ren Effektschaltungen für Perkussion, Vibrato und Tremolo 
festgelegt sind. 

Der (klassische) Synthesizer dagegen ist ein Instrument, 
das keine festen Klangregister wie die Orgel besitzt. Er setzt 
sich aus Baugruppen zusammen, die unabhängig voneinan¬ 
der die verschiedenen Qualitäten eines Klanges bestimmen, 
wie Tonhöhe, Amplitude und Klangfarbe. Diese Baugruppen 
lassen sich dabei noch dynamisch beeinflussen. Bild 6 zeigt 
ein Schema eines einfachen klassischen Synthesizers. Die 
Funktionsblöcke waren früher physikalisch als Einzelmodule 
gebaut, die sich erst der Anwender zu seinem persönlichen 
Synthesizer zusammengestellt hat. Auch die Verbindungen 
der Blöcke untereinander lagen vollkommen in der Hand des 
Musikers. Das Schema in Bild 6 stellt nur eine Minimalkonfi¬ 
guration mit Standardverkabelung dar. 

Das Manual (Keyboard) schaltet nicht fertige Klänge durch 
wie bei der Orgel, sondern erzeugt lediglich eine Steuer¬ 
spannung (Control Voltage CV), die der Tonhöhe entspricht, 
sowie ein digitales Signal (Gate), das anzeigt, ob eine Taste 
gedrückt ist oder nicht. Standard bei der Steuerspannung ist 
1 Volt pro Oktave beziehungsweise V 1Z Volt pro Halbton. 

Die Steuerspannung steuert das »Herzstück« des Synthe¬ 
sizers, den spannungsgesteuerten Oszillator (Voltage Con- 
trolled Oscillator VCO), der die gängigen Kurvenformen wie 
Sinus, Dreieck, Sägezahn, Rechteck erzeugen kann. Er hat 
im allgemeinen eine exponentielle Steuercharakteristik von 
1 Volt pro Oktave, damit er zum Keyboard paßt. Der VCO hat, 
wie auch die anderen spannungsgesteuerten Baugruppen, 
einen Steuerspannungsaddierer. Damit kann man seine Fre¬ 
quenz über mehrere Eingänge gleichzeitig manipulieren. 

Die Schwingungen des VCO gelangen an ein spannungs¬ 
gesteuertes Filter (Voltage Controlled Filter VCF). Man kann 
einstellen, ob sich das Filter (in der Musik sagt man »das Fil¬ 
ter«) wie ein Hochpaß, ein Tiefpaß, ein Bandpaß oder wie eine 
Bandsperre verhalten soll. Die Filterresonanz ist ebenfalls 
einstellbar. Der wichtigste Filterparameter, die Eckfrequenz, 
ist darüber hinaus auch durch eine Spannung steuerbar. 
Schließt man wie im Bild 6 die CV des Keyboards an das Filter 
mit an, so folgt es mit seiner Eckfrequenz exakt der Frequenz 
des zu filternden Klanges, was ein Festfilter in einer Orgel 
nicht kann. 

Ein spannungsgesteuerter Verstärker (Voltage Controlled 
Amplifier VCA) sorgt schließlich für eine Amplitudenhüllkur¬ 
ve. Die Steuerspannung stammt von einem Hüllkurvengene¬ 
rator (Envelope Generator EG), im Bild 6 EG 2. Dieser er¬ 
zeugt, ausgelöst durch den Gate-Impuls der Tastatur, einen 
der gewünschten Hüllkurve entsprechenden Spannungsver¬ 
lauf. Es ist Standard geworden, Hüllkurven nach dem ADSR- 
Schema mit nur vier Parametern zu charakterisieren: 


Ein Filler verändert das Verhältnis der Obertöne eines Klanges 
zueinander. Filter werden durch ihren Frequenzgang beschrieben. 
Der Frequenzgang ist die Funktion, die das Verhältnis von Aus¬ 
gangs- zu Eingangsamplitude bei Sinustönen, abhängig von der Fre¬ 
quenz, beschreibt. 



Frequenzgang eines Hochpaßfilters mit einer Eckfrequenz (das 
ist die Frequenz, bei der die Filterwirkung von Sperren nach Durch¬ 
lässen übergeht) von zirka 550 Hz. 

Geht man davon aus, daß das Rechtecksignal eine Grundfrequenz 
von 100 Hz besitzt, dann sieht das Spektrum nach Durchlaufen des 
Filters etwa so aus: 



Gebräuchliche Filtertypen sind: 






Beschrieben werden Filter durch: 

Eckfrequenz f 0 (Hoch- und Tiefpaß) 

Mittenfrequenz f m (Bandpaß und Bandsperre) 

Steilheit: Das ist der Grad der Steigung des Frequenzgangs beim 
Übergang zwischen sperrendem und durchlässigem Zustand. 
Resonanz siehe Zeichnung 

Fllterresonanz 

Unter Resonanz versteht man die Verstärkung der Frequenzen 
um die Eck- beziehungsweise Mittenfrequenz. Alle bisher darge¬ 
stellten Filter haben sehr niedrige Resonanz, da sie bei f 0 bezie¬ 
hungsweise f m nicht verstärken, sondern nur mehr oder weniger 
abschwächen. 



Tiefpaß mit niedriger (a), mittlerer (b) und hoher Resonanz (c) 


Bild 5. Das Prinzip der Filter; die verschiedenen Filtertypen 
und Filterresonanz 
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Attack - Anstiegszeit von Null auf Maximalpegel 

Decay - Abklingzeit bei gedrückter Taste auf den Sustain- 

Pegel 

Sustain - Pegel, der sich nach der Attack- und Decay-Phase 
einstellt 

Release - Ausklingzeit nach Loslassen der Taste 

Die Zeiten (A,D und R) sind im allgemeinen im Bereich von 
Millisekunden bis zu mehreren Sekunden einstellbar. Der Su- 
stain-Pegel kann von Null bis zum Maximalpegel variiert 
werden. 

Bei manchen Synthesizern ermöglicht ein weiterer EG (im 
Bild 6 EG 1) eine getrennte Beeinflussung des Filters. Damit 
ist eine Gestaltung der Klangfarbendynamik in weiten Gren¬ 
zen möglich. 

Auch Vibrato und Tremolo werden über eine weitere Steu¬ 
erspannung bewirkt. Ein eigener Oszillator für niedrige Fre¬ 
quenzen von zirka 0,1-20 Hz (Low Frequency Oszillator LFO) 
ist dafür vorgesehen. Schaltet man den LFO auf den VCO, so 
erhält man ein Vibrato, schaltet man ihn auf den VCA, so erhält 
man ein Tremolo. Die Tiefe der LFO-Modulation ist an jeder 
Baugruppe stufenlos einstellbar. Eine bei natürlichen Instru¬ 
menten nicht mögliche Modulation erhält man durch Beein¬ 
flussung des Filters durch den LFO. 

Der Rauschgenerator (Noise-Generator) ist ein wichtiges 
Effektelement jedes Synthesizers. Rauschen wird durch 
modulierbare Filterung erstaunlich vielseitig und lebendig. Im 
Spektrum des theoretisch idealen Rauschens sind alle Fre¬ 
quenzen gleichermaßen vertreten. Einzelne Grund- und 
Obertöne treten nicht auf. Da Rauschen kein periodisches 
Signal ist, kann man keine Fourier-Reihe dafür angeben. Daß 
man dennoch von einem Spektrum reden darf, sichert eine 
erweiterte Theorie, auf die hier nicht näher eingegangen wer¬ 
den soll. Durch Rauschen mit dynamischer Filterung und 
Amplitudenhüllkurve lassen sich fast alle geräuschhaften 
Ereignisse nachbilden. Dies kommt noch mehr den Video¬ 
spielen als der Musik zugute. 

Unser Synthesizerschema kann man durch weitere Bau¬ 
gruppen ergänzen. So ergeben mehrere parallelgeschaltete 
VCOs einen volleren Klang, wenn man sie parallel stimmt, 
oder ermöglichen das Spielen von Akkorden, wenn man sie 
im Abstand musikalischer Intervalle stimmt. Mehrere LFOs 
gestatten reichhaltigere Möglichkeiten zu Modulationen. 

Ein Nachteil soll aber nicht verschwiegen werden: Es kann 
immer nur ein Ton oder Klang gespielt werden. Möchte man 
polyphon spielen, so benötigt man einen Synthesizer, der 
aus so vielen Einzelschaltungen nach Bild 6 besteht, wie man 
maximal Töne gleichzeitig spielen möchte. Weiterhin benötigt 
man ein Keyboard, das mehrere unabhängige CV-Gate-Si- 
gnal-Paare erzeugen kann. Der Schaltungsaufwand dafür ist 
sehr hoch. Man hat ihn aber heute dank fortschreitender Inte¬ 
gration im Griff. So enthält der Soundchip des C 64 immerhin 
einen Synthesizer, der fast dem dreifachen des Standard¬ 
schemas entspricht. 

Digitaltechnik bei Analogsynthesizem 


Die Stärke des (Moog-)Synthesizers ist gerade, daß alle 
wesentlichen Eigenschaften der Module in weiten Grenzen 
einstellbar sind. Um aber eine einmal gefundene Einstellung 
reproduzierbar zu machen, muß man alle wichtigen Einstell¬ 
parameter speichern und bei Bedarf diese gespeicherten 
Werte an den Modulen neu einstellen. Bei den ersten Synthe¬ 
sizern mußte man sich alle Werte aufschreiben und zur 
Reproduktion mühsam oft über hundert Potentiometer ein¬ 
stellen. Heute übernimmt diese Aufgabe weitgehend die Digi¬ 
taltechnik. Es gibt kaum mehr professionelle Analogsynthesi¬ 
zer, die nicht auch einen Mikrocomputer enthalten. Analog 
bedeutet hier, daß die Klangerzeugung weiter nach dem 



a. Attack I Decay 



Sustain 


I Release 



| Taste gedrückt 


R ■*" Zeit 

flaste losgelassen 


Bild 6. Schema eines klassischen Synthesizers, wie er auch 
im SID in dreifacher Ausführung vorkommt. Darunter die 
ADSR-Hüllkurve 


Schema von Bild 6 abläuft, das heißt, daß insbesondere die 
dynamische Steuerung der Module weiter über Steuerspan¬ 
nung erfolgt, die Einstellung von festen Parametern aber von 
einem Mikrocomputer übernommen wird. Dieser speichert 
ganze Parametersätze für verschiedene Sounds in nicht¬ 
flüchtigen Speichern und belegt die Module auf Knopfdruck 
mit einem gewünschten Parametersatz. Der Mikrocomputer 
kann auch ein polyphones Keyboard verwalten. 

Bei weiterem Fortschreiten der Digitalisierung gibt es in 
einem Synthesizer keine Steuerspannungen mehr. VCO, 
VCF und VCA werden dynamisch mit Digitalwerten gesteu¬ 
ert. Sinngemäß spricht man dann auch von DCO, DCF und 
DCA. Die Funktion von LFOs und von Hüllkurvengeneratoren 
kann direkt von einem Mikrocomputer wahrgenommen wer¬ 
den. Dieser muß Folgen von digitalen Werten zur Verfügung 
stellen, die in ihrem zeitlichen Verlauf einer Modulationskurve 
oder einer Hüllkurve entsprechen. Theoretisch sind so zum 
Beispiel beliebige Hüllkurven denkbar, man hält aber mei¬ 
stens an dem bewährten ADSR-Schema fest. 
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Der Soundchip im C 64 entspricht diesem Konzept. Funktio¬ 
nell entspricht er ungefähr dreimal dem Schema nach Bild 6. 
Die Funktionsblöcke werden nicht mit Spannungen oder über 
Drehknöpfe gesteuert, sondern über Digitaldaten, die in 
eigenen Speicherplätzen des Synthesizers, den SID-Regi- 
stern abgelegt werden müssen. Durch Adreßdecodierungs- 
Hardware werden diese Register auf den CPU-Speicherbe- 
reich $D400 - $D41C abgebildet. Der Computer kann allein 
durch Belegung dieser Register mit sinnvollen Werten den 
Synthesizer-Chip steuern. Was dem C64 zu einem vollstän¬ 
digen Synthesizer fehlt, ist ein Keyboard als musikergerechte 
Schnittstelle sowie festeingebaute Software zur Steuerung 
des Soundchips, denn mit dem Soundchip allein kann man 
noch keine Musik machen. 

Das fehlende Keyboard ist nur dann ein Mangel, wenn man 
live auf dem C64 spielen will. Wir werden in diesem Artikel 
sehen, wie man über das alphanumerische Tastenfeld spie¬ 
len kann. Das soll aber nur experimentellen Charakter haben, 
zumal bereits brauchbare Musikerkeyboards samt Software 
auf dem Markt sind. Die Stärke der Wiedergabe vorprogram¬ 
mierter Musikstücke und der Erzeugung von Soundeffekten 
läßt sich vor allem für Spiele einsetzen. Daß es sich bei den 
Programmiertechniken, die dazu noch vorgestellt werden, 
nicht nur um reine Spielerei handelt, zeigt die Tatsache, daß 
mit denselben Techniken auch zeitexaktes Steuern von meh¬ 
reren professionellen Synthesizern über eine MIDI-Schnitt- 
stelle möglich ist. 

Weitere interessante neuere Synthesetechniken sollen 
nur erwähnt, aber nicht näher beschrieben werden, da sie mit 
dem C64 allein nicht zu verwirklichen sind. 

Vom Synthesizer zum C64 


Sound-Sampling bedeutet die vollständige Digitalisierung 
eines ganzen Kurvenverlaufs. Der Kurvenverlauf wird durch 
Abtastung natürlicher Schallereignisse gewonnen oder ist 
das Ergebnis eines Rechenprozesses oder eine Kombina¬ 
tion von beiden. Der Klangcharakter befindet sich digitalisiert 
in einem Speicher, der periodisch ausgelesen wird, ver¬ 
gleichbar dem Auslesen des Bildschirmspeichers bei der Er¬ 
zeugung eines Videosignals. Die ausgelesenen Werte wer¬ 
den durch einen Digital-Analog-Wandler in eine Folge von 
Spannungswerten verwandelt, die nach Durchlaufen eines 
geeigneten Tiefpasses ein akustisches Signal ergeben. Mit 
dieser Technik ist prinzipiell jedes akustische Ereignis erfaß¬ 
bar und reproduzierbar. 

Rein digitale Signalverabeitung ist das allgemeinste und 
universellste Syntheseprinzip, das vorstellbar ist. Wie beim 
Sound-Sampling wird das Signal als Folge von Digitalwerten 
repräsentiert. Diese Folge wird aber nicht unbedingt nur 
durch Auslesen eines Speichers gewonnen, sondern kann 
auch in Realzeit errechnet werden. Die Tragweite dieses Kon¬ 
zepts besteht darin, daß prinzipiell jedes andere Synthese¬ 
verfahren durch Signalverarbeitung nachgebildet werden 
kann. Synthesen, die mit anderen Mittel kaum zu realisieren 
sind, wie die Erzeugung künstlicher Sprache, werden fast 
ausschließlich mit digitaler Signalverarbeitung realisiert. Der 
Nachteil dieser Art der Signalverarbeitung ist der enorm hohe 
Bedarf an Rechengeschwindigkeit und Genauigkeit, der von 
Universalmikroprozessoren noch nicht hundertprozentig be¬ 
friedigt werden kann. Für ein hochwertiges Signal im Audio- 
bereich benötigt man mindestens 40 000 Abtastwerte pro 
Sekunde, die außerdem noch genauer als 8 Bit sein sollten. 
Für die Berechnung eines Abtastwertes bleiben damit 25 
Mikrosekunden, eine Zeit, in der zum Beispiel die CPU 6502 
(6510) zirka fünf bis zehn Befehle abarbeitet, viel zu wenig 
für die Erzeugung selbst einfachster Kurvenformen. Es gibt 
seit einiger Zeit bereits hochintegrierte Signalprozessoren. 


Sound-Sampling 


Das sind spezialisierte CPUs oder sogar Einchip-Prozesso¬ 
ren, die mit einem meist einfachen Befehlssatz ausgestattet 
sind und hohe Verarbeitungsgeschwindigkeiten erreichen 
(Befehlsausführungszeit 100 - 200 ns im Gegensatz zu 
mehreren jts bei Universalmikroprozessoren). Diese Bau¬ 
steine sind aber teuer, schwer erhältlich, schwierig zu hand¬ 
haben und nicht so universell einsetzbar wie Standardpro¬ 
zessoren. Den Soundchip im C 64 kann man bereits als einen 
kleinen Signalprozessor ansehen, dessen Betriebspro¬ 
gramm allerdings fest vorgegeben ist. Man kann seinen Ab¬ 
lauf nur über die bereits erwähnten Steuerregister be¬ 
einflussen. 

Ziel dieses Artikels soll es sein, zu zeigen, wie man mit 
geeigneter Steuersoftware möglichst viel aus diesem Bau¬ 
stein herausholt. 

Programmierung des SID 


DerSID (Sound Interface Device) ist funktionell an das klassi¬ 
sche Konzept von Moog angelehnt. Dadurch ist seine Ar¬ 
beitsweise leicht verständlich. Bild 7 zeigt das Blockschema 
des SID. Dieses Schema dient dazu, den Fluß der Audiosi- 
gnale zu veranschaulichen. Die Funktionsblöcke waren in 
ähnlicher Form bereits Bestandteile des weiter oben 
beschriebenen Synthesizerschemas. Den linken Teil des 
Schemas bilden drei identische, voneinander unabhängige 
Funktionsgruppen. 

Eine solche Gruppe setzt sich aus einem DCO (Digital Con- 
trolled Oscillator), einem Amplitudenmodulator (oder auch 
DCA ='5“ jital Controlled Amplifier) und einem Hüllkurvenge¬ 
nerator (EG = Envelope Generator) zusammen. Der DCO 
kann wahlweise eine von vier Kurvenformen erzeugen: Drei¬ 
eck, Sägezahn, Rechteck und Rauschen. Dabei ist das Tast¬ 
verhältnis der Rechteckkurve steuerbar. Unter dem Tastver¬ 
hältnis versteht man das Verhältnis zwischen der Länge des 
Kurvenabschnitts mit hoher Spannung zur gesamten Perio¬ 
denlänge. Eine symmetrische Rechteckkurve hat demnach 
ein Tastverhältnis von 50 Prozent. Eine Veränderung im Tast¬ 
verhältnis T bewirkt eine Klangfarbenänderung. So klingt 
eine Rechteckkurve mit T = 50 Prozent voluminös. Bewegt 
man sich mit T in Richtung null Prozent oder 100 Prozent, so 
wird der Klang zunehmend obertonreicher aber dünner, da 
der Anteil des Grundtons abnimmt. Einen besonders lebendi¬ 
gen Klang erhält man durch dynamische Veränderung des 
Tastverhältnisses, was zwar in der SID-Hardware nicht reali¬ 
siert, aber softwaremäßig möglich ist. 

Funktioneller Aufbau des SID 


Der Hüllkurvengenerator beeinflußt über den Amplitudenmo¬ 
dulator den zeitlichen Lautstärkeverlauf der vom DCO kom¬ 
menden Kurve. Die Hüllkurve wird nach dem bekannten 
ADSR-Schema parametrisiert. 

Synchronisation und Ringmodulation 

Die senkrechten Verbindungen von DC01 zu DC02, von 
DC02 zu DC03 und von DC03 zurück zu DC01 können ein¬ 
zeln zu- oder abgeschaltet werden. Sie dienen Spezialeffek¬ 
ten, die das Spektrum des SID beträchtlich erweitern. Im Nor¬ 
malfall, wenn diese Steuerpfade unwirksam geschaltet sind, 
schwingen die drei DCOs unabhängig voneinander, jeder in 
seiner vorprogrammierten Frequenz und Kurvenform. Im 
Falle der Synchronisation zwingt der synchronisierende DCO 
einen weiteren DCO dazu, gleichphasig zu schwingen. In 
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EINGANG 


Bild 7. Blockschema des SID 


Bild 8 erzeugt DC01 eine Sägezahnschwingung von 100 Hz 
und synchronisiert DC02, der ebenfalls auf Sägezahn, aber 
350 Hz eingestellt ist. Nach jeweils dreieinhalb Perioden wird 
DC02 gezwungen, eine neue Periode anzufangen. DC02 
erzeugt so eine viel komplexere Kurvenform, als er es ohne 
Synchronisation tun würde. Variiert man nun noch die Fre¬ 
quenz eines der beiden DCOs, während man die des anderen 
konstant hält, so erzeugt DC02 ständig andere Kurvenfor¬ 
men. Man erhält damit schwer zu beschreibende, aber mei¬ 
stens »elektronisch« (im Sinne von »unnatürlich«) klingende 
Muster. 

Wenn man zu jedem Zeitpunkt die Werte zweier Kurven¬ 
züge miteinander multipliziert, so spricht man von Ringmodu¬ 
lation. Dieser Vorgang hat eine Ähnlichkeit mit der Modulation 
einer Schwingung mit einer Hüllkurve, wie sie im SID auch 
vorkommt. Die Hüllkurve ist aber eine Funktion, die sich, ver¬ 
glichen mit dem Signal, das sie moduliert, nur langsam verän¬ 
dert. Dadurch bleibt bei dieser Modulation der Klangcharak¬ 
ter des modulierten Signals erhalten, es ändert sich nur seine 
Lautstärke. 

Bei der Ringmodulation dagegen ist das modulierende 
Signal von ähnlicher Beschaffenheit wie das modulierte 
Signal. Beide Signale dürfen ähnliche Frequenzen haben und 
als Kurvenzüge auch positive und negative Werte annehmen, 
wogegen eine Hüllkurve immer nur nichtnegative Werte hat. 
Bei der Ringmodulation geht im allgemeinen der Klangcha¬ 
rakter beider beteiligten Kurven verloren; es entsteht ein 


ganz neuer Klang. Man macht sich das am besten anhand 
zweier Sinusschwingungen klar: 
sin(ü) 1 t)sin(w 2 t) = 1 / 2 (cos(a) 1 -w 2 )t - cos^+u^t) 

Das bedeutet, daß man durch Multiplikation zweier Sinus¬ 
schwingungen ein Signalgemisch erhält, das aus Schwin¬ 
gungen mit der Summe und der Differenz der ursprünglichen 
Frequenzen besteht. Die ursprünglichen Frequenzen ver¬ 
schwinden dabei vollkommen. Die Formel liefert auf der rech¬ 
ten Seite zwar Cosinus-Terme, für den Klang ist das allerdings 
unerheblich, da sich Sinus und Cosinus nur durch eine Pha¬ 
senverschiebung unterscheiden. Unterzieht man nun andere 
Kurvenformen einer Ringmodulation, so muß man alle Ober¬ 
töne der einen Kurve mit allen Obertönen der anderen Kurve 
gemäß der obigen Formel verrechnen. Dadurch entsteht ein 
sehr reichhaltiges neues Obertonspektrum. Die neuen Ober¬ 
töne stehen dabei nicht mehr in harmonischen, das heißt 
ganzzahligen Verhältnissen zueinander. Aus diesem Grund 
eignen sich Ringmodulatorklänge auch kaum zur Wieder¬ 
gabe von Melodien. Im natürlichen Umfeld findet man unhar¬ 
monische Obertonverhältnisse zum Beispiel bei Glocken, 
Gongs und schwingenden Metallplatten. Zu deren Nachah¬ 
mung eignen sich die Ringmodulatorklänge. 

Beim SID steht zur Ringmodulation nur die Dreiecks¬ 
schwingung zur Verfügung. Wenn DC01 den DC02 modu¬ 
liert, ist das Ringmodulatorprodukt nur dann hörbar, wenn 
DC02 auf Dreieckskurve eingestellt ist. Noch komplexere 
Klänge erhält man beim SID durch Einbeziehen aller drei 
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DCOs in die Modulationskette, wobei man durch den Signal¬ 
pfad DC03 nach DCOI den Kreis auch noch schließen kann. 
Die Ergebnisse werden dann allerdings schwer vorhersag¬ 
bar, lassen also noch genug Raum für Experimente und Über¬ 
raschungen. 

Der Einsatz von Filtern 

Leider hat der SID nur ein gemeinsames Filter für die drei 
DCO-EG-AM-Gruppen. Möchte man unterschiedliche Klang¬ 
bilder zur gleichen Zeit erzeugen, so kann man nur durch die 
Wahl von Kurvenform und Hüllkurve differenzieren. Man hat 
aber immerhin die Wahl, ob man die DCO-EG-AM-Produkte 
überhaupt durch das Filter schickt oder am Filter vorbei direkt 
zum Ausgang. Diese Funktion erfüllen im Blockschema die 
Schalter »FILTER 1«, »FILTER 2« und »FILTER 3«. Das Filter 
kann als Hochpaß, als Bandpaß oder als Tiefpaß wirken, 
wobei die Funktionen auch parallel schaltbar sind. So erhält 
man zum Beispiel aus der Kombination Hochpaß und Tiefpaß 
eine sogenannte Bandsperre (oder »Notch-Filter«), die ein 
schmales Band aus dem Gesamtspektrum unterdrückt. Es 
sind die Parameter Eck- beziehungsweise Mittenfrequenz 
(für Hochpaß, Bandpaß und Tiefpaß gemeinsam) sowie die 
Resonanz programmierbar. Ein weiteres Qualitätskriterium 
eines Filters ist seine Steilheit. Diese Größe beschreibt, wie 
schnell ein Filter in der Umgebung der Eck- beziehungsweise 
Mittenfrequenz vom durchlassenden in den sperrenden Zu¬ 
stand übergeht. 

Als Faustregel gilt, daß ein Filter um so »besser« klingt, 
je steiler es ist. Beim Hoch- und Tiefpaß des SID beträgt die 
Steilheit 12 dB/Oktave, beim Bandpaß 6 dB/Oktave. 12 dB/ 
Oktave bedeuten, daß zum 
Beispiel im Übergangsbe¬ 
reich des Tiefpasses ein 
Signal um das Vierfache 
abgeschwächt wird, wenn 
seine Frequenz verdoppelt 
wird. 6 dB/Oktave bedeuten 
eine Abschwächung (oder 
Anhebung) um das Zwei¬ 
fache bei Frequenzverdopp¬ 
lung. Die Filtersteilheit ist im 
allgemeinen und auch beim 
SID fest vorgegeben. Zur 
Orientierung sei noch er¬ 
wähnt, daß die Filter im pro¬ 
fessionellen Synthesizer 
meistens eine Steilheit von 
24 dB/Oktave haben. 

Die gefilterten oder unge¬ 
filterten Signale im SID wer¬ 
den auf einen DCA geführt, 
wo man noch die Gesamtam¬ 
plitude des Ausgangssignals 
programmieren kann. Über 
einen Analogeingang kann 
man auch noch ein externes 
Signal gefiltert oder ungefil¬ 
tert (Bit »Filt Ex«) zumischen. 

Gegenüber dem im Einfüh¬ 
rungsteil vorgestellten klas¬ 
sischen Synthesizerkonzept 
findet man im SID keinen 
LFO, mit dem man Frequenz, 

Amplitude oder einen Filter¬ 
parameter modulieren könn¬ 
te. Diese Funktion kann man 
aber rein softwaremäßig rea¬ 
lisieren. Eine Hilfe dazu kön¬ 
nen DC03 und EG3 sein. 


Man kann zu jedem Zeitpunkt den Amplitudenwert von DC03 
und von EG3 abfragen. Programmiert man DC03 als LFO, 
das heißt auf eine sehr niedrige Frequenz, so kann man die 
Amplitudenwerte von DC03 (mit geeigneter Skalierung) zur 
Frequenz von DCOI oder DC02 addieren. Tut man das in 
regelmäßigen Zeitabständen und mehrfach innerhalb einer 
Periodendauer von DC03, so kann man damit ein Vibrato rea¬ 
lisieren. 

Auf gleiche Weise kann man auch die von EG3 gelieferte 
Hüllkurve zur Modulation beispielsweise des Filters heran¬ 
ziehen. Beide Möglichkeiten erfordern allerdings zusätzliche 
schnelle Programme, die sich nur in Maschinensprache reali¬ 
sieren lassen. 

Wenn man DC03 und/oder EG3-zu Modulationszwecken 
benützt, möchte man das von AM3 produzierte Signal unter 
Umständen nicht hören. Dazu kann man es mit dem zusätzli¬ 
chen Schalter »AUS« unterdrücken. 


Die Steuerung des SID 


Weiter oben wurde schon angesprochen, daß ein digitaler 
Synthesizer wie der SID nicht durch Potentiometer und durch 
Spannungen beeinflußt wird, sondern durch digitalisierte 
Parameter. Dazu besitzt der SID 29 Register mit einer Länge 
von acht Bit. Davon können 25 nur beschrieben (ihre Inhalte 
steuern das Verhalten des SID) und vier nur gelesen werden. 
Die 29 Register werden durch die Adreßdecodierungs-Hard- 
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Bild 8. Die Synchronisation 


Adressen: 
Stimme 1 

S+o 
S + 1 
S + 2 
S + 3 
S + 4 
S + 6 
S+6 


Stimme 2 
S + 7 
S + 8 
S + 8 
S + 10 
S + 11 
S + 12 
S +13 


Bild 9. 

Alle Register 
des SID 
auf einen Blick 


Die Register des SID Basisadresse des SID: 


Stimme 3 
S + 14 
S + 16 
S + 16 
S +17 
S + lfl 
S + 18 
S + 20 


S = 54272 
Bitnummern 
1 0 


Frequenz- low 


Frequenz-high 


Pulswelte-low 
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wäre auf dem CPU-Speicherbereich $D400 bis $D41C ab¬ 
gebildet (dezimal: 54272 bis 54300). 

Die SID-Register lassen sich so mit allen speicherbezoge¬ 
nen Maschinenbefehlen oder mit PEEK und POKE anspre¬ 
chen. Da in einzelnen Registern oft mehrere Bits mit unter¬ 
schiedlicher Bedeutung zusammengefaßt sind, erfordert ihre 
Programmierung ein hohes Maß an maschinennahem Den¬ 
ken, egal ob in Basic oder in Maschinensprache program¬ 
miert wird. 

Bild 9 zeigt die Bedeutung der einzelnen Register im Detail. 
Der Registersatz gliedert sich in drei mal sieben Register zur 
Steuerung der drei DCO-EG-AM-Gruppen für die drei Stim¬ 
men, in vier Register zur Filtersteuerung und in vier Lese¬ 
register. Die sieben Register zur Steuerung einer DCO-EG- 
AM-Gruppe haben für alle drei Stimmen den gleichen Aufbau 
und die gleiche Bedeutung. 

Frequenz low/high (Register 0 und 1) 

Die beiden Register 0 und 1 steuern die Frequenz von 
DC01 mit einer Genauigkeit von 16 Bit. Register 0 enthält 
das niederwertige, Register 1 das höherwertige Byte einer 
16-Bit-Größe F. Zwischen der Ausgangsfrequenz f und der 
Zahl F besteht der Zusammenhang: 

(1) f = F x T / 2424 (Hz) 

Dabei ist T die Taktfrequenz der CPU, die auch am SID 
anliegt. Sie beträgt bei der deutschen Version des C 64 
0,985248 MHz 
Damit gilt: 

(2) f = Fx 0,0587254 (Hz) 
oder 

(3) F = f x 17,0284 

Die Gleichungen (2) und (3) zeigen, daß sich die Frequen¬ 


zen der DCOs sehr fein, in Schritten zu zirka 1/17 Hz, pro¬ 
grammieren lassen. Möchte man eine vorgegebene Fre¬ 
quenz f (im Beispiel FAUS) erzeugen, so errechnet man F 
nach (3), 

10 FAUS = 440 

20 F = FAUS * 17.0284 

man zerlegt F in das Low- und das High-Byte, 

30 F = INT(F+0.5) :REM RUNDUNG 
40 HI = INT(F/256) 

50 L0 = F - 256#HI 

und besetzt Register 0 und 1 damit 

60 SID = 54272 :REM BASISADRESSE 

70 POKE SID+0,L0 

80 POKE SID+1,HI 

Pulsweite low/hlgh (Register 2 und 3) 

Der Inhalt dieser Register steuert das Tastverhältnis der 
Rechteckkurve. Er ist nur dann bedeutend, wenn als Kurven¬ 
form das Rechteck gewählt wird. Die Pulsweite kann auf 12 
Bit genau festgelegt werden. Register 2 enthält das Low- 
Byte, Register 3 das High-Byte, von dem nur die unteren 4 
Bits (P8 bis P11) berücksichtigt werden. Zwischen der 
12-Bit-Größe P und dem Tastverhältnis PAUS besteht der 
Zusammenhang: 

(4) PAUS = P / 40.95 (%) 
oder 

(5) P = PAUS * 40.95 

Die Programmierung gestaltet sich dann in der Praxis ana¬ 
log zu der der Frequenz: 

90 PAUS = 50 

100 P = PAUS * 40.95 

110 P = INT(P+0.5) :REM RUNDUNG 










85 


SONDERHEFT 11 















MUSIK-KURS 


C 64 


120 HI = INT (P/256) 

130 L0 = P - 256*HI 
140 POKE SID+2,L0 
150 POKE SID+3.HI 

Kontrollregister (Register 4) 

Jedes Bit dieses Registers hat eine eigene Bedeutung. 
GATE (Bit 0) 

Dieses Bit steuert den Hüllkurvengenerator EG1. Wird es 
gesetzt, startet EG1 eine Attackdecay-Sequenz. Die Hüll¬ 
kurve bleibt anschließend auf dem programmierten Sustain- 
Pegel, bis das GATE-Bit zurückgesetzt wird. Durch das 
Zurücksetzen geht die Hüllkurve in die Release-(Auskling-) 
Phase. 

Synchronisation (Bit 1) 

Wird es gesetzt, so wird DC01 von DC03, wie schon 
beschrieben, synchronisiert. 

Ringmodulation (Bit 2) 

Wird es gesetzt, so erzeugt DCOI das Ringmodulatorpro¬ 
dukt der Dreieckskurven von DC03 und DCOI. Diese wird 
allerdings nur dann hörbar, wenn als Kurvenform von DCOI 
das Dreieck gewählt wird. 

Test (Bit 3) 

Bei gesetztem Test-Bit wird DCOI auf Nullpegel gezwun¬ 
gen. Er erzeugt in diesem Zustand keine Schwingung. Man 
kann DCOI damit softwaregesteuert synchronisieren, um, 
ähnlich wie durch die Synchronisation durch DC03, komple¬ 
xere Kurvenformen zu erhalten. 

Kurvenform (Bit 4 bis 7) 

Durch Setzen eines dieser vier Bits wählt man eine der Kur¬ 
venformen Dreieck, Sägezahn, Rechteck oder Rauschen. Es 
muß mindestens eines dieser Bits gesetzt sein, damit über¬ 
haupt etwas hörbar wird. Eine Eigenart des SID ist es, daß 
sich die Kurvenformen nicht additiv verhalten. Werden meh¬ 
rere der Bits 4 bis 7 zugleich gesetzt, so erzeugt der SID eine 
Kurvenform, deren Amplitudenwerte man durch logische 
AND-Verknüpfung der Amplitudenwerte der einzelnen Kur¬ 
ven erhält. Diese AND-Verknüpfung muß man sich bitweise 
auf die Amplitudenwerte darstellenden Bytes angewandt 
vorstellen. 

Das Rauschen verdient noch eine besondere Betrachtung. 
Bei Rauschen kann man nicht von einer Frequenz im üblichen 
Sinne reden. Dennoch ist der Charakter des SID-Rauschens 
über die Größe F in Register 0 und 1 beeinflußbar. Rauschen 
wird im SID durch eine Quasizufallsfolge von numerischen 
Werten realisiert. Die Rate, mit der der DCO diese Zufallszah¬ 
len erzeugt, ist genau die durch F programmierte Frequenz. 
Ein Rauschen mit »hoher Frequenz« klingt heller oder »wei¬ 
ßer« als Rauschen mit niedriger Frequenz (in der Musik 
spricht man von »weißem Rauschen«). 

Bei der Programmierung des Kontrollregisters muß man 
sich vorher den Wert jedes einzelnen Bits zurechtlegen und 
in das Byte packen. Das Anstoßen eines Rechteckklanges 
beispielsweise wird durch Setzen von Bit 0 und Bit 6 erreicht. 
Der numerische Wert des Kontrollbytes ist dann: 
210+216=65 
also: 240 POKE SID+4,65 

Ein hörbares Resultat wird aber auch erst dann erzielt, 
wenn vorher die Hüllkurvenparameter vernünftig gesetzt 
sind. 

ADSR (Register 5 und 6) 

Die Parameter A, D, S und R können in 16 Abstufungen ent¬ 
sprechend 4 Bit Auflösung programmiert werden. Die Stu¬ 
fung für den Sustain-Pegel ist linear. S=0 entspricht dem 
Ruhepegel, S=15 entspricht dem Maximalpegel nach 
Attack. Bei S=15 besitzt die Hüllkurve keine Decay-Phase. 
Die Abstufungen für die Attack-, Decay- und Release-Zeiten 
sind vernünftigerweise nicht linear, um sehr kurze und sehr 
lange Zeiten gleichermaßen zu ermöglichen. Tabelle 3 ent¬ 
hält die realisierbaren Attack-, Decay- und Release-Zeiten. 


Decay und Release können direkt in die Register 5 und 6 
geschrieben werden, während Attack und Sustain vorher mit 
16 zu multiplizieren sind, was einer Linksverschiebung um 
vier binäre Stellen entspricht. Ein Beispiel: 

160 A = 2 :REM 16 MS 
170 D = 12 :REM 3 S 
180 S = 1 

190 R = 10 :REM 1.5 S 
200 POKE SID+5,A#16+D 
210 POKE SID+6,S#16+R 

Nach vorläufigem Umgehen des Filters und Setzen der 
maximalen Lautstärke 
220 POKE SID+23,0 :REM FILTER AUS 
230 POKE SID+24,15 :REM LAUTSTÄRKE 
führt das Setzen des GATE-Bits 
240 POKE SID+4,65 :REM GATE AN 

zu einem vernünftigen Resultat. Zum Abschalten des Klan¬ 
ges kann man einfach das Kontrollregister mit 0 besetzen, 
270 POKE SID+4,0 

doch dann hat DCOI keine Gelegenheit, der Release-Phase 
entsprechend auszuklingen, da auch das Kurvenform-Bit 
(Nr. 6) zurückgesetzt ist. Besser ist also, Bit 6 gesetzt zu 
lassen: 

250 GET A$:IF A$=" " THEN 160 
260 REM WARTE AUF EINE TASTE 
270 POKE SID+4,64 :REM GATE AUS 


Werl Dsz. 

Hex 

Attack 

DecayfRelease 

0 

0 

2 ms 

6 ms 

1 

1 

8 ms 

24 ms 

2 

2 

16 ms 

48 ms 

3 

3 

24 ms 

72 ms 

4 

4 

38 ms 

114 ms 

nt-insp». 

5 

56 ms 

168 ms 

6 

6 

68 ms 

204 ms 

7 

7 

80 ms 

240 ms 

8 

8 

100 ms 

300 ms 

9 

9 

250 ms 

750 ms 

10 

A 

500 ms 

1,5 s 

11 

B 

800 ms 

2,4 s 

12 

C 

1 s 

3s 

13 

D 

3s 

9 8 

14 

E 

6 8 

15 s 

16 

F 

8s 

24 s 

Tabelle 3. Hüllkurvengeschwindigkeiten 


Klangeffekte zum Abtippen 


Nach diesem systematischen Teil folgen noch Einstellungen. 
Tabelle 4 enthält einige Parametersätze für Klänge, die der 
SID ohne großen Programmieraufwand erzeugen kann. Die 
Klangbezeichnungen wollen die Effekte nur subjektiv 
beschreiben und sind natürlich nicht zu wörtlich zu nehmen. 
Man muß nun lediglich die Werte einer Zeile in die in der Kopf¬ 
zeile angegebenen SID-Register schreiben, das GATE-Bit 
setzen und nach einiger Zeit zurücksetzen. Der Parameter M 
ist übrigens kein SID-Parameter, sondern soll eine Verzöge¬ 
rungsschleife steuern, die die Zeit zwischen GATE ON und 
GATE OFF bestimmt. Parameter M bezieht sich auf das Pro¬ 
gramm in Listing 1, das beim Experimentieren Hilfestellung 
leisten soll. Im DATA-Teil ab Zeile 320 sind die Parameter aus 
Tabelle 4 einzusetzen, und zwar genau in der gleichen Rei¬ 
henfolge. Das Programm belegt nach dem Start den SID mit 
den Parametern aus den DATA-Zeilen und wartet auf einen 
beliebigen Tastendruck, der dann den Klangeffekt auslöst. 
Man versuche es auch einmal mit den Tasten, die eine Auto- 
Repeat-Funktion haben, wie zum Beispiel die Space-Taste. 
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Register 

A 

S + 5 

D 

S + 5 

SU 

S+6 

R 

S+6 

C 

S + 4 

P 

S + 2 
S+3 

F 

S 

S+1 

FF 

S + 22 

FR 

S + 23 

ML 

S+24 

M 

Glöckchen 

0 

10 

0 

10 

16 

X 

40000 

X 

0 

15 

100 

Oboe 

8 

7 

10 

8 

64 

250 

7 500 

X 

0 

15 

500 

Fagott 

8 

7 

10 

8 

64 

250 

2500 

X 

0 

15 

750 

Zunqenpfeife 

8 

0 

15 

10 

48 

X 

400 

X 

0 

15 

1000 

Banjo 

0 

8 

0 

8 

32 

X 

7500 

50 

241 

111 

30 

Stahl 

0 

0 

15 

12 

96 

2044 

30000 

X 

0 

15 

100 

Feder 

0 

8 

0 

9 

32 

X 

750 

X 

0 

15 

35 

Preßlufthammer 

0 

0 

15 

10 

80 

2100 

200 

X 

0 

15 

2000 

Schuß 

0 

8 

0 

10 

128 

X 

10000 

X 

0 

15 

50 

2000 

Starkstrom 

0 

0 

15 

0 

128 

X 

100 

X 

0 

15 

Düsenfluazeua 

0 

0 

15 

13 

128 

X 

3000 

50 

241 

31 

3000 

Rakete 

0 

0 

15 

15 

128 

X 

1 000 

10 

241 

31 

3000 


x = ohne Wirkung (Parameter muß nicht eingestellt werden) Tabelle 4. Einige Beispiel-Effekte für Listing 1 


Fest eingestellt: 


FF 




FR 




ML 


Register 


S+22 




S+23 



S+24 



X 

0 

15 


A 

D 

SU 


R 

C 

P 


F 

G 

N 

M 

Register 

S + 5 

S+5 

S+6 


S+6 

S+4 

S+2 


S 










S+3 

S+1 




Telefon 

0 

10 

0 

10 

16 

X 

16000 

1.33 

2 

25 

Laserkanone 

0 

0 

15 

0 

64 

1000 

30000 

0.85 

10 

1 

Take-off 

0 

0 

15 

15 

128 

X 

500 

1.004 

1000 

1 

Turbine 

0 

0 

15 

15 

100 

2044 

20000 

1.001 

460 

1 

Trommelwirbel 

0 

5 

2 

9 

128 

X 

20000 

1 

2 

30 

Maschinengewehr 

0 

5 

2 

9 

128 

X 

12 000 

0.7 

3 

30 

x = ohne Wirkung (Parameter muß nicht eingestellt werden) 



Tabelle 5. Einige Beispiel-Effekte für Listing 5 


Register 

A 

D 

SU 

R 

C 

P 

F 

G 

N 

M 

A3 

S + 19 

B3 

S+19 

F3 

S+20 

R3 

S+20 

C3 

S+18 

P3 

S + 16 
S+17 

F3 

S+14 

S+15 

Q 

Voqelgezwltscher 

0 

8 

0 

8 

16 

X 

40000 

500 

8 

10 

0 

8 

0 

0 

X 

X 

X 

28 

Bongo 

0 

7 

0 

7 

16 

X 

4000 

1000 

4 

' 

0 

8 

0 

0 

X 

X 

X 

28 

E-Baß 

0 

8 

0 

9 

32 

X 

750 

1000 

7 

1 

0 

10 

0 

0 

X 

X 

X 

28 

Dampfhammer 

0 

9 

0 

11 

128 

X 

5000 

200 

20 

15 

0 

9 

0 

9 

X 

X 

X 

28 

Martinshorn 

0 

0 

15 

8 

64 

1000 

7000 

720 

300 

1 

X 

X 

X 

X 

64 

2048 

15 

27 

Sirene 

10 

13 

0 

0 

64 

2048 

10000 

400 

300 

1 

X 

X 

X 

X 

16 

X 

30 

27 

Geklimper 

0 

0 

15 

0 

64 

2048 

10000 

200 

400 

1 

X 

X 

X 

X 

128 

X 

20 

27 

Grollen 

9 

10 

0 

0 

32 

X 

50000 

2000 

40 

10 

X 

X 

X 

X 

128 

X 

500 

27 

x = ohne Wirkung (Parameter muß nicht eingestellt werden) Tabelle 6. Einige Beispiel-Effekte für Listing 3 


Das Programm aus Listing 2 ist ganz ähnlich aufgebaut, 
kann aber ein viel größeres Spektrum von Effekten dadurch 
realisieren, daß es die Frequenz von Stimme 1 dynamisch 
verändert. Dazu dient die innere Schleife, Zeile 260-300. 
Dort wird bei jedem Durchlauf die Frequenz Fl mit einem Fak¬ 
tor G multipliziert. Für G > 1 steigt die Frequenz schneller an, 
für G< 1 nimmt sie ab, und zwar um so schneller, je weiter G 
von 1 entfernt ist. Die Umrechnung von Fl in Low- und High- 
Bytes geschieht hier nach der schnellen Methode 2. Man 
beachte, daß damit nur Fl-Werte bis 32767 verarbeitet wer¬ 
den können, also nur die Hälfte des vollen Frequenzumfangs 
des SID. In der äußeren Schleife wird der Wert von Fl auf sei¬ 
nen Ausgangswert F zurückgesetzt. Außerdem steuert die 
äußere Schleife bei jedem Durchlauf einen ADSR-Hüllkur- 
venzyklus durch GATE ON - GATE OFF. Die Zahl N gibt dabei 
die Anzahl der inneren Schleifendurchläufe an, die Zahl M die 


der äußeren Schleifendurchläufe. Beispielparameter zu 
Listing 2 findet man in Tabelle 5. 

Das dritte Programm (Listing 3 und Tabelle 6) verwendet 
schließlich den Signalverlauf oder die Hüllkurve von Stimme 
3, um Stimme 1 zu modulieren. Dies geschieht in der inneren 
Schleife, Zeile 360 bis 380. Q ist dabei die Adresse eines der 
Leseregister des SID, also entweder S+27 für den Signalver- 
lauf oder S+28 für den Hüllkurvenverlauf. In Zeile 650 ist 
dazu nur 27 oder 28 anzugeben. Über die Variable G kann 
die Stärke der Modulation, die sogenannte Modulationstiefe, 
gesteuert werden. Ein kleinerer Wert von G ergibt hier eine 
stärkere Modulation. Die äußere Schleife steuert hier ADSR- 
Hüllkurvenzyklen für Stimme 1 und 3. Dieses Programm soll¬ 
te Anlaß zum weiteren Experimentieren sein. Man kann statt 
der Tonfrequenz zum Beispiel auch einmal versuchen, die 
Pulsweite oder die Filterfrequenz zu modulieren. 
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Das Programm »Modulator« 


Filtersteuerung 

Das Filter des SID wurde in seiner Funktion schon weiter 
oben beschrieben. Gesteuert werden diese Funktionen über 
den Inhalt der vier Register 21 bis 24 (Bild 9). Die Grenzfre¬ 
quenz (auch Eck- oder Mittenfrequenz, je nach Filtermodus) 
wird über eine 11-Bit-Größe in den Registern 21 und 22 be¬ 
einflußt. Die Grenzfrequenz läßt sich im Bereich 30 Hz bis 12 
kHz einstellen. Etwas ungewohnt ist die Verteilung der elf Bits 
auf die beiden Register: drei niederwertige und acht höher¬ 
wertige. Da man die Filterfrequenz bei weitem nicht so fein 
steuern muß wie die Oszillatorfrequenz, kann man sich hier 
auf Register 22 beschränken. Man wird dann Register 21 
zum Beispiel fest mit 0 besetzen. 

Filterresonanz (Register 23 Bit 4 bis 7) 

Die Filterresonanz kann über vier Bits in 16 Stufen einge¬ 
stellt werden. Man muß dabei aber die vier im selben Register 
angesiedelten Bits FILTEX, FILTER 3,2 und 1 im Auge behal¬ 
ten, damit man sie nicht versehentlich mit nicht beabsichtig¬ 
ten Werten belegt. 

Die Schalter FILTER 1, 2, 3 und FILTEX 

Ist das Bit im FILTER 1 auf 0 gesetzt, wird das Signal von 
Stimme 1 am Filter vorbei direkt zum DCA geleitet, wo es 
ungefiltert zum gesamten Ausgangssignal zugemischt wird. 
Hat FILTER 1 den Wert 1, so gelangt Stimme 1 gefiltert zum 
Ausgang. Das gleiche gilt bei FILTER 2 und 3 entsprechend 
für Stimme 2 und 3. FILTEX bestimmt, ob ein externes Ein¬ 
gangssignal gefiltert oder ungefiltert zum Ausgang gemischt 
wird. Dieses externe Signal kann über Pin 26 an den SID 
gelegt werden. Dieser Eingang ist beim C64 über einen 
10-jtFKondensator an Pin 5 (Audio in) der Audio/Video- 
Buchse herausgeführt. Nach SID-Spezifikationen sollte das 
Signal einen Gleichspannungsanteil von 6 Volt haben und 
eine Wechselspannungsamplitude von 3 Volt nicht über¬ 
schreiten. Ein solches Signal könnte zum Beispiel von einem 
weiteren SID aus einem zweiten C64 stammen. 

AUS (Register 24 Bit 7) 

Wird dieses Bit auf 1 und gleichzeitig FILTER 3 auf 0 ge¬ 
setzt, erscheint Stimme 3 nicht am Ausgang. Stimme 3 kann 
dann zum Beispiel Stimme 1 synchronisieren oder ringmodu¬ 
lieren, ohne selbst hörbar zu sein. 

Hochpaß (Bit 6), Bandpaß (Bit 5) und Tiefpaß (Bit 4) 

Ist eines dieser Bits gesetzt, verhält sich das Filter als 
Hoch-, Band- oder Tiefpaß. Die Funktionen sind additiv, das 
heißt, daß man auch mit mehreren gleichzeitig gesetzten Bits 
ein sinnvolles Filter erhält. So ergeben zum Beispiel Hoch- 
und Tiefpaß zusammen eine Bandsperre, ein Filter, das alles 
bis auf einen schmalen Frequenzbereich durchläßt. Die 
Bandsperre (englisch Notch) ist sozusagen das Gegenstück 
zum Bandpaß. Es muß mindestens eines dieser Bits gesetzt 
sein, damit das Filter überhaupt wirksam wird. 

Lautstärke (Register 24, Bit 0 bis 3) 

Über diese Bits wird die Gesamtlautstärke des SID in 16 
Stufen von stumm=0 bis maximal=15 eingestellt. Meistens 
wird man 15 wählen, weil dann der Störabstand des SID-Si- 
gnals am besten ist. 

Die »Nur-Lese-Register« 


Potentiometer X und Y (Register 25 und 26) 

An Pin 24 (entsprechend X) und Pin 23 (entsprechend Y) 
des SID können RC-Glieder angeschlossen werden. Dabei 
sind die beiden Pins jeweils mit einem Kondensator mit 
Masse und mit einem Potentiometer mit +5 Volt zu verbin¬ 


den. Im SID werden durch Messungen der RC-Zeitkonstan- 
ten (das sind die Zeiten, in denen die Kondensatoren über die 
Potentiometer auf eine bestimmte Spannung aufgeladen 
werden) 8-Bit-Digitalwerte abgeleitet, die den Stellungen der 
Potentiometer entsprechen. Diese 8-Bit-Werte sind über die 
Register 25 und 26 von der CPU lesbar. Die Messungen wer¬ 
den alle 512 Systemtaktzyklen wiederholt. Bei einer Taktfre¬ 
quenz von 1 MHz sind das knapp 2000 Messungen pro 
Sekunde. Die SID-Potentiometer-Anschlüsse sind an den 
Joystickports gemultiplext herausgeführt. Es können dort bis 
zu vier Potentiometer angeschlossen werden, zum Beispiel 
in Form zweier »Paddies«. Damit ist eine viel feinfühligere 
Steuerung möglich als mit Joysticks, doch das soll nicht 
Gegenstand dieses Artikels sein. 

Oszillator 3 (Register 27) 

Über dieses Register kann zu jedem Zeitpunkt der Digital¬ 
wert der zu Stimme 3 gehörenden Kurvenform gelesen wer¬ 
den. Man kann diese Werte zur Modulation anderer Parame¬ 
ter verwenden, wie weiter oben schon erwähnt wurde. Weil 
dadurch aber Stimme 3 meistens nicht mehr direkt brauchbar 
ist, werden wir hier einen anderen Weg gehen. Zu Modulatio¬ 
nen brauchbare Kurven kann man auch rein softwaremäßig 
errechnen. Das Verfahren ist zwar aufwendiger, aber auch 
viel leistungsfähiger. 

Hüllkurve 3 (Register 28) 

Auch der aktuelle Wert des zu Stimme 3 gehörenden Hüll¬ 
kurvengenerators ist über dieses Register abgreifbar und 
kann so zu Modulationszwecken genutzt werden. Auch diese 
Funktion werden wir softwaremäßig nachbilden, damit uns 
Stimme 3 samt Hüllkurve weiterhin voll zur Verfügung steht. 

Das Modulator-Konzept 


Die Lebendigkeit von Naturklängen resultiert aus ihrer Unre¬ 
gelmäßigkeit. Keine zwei Perioden gleichen sich wie ein Ei 
dem anderen. Naturklänge weisen immer Schwankungen in 
der Lautstärke und in der Tonhöhe auf. Es soll zwar nicht 
unser Ziel sein, mit dem C64 Naturklänge nachzumachen 
(dazu ist der SID-Chip bei weitem nicht in der Lage), man kann 
aber durch Modulation von SID-Parametern Klänge mit mehr 
Komplexität, Weichheit und Volumen erzeugen. Zur Modula¬ 
tion geeignete Parameter sind Frequenz, Lautstärke, Filter¬ 
frequenz und die Pulsweite bei Rechteckklängen. 

Da die Pulsweite die spektrale Zusammensetzung eines 
Rechteckklanges beeinflußt, moduliert man durch die Puls¬ 
weite eigentlich die Klangfarbe. Modulation von Frequenz 
(Vibrato) und Lautstärke (Tremolo) sind auch bei natürlichen 
Instrumenten zu beobachten. Die Modulation der Filterfre¬ 
quenz ist dagegen ein typischer Synthesizereffekt. Bild 10 
zeigt das Funktionsschema des erweiterten SID-Chips in 
unserem Konzept. Der rechte untere Teil stellt vereinfacht 
den SID dar, wie er in Bild 7 schon beschrieben wurde. Nur 
dieser Teil des Schemas ist in der Hardware realisiert, die 
anderen Funktionsblöcke werden durch Software verwirk¬ 
licht. Zuerst sollen die Blöcke funktionell beschrieben wer¬ 
den. Anschließend wird etwas über ihre Ansteuerung gesagt. 
Später besprechen wir die softwaremäßige Realisierung. 
Neben Kenntnissen zur Verwirklichung weiterer Effekte wer¬ 
den dabei auch allgemein nützliche Informationen für As¬ 
semblerprogrammierer anfallen. 

Modulationsquellen und -ziele 

Als Quellen von Modulationssignalen stehen ein Hüllkur¬ 
vengenerator und sieben LFOs (Low Frequency Oscillator) 
zur Verfügung. Der Hüllkurvengenerator, im folgenden EG 
(Envelope Generator) genannt, erzeugt eine Hüllkurve nach 
dem ADSR-Schema. Der Hüllkurvenverlauf kann zu jeder Zeit 
angehalten, zurückgesetzt oder sogar gespiegelt werden. 
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Bild 10. Funktionsschema des erweiterten SID 


Die sieben LFOs sind identisch aufgebaut. Sie können vier 
Kurvenformen erzeugen: 

Dreieck TRIAN, aufsteigender Sägezahn SAWUP, abfallen¬ 
der Sägezahn SAWDOWN und Rechteck mit einstellbarer 
Pulsweite SQUARE 

Auch bei den LFOs können die Kurvenverläufe jederzeit 
angehalten und zurückgesetzt werden. Des weiteren sind die 
Amplituden der Modulationssignale einstellbar. Über diese 
Amplitude wird die Stärke oder Tiefe, wie man auch sagt, der 
Modulation gesteuert. 

Als Modulationsziele kommen vier Parameter in Frage: 

★ Frequenzen der drei Stimmen 

★ Pulsweiten der drei Stimmen 

★ Filtergrenzfrequenz 

★ Ausgangslautstärke 

Jede Modulationsquelle kann auf jedes Modulationsziel 
geschaltet werden. Dazu dient ein sogenannter Kreuzschie¬ 
nenverteiler. Man kann sich diesen als eine Anordnung von 
acht waagrechten (Zeilen) und acht senkrechten Drähten 
(Spalten) vorstellen (siehe dazu auch Bild 10). Dabei sind die 
Spalten mit den Modulationsquellen und die Zeilen mit den 
Modulationszielen verbunden. An den 64 Kreuzungspunk¬ 
ten befinden sich Buchsen, an denen man über Kurzschluß¬ 
stecker beliebige Verbindungen von Modulationsquellen zu 
Modulationszielen herstellen kann. Dabei werden entlang 
einer Zeile die Signale von Modulationsquellen gemischt, wo 
an entsprechender Stelle ein Stecker sitzt. 

In Bild 10 wird zum Beispiel die Frequenz von Stimme 1 
durch LFO 0, LFO 3 und LFO 5 gleichzeitig moduliert. Die Fil¬ 


terfrequenz wird nur vom EG moduliert. Durch das Kreuz¬ 
schienenkonzept können Modulationsquellen auch mehr¬ 
fach genutzt werden. So trägt in Bild 10 zum Beispiel LFO 5 
zur Modulation der Frequenz von Stimme 1 bei, moduliert die 
Pulsweite von Stimme 2 und dazu noch die Ausgangs¬ 
lautstärke. 

Porta me nto 

Bei fast jedem Synthesizer kann man die gespielten Tonhö¬ 
hen »schleifen« lassen. Das heißt, daß bei zwei aufeinander¬ 
folgenden, verschiedenen Tönen die Frequenz nicht unmit¬ 
telbar wechselt, sondern in einstellbarer Zeit von der alten zur 
neuen Tonhöhe kontinuierlich gleitet. Der Portamento-Block 
verwirklicht dies für alle drei Stimmen. Dabei sind die Porta- 
mento-Raten der Stimmen unabhängig voneinander ein¬ 
stellbar. 

Arbeitsweise von »Modulator« 

»Modulator« (Listing 4) für sich allein ist noch kein abge¬ 
schlossenes Programm, so wie der SID alleine noch kein voll¬ 
ständiger Synthesizer ist. SID 6581 und CPU 6510 bilden 
die hardwaremäßige Grundlage eines Synthesizers, der erst 
durch Software zum Leben erwacht. Das Steuerprogramm 
»Modulator« erweitert die Möglichkeiten dieser Hardware 
durch sinnvolle Effekte und ist als Kern eines später folgen¬ 
den Synthesizer- und Sequenzerprogramms aufzufassen. 
Die Effektmöglichkeiten von Modulator allein sind allerdings 
schon so reichhaltig, daß sie für jede Spiele-Geräuschkulisse 
ausreichen dürften, solange man auf vollständige Melodien 
verzichtet. 
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Schritt für Schritt 

Damit »Modulator« richtig arbeiten kann, muß das Pro¬ 
gramm in regelmäßigen Zeitabständen immer wieder aufge¬ 
rufen werden. Das Programm rechnet alle Modulationsquel¬ 
len (LFOs und EG) Schritt für Schritt als Folge von Abtastwer¬ 
ten aus. Bei einem Aufruf wird dabei immer genau ein weiterer 
Abtastwert für alle aktiven Quellen errechnet. Ein Modula¬ 
tionsziel, zum Beispiel Frequenz Stimme 1, gewinnt das Pro¬ 
gramm dann dadurch, daß die Frequenzvorgabe für Stimme 
1 entsprechend dem neuen (aktuellen) Wert der Modula¬ 
tionsquelle nach oben oder unten verschoben wird. Die so 
errechnete Größe wird dann von »Modulator« in die SID-Regi- 
ster geschrieben. Wenn man mit dem Modulator arbeitet, darf 
man also die zu modulierenden Größen nicht direkt in den SID 
schreiben (von dort könnten sie auch gar nicht mehr gelesen 
werden), sondern muß sie in andere, fest vereinbarte Spei¬ 
cherstellen schreiben, aus denen dann »Modulator« seine 
Vorgaben bezieht. Nun kann man das Programm nicht einfach 
in einer Schleife endlos aufrufen. Erstens könnte der Compu¬ 
ter dabei nichts anderes mehr tun, und zweitens wäre eine 
solche Aufruffolge zeitlich nicht regelmäßig. 

Ein »Modulator«-Schritt benötigt zirka ein bis zehn Millise¬ 
kunden, je nachdem, wieviele Quellen aktiv sind und wieviele 
Ziele moduliert werden müssen. Es ist naheliegend, die Auf¬ 
rufe von »Modulator«-Schritten nicht einem anderen Pro¬ 
gramm zu überantworten, sondern dazu einen programmier¬ 
baren Zeitgeber einzusetzen, der dann in völlig regelmäßiger 
Folge Aufrufe von »Modulator« auslöst. 


Interrupts 

Die beiden CIAs 6526 enthalten insgesamt vier Timer, die 
sich so programmieren lassen, daß sie in regelmäßigen Zeit¬ 
abständen Interrupts auslösen. Zum Begriff Interrupt sei hier 
nur soviel gesagt: Ein Interrupt ist ein Unterprogrammsprung, 
der nicht von einem laufenden Programm ausgelöst wird, 
sondern von einem elektrischen Signal, das von außen an die 
CPU angelegt wird. Es kann dabei nicht vorhergesagt wer¬ 
den, an welcher Stelle im laufenden Programm ein Interrupt 
eintritt. Die CPU trägt dafür Sorge, daß sie nach Beendigung 
des durch den Interrupt aufgerufenen Programms an die Stel¬ 
le im alten Programm zurückfindet, an der sie unterbrochen 
wurde. Normalerweise erzeugt Timer A von CI AI 60mal in der 
Sekunde einen Interrupt, den sogenannten Systeminterrupt. 
Das dabei aufgerufene Programm fragt die Tastatur ab, läßt 
den Cursor blinken und aktualisiert die Werte der Zeitva¬ 
riablen TI und Tl$. In gleicher Weise wird nun auch »Modula¬ 
tor« aufgerufen. Da die SID-Parameter nicht kontinuierlich, 
sondern zeitlich gestuft moduliert werden, sollten die »Modu- 
lator«-Zeitschritte möglichst klein sein, damit die Abstufung 
unhörbar bleibt. Andererseits müssen die Zeltabstände zwi¬ 
schen zwei »Modulator«-Aufrufen mindestens so groß sein 
wie der Zeitbedarf eines Modulatorschritts, also mindestens 
zehn Millisekunden. Die Aufruffrequenz des Systeminter¬ 
rupts von 16,6 Millisekunden erweist sich als ein guter Kom¬ 
promiß. »Modulator« und Systeminterrupt-Programm kann 
man also durch denselben Interrupt auslösen. Bei 60 Modu¬ 
lationsschritten pro Sekunde ist eine zeitliche Quantelung 
bei der Klangqualität des SID nicht hörbar. Zum anderen 
bleibt der CPU zwischen den Schritten noch Zeit für andere 
Aufgaben. Werden alle Register bei »Modulator« gezogen, 
benötigt ein Schritt knapp zehn Millisekunden. Da das Sy¬ 
steminterrupt-Programm auch noch etwas Zeit benötigt, 
ergibt sich so eine CPU-Auslastung von zirka 70 Prozent. 
Man merkt das daran, daß alle anderen Vorgänge, zum Bei¬ 
spiel das LISTen von Programmen, stark verzögert ablaufen, 
wenn der Modulator voll aktiv ist. Man wird in der Praxis aller¬ 
dings selten alle Modulationsmöglichkeiten gleichzeitig 
ausnützen. 


Timesharing 

Alle Programme, die selbst nicht interruptgetrieben sind, 
laufen problemlos quasiparallel zusammen mit »Modulator«. 
Mit dem Problem mehrerer konkurrierender Interrupts wer¬ 
den wir uns später im Zusammenhang mit dem Sequenzer¬ 
programm befassen. Die CPU-Belastung durch den Modula¬ 
tor kann man leicht ermitteln, da das Programm bei jedem 
Schritt seine eigene Laufzeit mißt. 

Ansteuerung von »Modulator« 

Um sich mit dem Programm vertraut zu machen, sollte man, 
es bei der Lektüre gleich ausprobieren. Zunächst muß man 
das Programm mit Hilfe des MSE (zu finden in dieser Ausgabe 
auf Seite 62) in den Speicher bringen. Man kann nun mit Hilfe 
eines Monitors, oder komfortabler, mit dem Testprogramm zu 
»Modulator« (siehe Listing 5) die Modulationsmöglichkeiten 
ausprobieren. »Modulator« wird mit SYS 50185 aktiviert. Von 
da an verbraucht das Programm Rechenzeit, egal ob etwas 
hörbar ist oder nicht. Abgeschaltet wird Modulator mit SYS 
50198. »Modulator« wird wie der SID über Registerinhalte 
gesteuert. Der Inhalt von 73 Speicherstellen nimmt Einfluß 
auf »Modulator« und darüber hinaus auch auf den SID. Im 
Registerschema in Bild 11 kann man zwischen Steuer¬ 
parametern und dynamischen Parametern unterscheiden. 
Steuerparameter werden von »Modulator« nur gelesen. Über 
sie wird das Programm gesteuert. Dynamische Parameter 
werden ständig verändert. Durch Auslesen dieser Werte 
kann man beobachten, wie »Modulator« arbeitet. Man kann 
diese Register natürlich auch beschreiben. Dadurch greift 
man direkt in die Arbeit von »Modulator« ein. Für weitere Spe¬ 
zialeffekte kann das sinnvoll sein. 

Da die meisten SID-Register von »Modulator« gesteuert 
werden, muß man nur noch wenige direkt ansprechen. Es 
sind dies: 

Die Konn^'register: 4, 11, 18 
ADSR-Register: 5, 6, 12, 13, 19, 20 
Resonanz/Filter: 23 
Die Leseregister: 25, 26, 27, 28 

Die anderen SID-Register findet man mit ähnlichem Aufbau 
unter den Steuerparametern von »Modulator«. Das Basic- 
Testprogramm enthält einen vollständigen Parametersatz für 
SID und »Modulator« in den Zeilen 20 bis 41. Diese Zeilen 
sind so gestaltet, daß sie mit LIST -41 gerade einen Bild¬ 
schirm füllen. Die DATA-Zeilen sind mit Kommentaren durch¬ 
setzt, so daß man den Zusammenhang mit dem Register¬ 
schema in Bild 10 leicht hersteilen kann. Beim Testprogramm 
geht man am besten so vor: 

- Modulator laden 

- NEW 

- Testprogramm laden 

- LIST -41 

Jetzt kann man den Parametersatz studieren und ver¬ 
ändern. 

- Cursor auf die Zeile mit READY bringen 

- RUN (SPACE) (SPACE) (SPACE) 

Dadurch bleibt der DATA-Block am Bildschirm stehen. Nach 
einiger Zeit wird die Dauer eines »Modulator«-Schrittes und 
die daraus resultierende CPU-Belastung angezeigt. Jetzt 
kann man mit den Tasten <F1>, <F3>, <F5> Stimmei, 
2, oder 3 auswählen und über die oberen beiden Tastenrei¬ 
hen einen Ton erklingen lassen. Der Ton klingt so lange wei¬ 
ter, bis mit der < SPACE > -Taste das GATE-Bit der gewählten 
Stimme zurückgesetzt wird. Das GATE-Bit des Software-EG 
wird ebenfalls gesetzt und rückgesetzt. Das einfache Basic- 
Programm reagiert nicht gerade flott, es ist aber auch nur zum 
Experimentieren mit »Modulator«-Klangbildern gedacht, 
nicht für virtuoses Spiel. Mit < RUN/STOP > wird das Pro¬ 
gramm abgebrochen. Während »Modulator« weiterarbeitet, 
kann man die Parameter in den DATA-Zeilen ändern, um das 
Programm neu zu starten. 
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Bild 11. Steuerparameter und dynamische Parameter im Programm »Modulator« 


Die Parameter 

Es gibt zunächst drei identische Blöcke für die drei Stim¬ 
men. Frequenz F und Pulsweite PW sind die gleichen 16- (be¬ 
ziehungsweise 12-)Bit-Größen wie beim SID. Das Byte 
PORTA steuert das Tempo, mit dem verschiedene Tonhöhen 
ineinander übergehen: 

PORTA = 1 sehr langsam 
PORTA = 255 sehr schnell 
PORTA = 0 kein Portamento 

FP ist ein dynamischer Wert. Er enthält die aktuelle Fre¬ 
quenz, die gemäß der PORTA-Rate immer in Richtung F gezo¬ 
gen wird, bis F und FP übereinstimmen. 

FILT enthält, wie beim SID, die Grenzfrequenz in der Auftei¬ 
lung: drei niederwertige Bits und acht höherwertige Bits. 

MOD/LAUT entspricht genau dem SID-Register 24. 

Der Kreuzschienenverteiler wird durch 8 Byte realisiert. 
Ein Byte entspricht einer Zeile im KSV (Kreuzschienenvertei¬ 
ler). Die acht Bitpositionen entsprechen den Spalten des 
KSV. Eine 1 an Bitposition N in Byte M entspricht einem Kurz¬ 
schlußstecker an Spalte N und Zeile M. 

Die sieben LFOs werden durch sieben gleichartige Blöcke 
gesteuert. 

LFOF Mit 16 Bit kann die LFO-Frequenz sehr fein im 
Bereich 0 bis 60 Hz eingestellt werden. Oberhalb von 10 Hz 
ergeben sich Aliasing-Effekte, über die weiter unten noch 
etwas gesagt wird. 

LFOP Dieses Byte steuert die Pulsweite, wenn als Kurven¬ 
form SQARE gewählt wurde. LFOP = 128 ergibt ein symme¬ 
trisches Rechteck. 


LFOA steuert die Amplitude des LFO-Signals. LFOA = 
103 entspricht übrigens einer Frequenzmodulation um eine 
Oktave. LFOA=0 ist nicht sinnvoll, da der LFO dann kein Aus¬ 
gangssignal liefert, aber Rechenzeit verbraucht. 

LFOC Dieses Steuerbyte bestimmt Kurvenform und Be¬ 
triebsart des LFO gemäß Bild 9. RUN ist die normale Be¬ 
triebsart, HOLD hält den letzten aktuellen Kurvenwert fest 
und RESET setzt den Kurvenwert in die Neutralstellung 0. In 
den Betriebsarten HOLD und RESET benötigen die LFOs 
sehr wenig Rechenzeit. Man sollte daher nicht benötigte 
LFOs in HOLD oder RESET »betreiben«. 

Der EG-Steuerblock enthält die gewohnten ADSR-Parame- 
ter. A soll sich im Bereich 0..128, alle anderen im vollen 
Bereich 0..255 bewegen. 

EGA Auch die Amplitude der ADSR-Kurve ist steuerbar. 

EGC steuert die Betriebsart. Für HOLD und RESET gilt hier 
das oben Gesagte (auch in bezug auf die Rechenzeit). GATE 
hat hier die gleiche Funktion wie auch im SID. Mit < + > und 
< - > kann man zwischen einer positiven und negativen Hüll¬ 
kurve umschalten. 

Es folgen sieben dynamische LFO-Blöcke, deren Register¬ 
inhalte den aktuellen Kurvenverlauf wiederspiegeln. In SAWUP 
befinden sich die Werte des aufsteigenden Sägezahns mit 
maximaler Amplitude. Aus ihnen werden die anderen Kurven¬ 
formen abgeleitet. In KURVE steht der aktuelle Wert der 
gewählten Kurvenform. 

Entsprechendes gilt für die Register £ und EKURVE im 
dynamischen Hüllkurvenblock. EPHASE wird benötigt, um 
zwischen ATTACK und DECAY zu unterscheiden. 
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Wir wollen nun anhand des Source-Listings des Pro¬ 
gramms Modulator zeigen, wie man Algorithmen zur Generie¬ 
rung verschiedener Signale unter zeitkritischen Nebenbe¬ 
dingungen programmieren kann. 

Eingangs wurde schon erwähnt, daß man jeden Signalver¬ 
lauf durch eine Folge von Stützwerten beschreiben kann. Da 
man diese Stützwerte digital codieren kann, wird so die Si¬ 
gnalerzeugung und -Verarbeitung mit dem Computer mög¬ 
lich. Man muß dabei allerdings mit einer Abtastfrequenz 
arbeiten, die mindestens doppelt so hoch ist wie die höchste 
Frequenz, die im verarbeiteten Signal vorkommt. Für Audio- 
signale in HiFi-Qualität ist somit eine Abtastfrequenz von min¬ 
destens 40 kHz erforderlich. Stellen wir dieser Frequenz ein¬ 
mal die Taktfrequenz von 1 MHz in unserem C 64 gegenüber: 
Eine Abtastperiode dauert bei 40 kHz 25 ^s. Diese Zeit ent¬ 
spricht genau 25 Taktzyklen im C64. Ein 6510-Maschi- 
nenbefehl dauert zwischen zwei und sieben Taktzyklen, das 
heißt, daß die CPU während einer Abtastperiode gerade vier 
bis maximal zwölf Befehle abarbeiten kann; zuwenig, um 
damit schon sinnvoll einen Signalabtastwert weiterzuverar¬ 
beiten. Die digitale Verarbeitung von Audiosignalen bleibt 
also zunächst einmal Hochleistungsrechnern und Spezial¬ 
prozessoren vorenthalten. 

Dreh- und Angelpunkt: Integer-Arithmetik 

Wenn man sich aber wie bei dem vorgestellten Programm 
Modulator auf eine Abtastfrequenz von 60 Hz beschränkt, 
dann sieht die Sache schon sehr viel günstiger aus. Während 
einer Abtastperiode von 16,6 Millisekunden (entsprechend 
16 600 Taktzyklen) kann man bei geeigneter Programmie¬ 
rung schon eine ganze Menge machen. Die Abtastfrequenz 
ist aber nicht das einzig wichtige Kriterium bei der Signalver¬ 
arbeitung. Eine Rolle spieltauch die Genauigkeit, mit der die 
Abtastwerte dargestellt und verrechnet werden. Natürlich gilt 
hier: Je genauer, desto besser. Genauigkeit kostet aber wie¬ 
der Rechenzeit, sobald man die Wortlänge des verfügbaren 
Prozessors (hier leider nur 8 Bit) überschreitet. Die Arithme¬ 
tikroutinen des Basic-Interpreters arbeiten zum Beispiel im 
FlieIJkommaformat mit 32-Bit-Mantisse. Sie bietet damit eine 
Genauigkeit, die selbst für sehr anspruchsvolle Probleme aus 
der Signalverarbeitung mehr als genug sein dürfte. Diese 
Routinen sind jedoch so langsam, daß sie auch in 16,6 Milli¬ 
sekunden nichts Vernünftiges tun können. Wir werden also 
unsere eigenen Arithmetikbefehlsfolgen programmieren 
müssen und dabei einen Kompromiß zwischen Genauigkeit 
und Geschwindigkeit machen. Gleitkommaarithmetik ist zu 
aufwendig und für unsere Zwecke auch gar nicht erforder¬ 
lich. Eine Genauigkeit von nur 8 Bit reicht allerdings auch 
nicht immer aus. So haben ja auch manche SID-Parameter 
eine Länge von 12 oder 16 Bit. Im Programm Modulator wird 
größtenteils mit 16-Bit-Zweierkomplex-Größen gerechnet. 
Es sei in diesem Zusammenhang auf den Assemblerkurs 
(Sonderheft 8/85) verwiesen, wo ausführlich beschrieben 
wird, wie man negative Zahlen im Zweierkomplement dar¬ 
stellt. Addition und Subtraktion von Zweierkomplement- 
Größen werden direkt durch die CPU-Befehle ADC und SBC 
sowie durch drei Flags (Negativ, Carry und Overflow) unter¬ 
stützt. Für die Multiplikation gibt es dagegen keinen Maschi¬ 
nenbefehl. Da die Multiplikation in Modulator aber eine zen¬ 
trale Rolle spielt, benötigen wir für sie ein effizientes (das 
heißt möglichst schnelles) Maschinenprogramm. 

Die Multiplikation 

Was ist 43 x 13? Die wenigsten Menschen dürften die 
Antwort auf einen Schlag parat haben, so wie zum Beispiel 
auf die Frage, was 3x7 ist. Wir brauchen 3x7 nicht auszu¬ 
rechnen, weil wir es auswendig wissen. Den Wert des Pro¬ 
dukts 43 x 13 werden die wenigsten auswendig kennen und 
daher zu rechnen anfangen. Eine solche Rechnung könnte 
(ausführlich) so aussehen: 


(1) 43x13 

(2) 4-T 

(3) 129 

(4) 559 

In Zeile (1) stehen dabei noch einmal die Faktoren. Zeile (2) 
stellt das Teilprodukt 43x10 = 430 dar, Zeile (3) das Teilpro- 
dukt43x3 = 129. Durch geeignetes Einrücken braucht man 
die Null bei 430 in Zeile (2) nicht mitschreiben. In Zeile (4) 
werden schließlich die Teilprodukte addiert. Dieser vertrau¬ 
ten Rechenweise liegt das Distributivgesetz zugrunde, wel¬ 
ches die Bildung von Teilprodukten erlaubt: 

(5) 43x(10+3) = (43x10) +(43x3) 

Die »komplizierte« Multiplikation 43 x 13 wird also auf »ein¬ 
fachere« Multiplikationen 43 x 10 und 43 x 3 zurückgeführt. 
Bezeichnen wir in unserem Beispiel die Zahl 43 als Multipli¬ 
kant (MD) und 13 als Multiplikator (MR), so können wir das 
Multiplikationsschema so formulieren: 

»Multipliziere MD mit den einzelnen Dezimalstellen von MR 
und addiere die Teilproduktion, die mit den entsprechenden 
Zehnerpotenzen 1,10,1000 etc. zu skalieren sind. Die Skalie¬ 
rung erreicht man aber einfach durch Linksverschieben um 
0,1,2 etc. Dezimalstellen.« 

Man kann den Multiplikator aber auch anders zerlegen, 
zum Beispiel in Zweierpotenzen: 

13 = 8 + 4 + 1 

und so multiplizieren: 

(6) 43x13 = 8x43 + 4x43 + 1 x43 

= 344 + 172 + 43 

= 599 

Man tc-iötigt hier als Summanden Produkte von MD mit 
Zweierpotenzen, die man leicht durch wiederholtes Verdop¬ 
peln von MD erhalten kann. Auf diese Weise sollen übrigens 
schon die alten Ägypter multipliziert haben. Wenn man nun 
MD und MR im Binärsystem darstellt, kann man besonders 
einfach multiplizieren: Die Produkte von MD mit Zweierpoten¬ 
zen erhält man ganz einfach durch wiederholtes Linksver¬ 
schieben. In unserem Beispiel gilt in binärer Schreibweise: 
MD=101011, MR=1101. Es ergibt sich das Schema: 

MD MR 

(7) 101011 x 1101 


( 8 ) 101011 
(9) 101011 

( 10 ) _ + 1010 11 

( 11 ) 1000101111 

In Zeile (7) stehen MD und MR. Die Zeilen (8), (9) und (10) 
entsprechen den Teilpodukten 43 x 8, 43 x 4 und 43 x 1, die 
durch Linksverschiebung aus MD hervorgehen. Die Summe 
in Zeile (11) ist genau die Binärdarstellung von 559 
(nachrechnenl). 

Nach diesem Schema kann man nun einen Algorithmus for¬ 
mulieren: Es sei dazu N die Zahl der Binärstellen von MR: 

1 SUM:=0; 

2 FOR I:=N-1 DOWNTO 0 DO 

3 BEGIN 

4 SUM := LINKS(SUM); 

5 IF MR(l)=1 THEN SUM:=SUM+MD 

6 END 

Der Algorithmus ist hier formal in einem Pascal-ähnlichen 
Stil dargestellt. SUM wird zunächst mit 0 vorbesetzt und dann 
N-mal nach links geschoben. Immer wenn dabei, von links 
nach rechts gezählt, in MR eine Eins auftritt, wird MD zu SUM 
addiert. 
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Sehen wir uns für unser Beispiel einen Trace des Pro¬ 
gramms an: 

MD=101011 MR=1101 N=4 


Zeile 

1 

MR(I)=1 

SUM 

AKTION 

1 

undef 

undef 

0 


4 

3 

true 

0 

LINKS 

5 

3 

true 

101011 

+ 

4 

1 

true 

1010110 

LINKS 

5 

2 

true 

10000001 

+ 

4 

1 

false 

100000010 

LINKS 

5 

1 

false 

100000010 

nichts 

4 

0 

true 

1000000100 

LINKS 

5 

0 

true 

1000101111 

+ 


Wir wollen diesen Algorithmus nun konkret in Maschinen¬ 
sprache realisieren. Wenn MD und MR zunächst auf 8 Bit 
begrenzt werden, kann man auf sie mit einem einzigen 
Maschinenbefehl zugreifen. Die Variable SUM hält man am 
besten im Akkumulator, weil man sie zum Addieren sowieso 
dorthin laden müßte. Auch die Linksverschiebung des Akku¬ 
mulators ist wesentlich schneller als die einer Speicherzelle. 
Beim Addieren in den Akkumulator und beim Linksverschie¬ 
ben treten allerdings Überträge auf, die nicht verloren gehen 
dürfen, da diese je gerade die höherwertigen Bits von SUM 
darstellen. Das Endprodukt, das sich in SUM bildet, kann bis 
zu 16 Bit lang werden. (In unserem Beispiel sind es immerhin 
schon 9 Bit.) Bild 12 zeigt eine elegante Realisierung des 
Algorithmus, die mit nur zwei Speicherplätzen auskommt. 



Die langen Rechtecke stellen die Speicherstellen MD, MR 
und den Akkumulator dar, fette Linien stehen für Bytepfade, 
dünne für Bitpfade. »+« versinnbildlicht die Addition A := A 
+ MD. In diesem Schema werden MR und A zusammen (wie 
ein 16-Bit-Register) nach links geschoben. Dadurch erschei¬ 
nen die Bits von MR nacheinander in der Carry-Flagge und 
können so leicht abgefragt werden. MD wird nur dann zum 
Akku addiert, wenn das durch Linksverschiebungen aus MR 
gewonnene Bit Eins ist. Ein Übertrag bei der Addition in den 
Akku muß natürlich nach MR weitergegeben werden, da MR 
gleichzeitig auch die höherwertigen Bits von SUM enthält. 
Durch die doppelte Nutzung der Speicherstelle MR wird der 
Multiplikator zwar durch das höherwertige Byte von SUM 
überschrieben, man spart sich dadurch aber einen Schiebe¬ 
befehl und einen Speicherplatz. Da wir wegen schnelleren 
Zugriffs MD und MR in der Zero-Page plazieren werden, und 
da der freie Platz dort knapp ist, ist die Einsparung von Spei¬ 
cherplatz durchaus gerechtfertigt. Hier das Programm, das 
ausführlich besprochen werden soll: 


MUL LDA # 0 

(2) 

SUM:=0 

LDX #8 

(2) 

Schleifenzähler 

LOOP ASL A 

(2) 

Registerpaar 

ROL MR 

(5) 

(MR.A) n. links 

BCC NEXT 

( 2 / 3 ) 


CLC 

(2) 


ADC MD 

(3) 

SUM:=SUM+MD 

BCC NEXT 

( 2 / 3 ) 


INC MR 

(5) 

Übertrag nach MR 

NEXT DEX 

(2) 


BNE LOOP 

(2/3) 

nächster Lauf 



Die Zahlen in Klammern geben die Ausführungszeiten der 
Befehle in Taktzyklen an. Sie sind aus Tabelle 7 entnommen. 
Bei den Verzweigungen nehmen wir der Einfachheit halber 
an, daß keine Page-Grenzen übersprungen werden, sonst 
müßte man im Falle eines Sprunges vier statt drei Takte in 
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Rechnung stellen. Zur Arbeitsweise des Programms: Zuerst 
wird SUM mit 0 vorbesetzt. Dazu genügt es, den Akku mit 0 
zu besetzen, da die höherwertigen Bits von SUM erst durch 
den Schiebeprozeß entstehen. Das X-Register zählt die 
Schleifendurchläufe. Innerhalb der Schleife wird zunächst 
das Registerpaar (MR.A) durch das Befehlspaar ASL.ROL 
nach links verschoben. Beide Befehle schieben nach links, 
wobei Bit 7 in das Carry-Flag geschoben wird. Der Unter¬ 
schied der beiden Befehle besteht aber darin, daß ASL das 
Bit 0 immer mit Null besetzt, während ROL Bit 0 mit dem Wert 
besetzt, den das Carry-Flag vor dem ROL-Öefehl hatte. In 
unserem Fall ist das gerade das aus dem vorhergehenden 
ASL stammende Bit 7 vom Akku. Nach der Verschiebung 
zeigt das aus MR stammende Carry-Bit an, ob MD zu SUM 
addiert werden soll oder nicht. Falls nicht, wird mit BCC N EXT 
die Addition übersprungen. Die Addition selbst berücksich¬ 
tigt durch ein weiteres BCC NEXT/INC MR einen eventuell 
auftretenden Übertrag nach MR. Die Speicherstelle MR ent¬ 
hält zwar gleichzeitig Teile vom Multiplikator und von SUM, 
man kann sich aber überlegen, daß ein Übertrag nach MR nur 
den SUM-Teil, aber nicht den Multiplikatorteil beeinflußt. Nach 
dem Verlassen der Schleife steht schließlich das 16-Bit-Pro- 
dukt (die Variable SUM) im Registerpaar (MR.A). Der Multipli¬ 
kator wurde überschrieben, der Multiplikant in MD dagegen 
ist unverändert erhalten geblieben. 

Zeltbedarf 

Es soll hier exemplarisch gezeigt werden, wie man den 
genauen Zeitbedarf eines Maschinenprogramms ermittelt. 
Die Ausführungszeit des Multiplikationsprogramms ist nicht 
einheitlich. Sie hängt von den Anfangswerten von MR und 
MD ab, welche das Verhalten des Programms an den beiden 
Verzweigungsstellen (BCC NEXT) beeinflussen. Wir werden 
hier also den günstigsten (in bezug auf die Rechenzeit) und 
den ungünstigsten Fall untersuchen. Im ungünstigsten Fall 
muß bei jedem Schleifendurchlauf addiert werden. Zusätzlich 
tritt bei jeder Addition ein Übertrag auf. Der Zeitbedarf eines 
Schleifendurchlaufes beträgt dann: 

2( ASL) + 5(ROL)+2(BCC) + 2(CLC)+3(ADC)+2(BCC) + 5 
(INC)+2(DEX)+3(BNE) = 26 Takte 
Die Gesamtdauer der Multiplikation ergibt sich dann so: 
2(LDA)+2(LDX)+8*26(Schleife)-1=211 
Die -1 kommt dadurch zustande, daß beim letzten Schlei¬ 
fendurchlauf bei BNE nicht gesprungen wird und dadurch nur 
zwei statt drei Takte benötigt werden. 

Im günstigsten Fall (MR=0, die Addition wird immer über¬ 
sprungen) braucht die Schleife: 

2(ASL)+5(ROL)+3(BCC) + 2(DEX)+3(BNE) = 16 Takte 
Gesamtdauer: 

2(LDA)+2(LDX)+8*16(Schleife)-1 = 131 
Die Ausführungszeit der Multiplikation liegt also immer zwi¬ 
schen 131 und 211 Takten, wobei die Grenzwerte wohl sel¬ 
ten erreicht werden dürften. Man kann im Mittel wohl mit zirka 
170 Takten rechnen. Es ist für unsere Zwecke sehr wichtig, 
diese Größe zu kennen. Wenn wir in unserem Programm Mo¬ 
dulator für einen Schritt eine Zeit von maximal 16,6 Millise¬ 
kunden zur Verfügung haben, so können wir daraus eine 
theoretische Obergrenze für die Anzahl der in einem Schritt 
ausführbaren Multiplikationen ableiten. Sie liegt bei unserer 
8x8-Bit-Multiplikation etwa bei 75, wenn man den ungün¬ 
stigsten Fall zugrunde legt. 

Multiplikation mit größerer Wortlänge 

Bei Modulator wird die Multiplikation für folgende Zwecke 
benötigt: Die LFOs und der Hüllkurvengenerator erzeugen 
Werteverläufe mit maximaler Amplitude. Das bedeutet bei der 
16-Bit-Zweierkomplement-Arithmetik, in der hauptsächlich 
gerechnet wird, daß die Werte den zur Verfügung stehenden 
Bereich von -32768 bis +32767 meistens voll ausschöp¬ 
fen. Nun möchte man aber oft das Modulationsziel, zum Bei¬ 


spiel die Frequenz einer SID-Stimme, nur um einige Hertz 
nach oben und unten modulieren. Man möchte die Tiefe die¬ 
ser Modulation aber auch möglichst kontinuierlich steuern 
können, so daß zum Beispiel auch Modulationstiefen von 
einer Quinte oder gar einer Oktave möglich sind. Aus diesem 
Grund muß das Modulationssignal erst mit einem geeigneten 
Skalierungsfaktor multipliziert werden. Anschließend kann es 
durch einfache Addition zur Zielgröße diese in dem ge¬ 
wünschten Sinn modulieren. 

Bei der Modulation von Tonhöhen ergibt sich außerdem 
noch ein weiteres Problem: Dort kommt es nicht auf absolute, 
sondern auf relative Frequenzverschiebungen an. Ein Bei¬ 
spiel: Ein 500-Hz-Ton wird um ±5 Hz moduliert. Um bei 
einem 1 OOO-Hz-Ton den gleichen Effekt zu erzielen, muß 
man ihn um ±10 Hz modulieren. Der Modulationsbetrag muß 
also bei Tonhöhen zusätzlich mit der zu modulierenden Fre¬ 
quenz selbst skaliert werden, was eine weitere Multiplikation 
erforderlich macht. 

Die Wortlängen der Modulationsziele sind: 


Tonfrequenzen 

16 Bit 

Pulsweiten 

12 Bit 

Filterfrequenz 

8 Bit 

Lautstärke 

4 Bit 


Die Filterfrequenz ist beim SID zwar eine 11-Bit-Größe, da 
aber feine Frequenzunterschiede in der Filterfrequenz nicht 
hörbar sind, werden nur die oberen acht Bit moduliert. 

Modulationstiefe 


Zur Steuerung der Modulationstiefe genügen acht Bit. Eine 
fein gestufte Modulation ist ohnehin nur bei der Tonhöhenmo¬ 
dulation erforderlich. Hier genügt es aber, wenn das Modula- 
tionssig. .1 selbst einen fein gestuften Verlauf (16 Bit) hat. Die 
durch 8 Bit realisierbaren 255 verschiedenen Modulations¬ 
tiefen reichen aus, um alles vom feinsten Vibrato über Tonhö¬ 
hensprünge in allen musikalisch sinnvollen Intervallen bis hin 
zur Sirene mit weitem Frequenzbereich zu verwirklichen. 

Wir benötigen also eine 16 x 8-Bit-Multiplikation. Der Algo¬ 
rithmus von Bild 12 ließe sich in diese Richtung leicht erwei¬ 
tern. Man kann entweder MR auf 16 Bit verlängern und benö¬ 
tigt dann 16 statt acht Schleifendurchläufe, oder man verlän¬ 
gert MD und A auf 16 Bit. In letzterem Fall benötigt man wei¬ 
terhin nur acht Schleifendurchläufe, wobei aber, im Falle einer 
Eins aus MR, zwei 16-Bit-Größen (MD und A) addiert werden 
müssen. Natürlich braucht man für das höherwertige Byte 
von A einen weiteren Speicherplatz In der Zero-Page. 


10-Bll'Multiplikator 
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Bild 13. Schema einer 16 x 8-Bit-Multiplikation 
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ln Modulator wird ein anderer Weg eingeschlagen. Er wird 
durch Bild 13 beschrieben. Dieses erscheint zwar zunächst 
sehr kompliziert, das zugehörige Programm benötigt aber 
eine geringere Ausführungszeit. Vorgegeben sind ein 16-Bit- 
Multiplikator im Registerpaar (MR+1.MR) und ein 8-Bit- 
Multiplikant in MD. (Der Einfachheit halber werden hier Zero- 
Page-Speicherplätze »Register« genannt.) Das Ergebnis des 
Programms soll ein 24-Bit-Produkt im Register Tripel 
(MR+1.MR.A) sein. 

Zuerst wird das niederwertige Teilprodukt MR x MD gebil¬ 
det. Das Rechteck mit dem Kreuz steht für das Verfahren aus 
Bild 12, welches wie schon beschrieben ein 8x8-Bit- 
Produkt in (MR.A) liefert. A wird im Y-Register zwischenge¬ 
speichert. Anschließend werden MR+1 und MD ebenfalls 
nach Bild 12 multipliziert. Das Ergebnis ist das höherwertige 
Teilprodukt in (MR+1. A). Schließlich müssen die Teilprodukte 
nur noch mit richtiger Skalierung addiert werden. Dazu wird 


das höherwertige Byte des niederwertigen Teilprodukts, das 
in MR steht, zum niederwertigen Byte des höherwertigen 
Teilprodukts, das sich schon im Akku befindet, addiert. Dabei 
muß ein eventueller Übertrag nach MR + 1 berücksichtigt 
werden. Das niederwertige Byte des niederwertigen Teilpro¬ 
dukts wird nur noch vom Y-Register in den Akku übertragen, 
wo es den niederwertigsten Teil des Endprodukts darstellt. In 
Modulator werden allerdings grundsätzlich nur 16-Bit- 
Größen weiterverarbeitet, so daß diese untersten acht Bit 
des Produkts unberücksichtigt bleiben. 

Im Source-Listing zu Modulator (Listing 6) steht das zuge¬ 
hörige Programm MULU in den Zeilen 1680 bis 1970. Zu¬ 
nächst steht dort zweimal hintereinander das schon vorge¬ 
stellte 8x8-Bit-Multiplikationsprogramm, anschließend wer¬ 
den ab Zeile 1910 die Teilprodukte addiert. Eine Analyse 
ergibt eine Laufzeit von minimal 282 Takten und maximal 446 
Takten. 


LFO-Kurvenverläufe 


* 

2 '8-1 i 



Bild 14. So gehen die von einem Software-LFO erzeugbaren Kurven aus SAWUP hervor 
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Alle bisher beschriebenen Multiplizierer arbeiten nur dann 
korrekt, wenn man die Faktoren als positive Ganzzahlen inter¬ 
pretiert. Sie sind ohne Ergänzung nicht für Zweierkomple¬ 
ment-Größen geeignet. Das Programm MULS ab Zeile 2020 
ist eine solche Ergänzung. Es berücksichtigt das Vorzeichen 
des Multiplikators. Ist dieser positiv, so wird sofort nach 
MULU verzweigt. Ein negativer Multiplikator wird zunächst 
negiert, wodurch er positiv wird (Zeile 2040 bis 2100), 
MULU wird als Unterprogramm aufgerufen, und schließlich 
wird das positive Produkt noch einmal negiert, was dann ein 
korrektes Resultat liefert. Der 8-Bit-Multiplikant wird aber 
nach wie vor nur als positive Zahl behandelt. 

Die LFOs 

Sie erzeugen die für Modulationen sinnvollen Kurvenver¬ 
läufe als Folge von 16-Bit-Zweierkomplement-Zahlen. Am 
häufigsten wird die Dreieckskurve benötigt, da sie keine 
Sprünge macht und daher bei Anwendung auf Tonhöhen und 
auf Pulsweiten am angenehmsten klingt. Der Sägezahn eig¬ 
net sich mehr für »härtere« Effekte und für Videospiele, wo 
stark und schnell modulierte Töne oft zu hören sind. Die 
Rechteckkurve eignet sich für Triller (bei Frequenzmodula¬ 
tion), für mandolinenartige Effekte (bei Modulation von Laut¬ 
stärke und Filterfrequenz) sowie für rhythmische Effekte (bei 
Frequenzmodulation mit größerer Modulationstiefe). 

Rechnerisch kann man einen sägezahnförmigen Wertver¬ 
lauf besonders einfach erzeugen. Bei Modulator wird einfach 
ein 16-Bit-Wert zyklisch hochgezählt. Zyklisch bedeutet, daß 
immer wieder beim Minimalwert angefangen wird, wenn der 
Maximalwert überschritten wird. Das geschieht bei begrenz¬ 
ter Wortlänge automatisch durch Überlauf, den man hier 
absichtlich unberücksichtigt läßt. Im Modulator-Programm 


wird der Werteverlauf durch das Wort (=Bytepaar) SAWUP 
repräsentiert. SAWUP wird einfach um den Betrag im Wort 
LFOF hochgezählt. Dadurch ist die resultierende Frequenz 
der Sägezahnkurve direkt proportional zum Wert LFOF. Im 
Quell-Programm wird in Zeile 2300 bis 2420 erst das Steu¬ 
erregister LFOC abgefragt. Im Falle des HOLD- oder RESET- 
Status braucht nichts berechnet zu werden. Im Falle des 
RUN-Status wird SAWUP in den Zeilen 2430 bis 2510 hoch¬ 
gezählt. Der aufsteigende Sägezahn wird dann gewisserma¬ 
ßen als »Master« für die anderen Kurvenformen herangezo¬ 
gen. Bild 14 zeigt, wie diese aus SAWUP gewonnen werden. 

Interessant Ist, daß gleichgültig, ob man die SAWUP-Werte 
im Zweierkomplement oder grundsätzlich positiv interpre¬ 
tiert, sich immer der gleiche Kurvenverlauf ergibt (gestri¬ 
chelte und durchgezogene Kurve bei SAWUP). 

Die Rechteckkurve entsteht dadurch, daß man, gesteuert 
durch SAWU, zwischen den Extremwerten +LFOA x 2 7 und 
-LFOA x 2 7 hin- und herschaltet. Man spart sich so die 
sonst anschließend fällige Multiplikation mit der LFO- 
Amplitude (= Modulationstiefe) LFOA. Hin- und hergeschal¬ 
tet wird, wenn der Sägezahnwert einen vorgegebenen 
Schwellwert über- beziehungsweise unterschreitet. Dieser 
Schwellwert ist nichts anderes als die Pulsweite LFOP. SAW- 
DOWN erhält man einfach durch Negieren von SAWUP. Bildet 
man das Maximum von SAWUP und SAWDOWN, so erhält 
man einen dreieckförmigen Kurvenverlauf, der allerdings nur 
positive Werte annimmt. Durch Verdoppeln dieser Werte und 
Verschiebung um 2 ,s nach unten erhält man dann eine sym¬ 
metrische Dreieckskurve maximaler Amplitude. 

Im Source-Programm wird in Zeile 2530 bis 2590 aus 
LFOC ermittelt, welche Kurvenform überhaupt erzeugt wer- 
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den soll und entsprechend weiterverzweigt. Mit Ausnahme 
des Rechtecks, das schon mit seiner endgültigen Amplitude 
aufwartet, wird der errechnete Wert noch mit der Amplitude 
LFOA multipliziert (Zeile 3090 bis 3170). Das LFO-Pro- 
gramm berechnet alle sieben LFOs. Dabei wird auf die jeweili¬ 
gen Parameter indiziert zugegriffen. Das Byte LFONR enthält 
dazu einen Adreß-Offset, der vom LFO-Programm in das 
X-Register geladen wird. Dieser Offset muß vom Programm, 
welches das LFO-Programm aufruft, korrekt zur Verfügung 
gestellt werden. 

Aliasing - Parasitäre Fiequnzen 


Bei der eben beschriebenen Erzeugung der LFO-Kurven- 
formen tritt bei etwas höheren Frequenzen, etwa ab 10 Hz, 
noch ein interessantes Phänomen auf. Man kann die Erzeu¬ 
gung eines Sägezahnverlaufs durch zyklisches Hochzählen 
eines Wortes auch als Abtastung einer hypothetischen, kon¬ 
tinuierlichen Sägezahnkurve auffassen. Die Abtastfrequenz 
ist in unserem Fall mit 60 Hz fest. Die Frequenz der hypotheti¬ 
schen Sägezahnkurve kann man aber durch den Parameter 
LFOF sehr feinstufig zwischen 0 und 60 Hz variieren. Wie 
soll aber zum Beispiel eine LFO-Kurve mit 50 Hz aussehen, 
wenn man nur 60 Abtastwerte pro Sekunde hat? Die Antwort 
gibt Bild 15. Man erhält den gestrichelten Verlauf mit einer 
Frequenz von nur 10 Hz. Noch seltsamer sieht das Resultat 
bei einer LFO-Frequenz von 25 Hz aus. Die Folge der Abtast¬ 
werte schwingt zwar ungefähr im Rhythmus von 25 Hz, die¬ 
ser Bewegung ist aber zusätzlich ein Auf und Ab im 10-Hz- 
Rhythmus überlagert. 


Der theoretische Hintergrund dieser Erscheinung sei hier 
nur gestreift: Nach dem Abtasttheorem muß die Abtastfre¬ 
quenz mindestens doppelt so hoch sein wie die höchste im 
abzutastenden Signal vorkommende Frequenz, damit die Ab¬ 
tastfolge dieses Signal richtig repräsentiert. Andernfalls 
weist die Abtastfolge Frequenzanteile auf, die im Originalsi¬ 
gnal gar nicht Vorkommen. Man nennt diesen Effekt Aliasing 
(von lat. alias = anderswo). In unserem Fall können die Bedin¬ 
gungen des Abtasttheorems nie vollständig erfüllt werden, da 
der ideale Sägezahn Obertöne beliebig hoher Ordnung ent¬ 
hält. Im ersten Fall von Bild 14 wird das Abtasttheorem grob 
verletzt: Die Abtastfrequenz ist bei weitem nicht doppelt so 
groß wie die Signalfrequenz. Als Resultat tritt nur eine 
Aliasing-Frequenz von 10 Hz auf. Im zweiten Fall wird das 
Abtasttheorem immerhin für die Grundschwingung des Si¬ 
gnals erfüllt. 60 Hz ist mehr als doppelt so groß wie 25 Hz. 
Die 25 Hz sind in der Folge der Abtastwerte auch erkennbar. 
Die zweite Harmonische des Signals ist aber mit 50 Hz schon 
zu hoch für die Abtastung. Ihre Amplitude beträgt immerhin 
die Hälfte der Amplitude der Grundschwingung, wie eine 
Fourier-Analyse ergibt. Und genau diese Harmonische findet 
man auch hier als eine Aliasing-Frequenz von 10 Hz in der 
Folge der Abtastwerte wieder. 

Aliasing tritt auch schon bei niedrigeren LFO-Frequenzen 
als 25 Hz auf. Der Effekt wird dann aber schwächer, weil die 
dafür verantwortlichen Obertöne von höherer Ordnung und 
damit von niedrigerer Amplitude sind. Mit dem Aliasing-Effekt 
kann man bei bewußtem Einsatz zusätzliche interessante 
Modulationen verwirklichen. 

Nach diesem etwas anstrengenden theoretischen Teil wer¬ 
den wir uns wieder der Tonerzeugung selbst zuwenden. 
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Bild 16. Hauptmenü des Sound-Editors 


Bild 18. Untermenü Filter/Lautstärke 



Bild 17. Untermenü Stimmenparameter 



Bild 19. Untermenü LFO 


Der »Sound-Editor« 


Die meisten modernen digitalen Synthesizer haben eine 
Gemeinsamkeit: eine fast unüberschaubare Vielzahl von Ein¬ 
stellmöglichkeiten. Das auf den letzten Seiten beschriebene 
Programm Modulator ist da keine Ausnahme. Um die reichhal¬ 
tigen Möglichkeiten auszuloten, die dieses Programm bietet, 
benötigt man ein komfortables Editorprogramm, sonst läßt 
die Motivation beim Jonglieren mit Bits, Bytes, PEEK und 
POKE bald nach. Ein solches Programm, der »Sound-Editor« 
(Listing 7), wird hier vorgestellt. Es zeigt die über 70 Parame¬ 
ter des SID und von Modulator, übersichtlich nach Funktions¬ 
gruppen geordnet, auf dem Bildschirm an und erlaubt einen 
schnellen Zugriff auf alle Einstellwerte. Diese Einstellwerte 
können geändert werden, während ein Ton klingt, so daß die 
Wirkung der Einstellung unmittelbar überprüft werden kann. 
Zudem kann man Töne im Bereich von zwei Oktaven direkt 
über die Tastatur anspielen. Dabei können zwar nicht meh¬ 
rere Tasten gleichzeitig gespielt werden, man kann aber zwei 
oder drei SID-Stimmen mit einem Tastendruck gleichzeitig 
erklingen lassen. Darüber hinaus verwaltet das Programm 24 
Parametersätze, im folgenden Sounds genannt, im Arbeits¬ 
speicher. Diese 24 Sounds können als eine Datei von Dis¬ 
kette geladen, bearbeitet und wieder gespeichert werden. 

Das abgedruckte Programm kann man beim Programmser¬ 
vice bestellen oder auch selbst abtippen, was bei 100 
Blöcken leider etwas mühsam ist. Man sollte aber trotzdem 
alle Zeilennummern (auch die REM-Zeilen!) eintippen, da 
viele Zeilen angesprungen werden, auch wenn sie nur Kom¬ 


mentare enthalten. Man hüte sich aber davor, ein RENUM- 
BER-Utility auf das Programm anzuwenden. Die meisten 
Sprünge werden nämlich nicht über die Basic-Befehle GOTO 
und GOSUB abgewickelt, sondern über zwei Maschinenpro¬ 
gramme GT und GS (darüber später mehr). Diesen Umstand 
kann ein RENUMBER-Programm natürlich nicht berück¬ 
sichtigen. 

Der Sound-Editor ist nur zusammen mit dem Programm 
Modulator (Listing 4) lauffähig. Dieses Programm muß auf 
Diskette als absolut zu ladende Datei (Bereich $0075 bis 
$0422) unter dem Namen »MODULATOR« vorliegen. 

Jetzt müßte der Sound-Editor, sofern er fehlerfrei einge¬ 
tippt wurde, laufen. Da es sich hier um ein Programm handelt, 
das überwiegend in Basic geschrieben ist, ist ein umfangrei¬ 
cher Initialisierungsteil, der etwa 30 Sekunden beansprucht, 
leider unvermeidbar. Das Warten wird dann allerdings durch 
Komfort und durchaus akzeptable Geschwindigkeit belohnt. 

Der Sound-Editor meldet sich mit dem Hauptmenü (Bild 16) 
mit dem Namen MODULATOR. Damit soll betont werden, daß 
Modulator der eigentliche Kern des Programms ist. Der 
Sound-Editor wird ausschließlich über die Tastatur bedient, 
wobei sich die meisten Funktionen mit einem einzigen 
Tastendruck auslösen lassen. Es ist durchgehend das WYSI- 
WYG-Konzept (What You See Is What You Get) verwirklicht, 
das heißt, alle in einer Situation verfügbaren Kommandos 
werden am Bildschirm angezeigt. Eine Ausnahme bilden die 
sieben Kommandos zur Auswahl der Untermenüs, die zwar 
nur im Hauptmenü angezeigt werden, aber auch in jedem 
Untermenü funktionieren. Das achte Kommando (»Sequen- 
cer«) ist in Bild 16 noch nicht implementiert. Diese äußerst 
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Bild 20. Untermenü Software-EG 
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Bild 22. Untermenü Sounds 
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Bild 21. Untermenü KSV (Kreuzschienenverteiler) 
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Bild 23. Untermenü Disk 


leistungsstarke Funktion werden wir erst später besprechen. 
Man kann also direkt von einem Untermenü ins andere sprin¬ 
gen. Den Umweg über das Hauptmenü benötigt man eigent¬ 
lich nur, wenn man die Kommandos nicht mehr weiß. 

Das untere Drittel des Bildschirms ist in allen Menüs iden¬ 
tisch. Es zeigt eine stilisierte Klaviatur über zwei Oktaven, der 
auf dem Computer die oberen beiden Tastenreihen entspre¬ 
chen. Mit diesen Tasten kann man bis zu drei SID-Stimmen mit 
einem Tastendruck anspielen. Mit dem Kommando V und 
einer Ziffer 1, 2 oder 3 können die zu spielenden Stimmen 
aktiviert oder desaktiviert werden. Angezeigt wird das rechts 
neben der Klaviatur. Die Funktion SUSTAIN bewirkt, daß der 
Ton nach dem Loslassen einer Tontaste weiterklingt, sofern 
ein SUSTAIN-Pegel größer als Null eingestellt ist. Die GATE- 
Bits des SID werden bei aktivierter SUSTAIN-Funktion nicht 
zurückgesetzt. Mit dem Drücken der Space-Taste wird das 
GATE-Bit des Software-Hüllkurvengenerators (Soft-EG) 
gesetzt, durch Loslassen zurückgesetzt. Der Soft-EG wird 
also durch < SPACE > ausgelöst, vorausgesetzt, seine Para¬ 
meter haben sinnvolle Werte. Das Auslösen des Soft-EG 
kann man mit Shift Space an die Tontasten koppeln, was bei 
den meisten Soft-EG-Anwendungen sinnvoll sein dürfte. 
Auch die SUSTAIN-Funktion und die Koppelung des Soft-EG 
werden rechts neben der Klaviatur angezeigt. 

Die Beeinflussung der Parameter in den Untermenüs 
erfolgt nach einheitlichem Schema: Der zu ändernde Para¬ 
meter wird mit den Cursor-Tasten angewählt und mit den f- 
Tasten verstellt. Je nach Anzahl der Parameter sind dabei alle 
vier Cursortasten oder nur die Tasten Cursor-Iinks und 
Cursor-rechts wirksam. Auch die Funktionsweise der f-Tasten 


ist einheitlich: Numerische Parameter werden durch <f1 > 
und <f7 > in großer und durch <f3> und <f5> in kleiner 
Schrittweite verstellt. Bei nichtnumerischen Parametern wird 
die Funktion der f-Tasten am Bildschirm angezeigt. 

Bei numerischen Parametern werden bis auf eine Aus¬ 
nahme direkt die Werte der SID- oder Modulatorregister 
angezeigt. Bei der Ausnahme handelt es sich um die Basis¬ 
frequenzen der drei Stimmen (Bild 17, Parameter F). Diese 
Basisfrequenz ist der tiefste spielbare Ton (Taste Q). Sie wird 
nicht in Hertz, sondern in einer musikalisch sinnvollen Nota¬ 
tion angegeben. Sie besteht aus Notennamen, einer Oktav¬ 
nummer und einer Verstimmung in Cent. Die Oktavnummern 
bewegen sich im Bereich 0 bis 5. Dabei entspricht A 4 dem 
440-Hz-Ton, der in der Musik korrekt »eingestrichenes a« 
heißt. Ein Cent ist ein hundertstel Halbton. Der Parameter 
bewegt sich von -49 bis +50. Die etwas komplizierte 
Berechnung der Basisfrequenz in Hz und in SID-Register- 
werten findet man in den Programmzeilen ab 3110. 

Alle anderen Sound-Parameter sind anhand der Menübil¬ 
der, in denen sie auftreten (Bild 17 bis 21), leicht identifizier¬ 
bar und bedürfen keiner weiteren Erläuterung. 

Im Menü SOUNDS (Bild 22) können ganze Parametersätze 
(jeweils 107 Byte, siehe auch Tabelle 8) mit Namen versehen 
und im Speicher abgelegt werden. Angewählt werden die 
Sounds hier nicht über die Cursor-Tasten, sondern über die 
Tastenkombinationen AI bis C8. Die 24 Sounds sind alle mit 
der Parametereinstellung, die beim Programmstart vorliegt, 
vorbesetzt. Eine Gruppe von 24 Sounds kann im Menü DISK 
(Bild 23) auf Diskette gespeichert und wieder geladen 
werden. 
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Real 

A 

AD 

AN 

AV 

B 

CL 

DO 

EG 

F 

Fl 
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I.J.K 

L 

LN 

M 
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NS 
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PM 

PR 

PV 

PW 

PI 

P2 

RF 
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SA 


allgemeine Verwendung, ASCII-Codes 
allgemeine Adresse 
Auswahlnummer bei EG 
(0=A 1 = D2=S3=R4 = EGA) 

Auswahlvektor bei Parameterwahl durch Cursor 
allgemeine Verwendung 
Startadresse CLEAR (Zelle 0 bis 14) 

Startadresse DOKE 

Status des Soft-EG (0 = abgekoppelt, -1 = angekoppelt) 

allgemeiner Farboode 

Code für Normalfarbe 

Code für Hervorhebungsfarbe 

Basisadresse Farb-RAM 

Startadresse berechnetes GOSUB 

Startadresse berechnetes GOTO 

allgemeine Laufvariablen 

String-Länge 

Nummer des aktuellen LFO 
aktuelles Untermenü (0 bis 7) 

Basisadresse Modulator 
Sound-Nummer (0 bis 23) 

Oktave (temporär) 0 bis 5 
Tonhöhen-Offset (temporär) -49 bis +50 
Parameter-Zieladresse 

Farb-RAM-Adresse des aktuellen Parameterfeldes 
Maximum +1 des aktuellen (numerischen) Parameters 
Startadresse PRINT AT 

Sprungvektor zur Weiterverarbeitung des aktuellen 
Parameters 

Wert des aktuellen Parameters 
Schrittweite langsam 
Schrittweite schnell 
RES/FILT Inhalt von SID $17 
Spalte allgemein 

Sound-Adresse (Anfang eines Parameterblocks) 


Sl 
SN 
SO 
T 

X,Y 
Z 

ZN 

Strings 

A$ 

F1$ 

F2$ 

DNS 
Znhlon-Arrays 
AD(2) 

BF(2) 

C<2) 

C1 (2) 

0 ( 2 ) 

OF(2) 

S(2) 

SR(2) 

T(2) 

TH(24) 
TN%(255) 


V%(7,255) 
String-Arrays 
BL$(6) 
KF$(3) 
KV$(3) 
MD$(3) 

TN$(11) 


Basisadresse SID 
Nummer der aktuellen Stimme 
Basisadresse Sounds 
Tonnummer (temporär) 0 bis 11 
allgemeine Verwendung 
Zelle allgemein 
Zellennummer allgemein 

Eingabezeichen, allgemeine Verwendung 
Steuerzeichen Normalfarbe 
Steuerzeichen Hervorhebungsfarbe 
Dateiname 

Attack/Decay für 3 Stimmen 
Basisfrequenz für 3 Stimmen 
Controlbyte (GATE aus) für 3 Stimmen 
Controlbyte (GATE an) für 3 Stimmen 
Oktaven für 3 Stimmen 0 bis 3 
Tonhöhen-Offset für 3 Stimmen -49 bis +50 
Status der Stimmen (0 = inaktiv, -1 = aktiv) 
Sustain/Release für 3 Stimmen 
Tonhöhennummer für 3 Stimmen 0 bis 11 
relative Tonhöhen 
Tonnummern (0 bis 24) 

TN%(A) = Nummer des Tones bei Tastendruck 
CHR$(A) 

Sprungvektoren 


0 bis 6 Blanks 

LFO-Kurvenformen grafisch 

Namen der LFO-Kurvenformen 

Namen der Modulationsquellen-Modi: RESET, 

HOLD, RUN 

Namen der Töne: C, C#, D, D#, E, F, F#, G, G#, 
A, A#, H 
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Tabelle 8. Variablen des Sound-Editors 


Bemerkungen zum Programm 


Es soll hier nicht die Arbeitsweise des Sound-Editors im 
Detail beschrieben, sondern nur einige Bemerkungen zum 
Stil des Programms gemacht werden. In dem Programm wer¬ 
den sehr viele Tastenkommandos akzeptiert, die in verschie¬ 
denen Menüs und bei den verschiedenen Parametern auch 
noch unterschiedliche Bedeutung haben. Um in dieser Situa¬ 
tion die Übersicht zu behalten (Anliegen des Programmie¬ 
rers) und um das Programm trotz Realisierung in Basic akzep¬ 
tabel schnell zu halten (Anliegen des Anwenders), werden 
die vielen Einzelroutinen von zentraler Stelle aus über varia¬ 
ble Vektoren angesprungen. Zwar unterstützt Basic mit den 
Befehlen ON GOTO und ON GOSUB Mehrfachverzweigun¬ 
gen, diese sind aber bei der hier in Frage kommenden sehr 
großen Zahl von Sprungzielen schlecht einzusetzen. Die bei¬ 
den Maschinenprogramme GS und GT (siehe auch Tabelle 9) 
erlauben dagegen (Unterprogramm-)Sprünge zu Zeilen, 
deren Nummer ein beliebiger arithmetischer Ausdruck oder 
eine Variable, der Sprungvektor, sein kann. 

Die Tastenkommandos werden nun sehr schnell und auf 
einfache Weise interpretiert. Der ASCII-Code A der zuletzt 
gedrückten Taste und die Nummer M des gerade aktiven 
Menüs (0 bis 7) werden als Indizes in eine Sprungvektor¬ 
tabelle V% verwendet. Der gefundene Eintrag ist die Zeilen¬ 
nummer der Routine, die den Tastendruck bearbeitet. Diese 
Routine wird als Unterprogramm aufgerufen. Für diesen Vor¬ 
gang benötigt man nur einen einzigen Befehl: 
SYSGS,V%(M,A) (Zeile 1550). 


Allen nicht definierten Tasten wird über die Tabelle der 
Sprungvektor 0 zugeordnet. Er führt in das leere Unterpro¬ 
gramm ganz am Anfang des Listings. Die Sprungtabelle wird 
über die Inhalte der DATA-Zeilen ab 9500 im Programm- 
Setup besetzt. Vierstellige DATAs stehen für Zeilennummern, 
dreistellige für ASCII-Codes, zweistellige wählen ein Menü 
(dabei bedeutet zum Beispiel Ml »Menü Nr. 1« und MA »alle 
Menüs«) und einstellige sind ASCII-Zeichen. »ENDE« schließt 
die Tabellen-DATAs ab. Der Programmteil ab Zeile 8110 inter¬ 
pretiert diese DATAs und besetzt die Tabelle. 

Eine Ergänzung des Programms um weitere Funktionen 
gestattet sich mit diesem Konzept sehr einfach. Man schreibt 
ein Unterprogramm und trägt die Zeilennummer des Unter¬ 
programm-Starts zusammen mit der Taste, durch die das 
Unterprogramm aufgerufen werden soll, in die Tabelle ein. Die 
Hardcopys entstanden auf diese Weise: Ab Zeile 7900 stand 
eine Hardcopy-Routine (im Listing hier nicht enthalten). 

Durch: 

9760 DATA MA,7900,Z wurde bewirkt, daß in allen Menüs 
durch den Tastendruck Z ein Hardcopy-Ausdruck ausgelöst 
werden konnte. 

Im Sound-Editor werden noch weitere Sprungvektoren 
angewendet: Eine f-Taste führt grundsätzlich in die Dummy- 
Routine (leeres Unterprogramm) oder in eine der vier Zeilen 
2550, 2560, 2570, 2580. Dort wird ein aktueller numeri¬ 
scher Parameterwert erhöht oder erniedrigt. Anschließend 
wird in eine der 21 Routinen ab Zeile 2600 weiterverzweigt. 
Die zugehörige Vektorvariable ist PV. Die 21 Einzelroutinen 
bringen den geänderten Parameter an seinen Platz in ein SID- 
oder ein Modulator-Register und geben ihn zudem an der 
richtigen Stelle am Bildschirm aus. 
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Name 

Startadresse 

Aufruf 

Funktion 

GS 

828 

SYSGS, Zeilennummer 

Berechnetes G0SUB 

GT 

857 

SYSGT, Zeilennummer 

Berechnetes GOTO 

PR 

869 

SYSPR, Zeile, 

Spalte, Printliste 

PRINT AT Positioniert den Cursor an 
der Position Zelle (Obis 24), Spalte (0 
bis 39) und geht über zum 

Baslc-PRINT 

DO 

897 

SYSD0, Adresse, Wert 

DOKE: Doppelbyte-POKE Schreibt 
einen 16-Blt-Wert (Obis 66536) ab 
Adresse In den Speicher, niederwer¬ 
tiges Byte zuerst 

USR 

937 

USR (Adresse) 

DEEK: Doppolbyle-PEEK 

Liefert 16-Bit-Wert der Spelcherstel- 
lonadresse und Adresse +1 

CL 

959 

SYSCL 

CLEAR: Löscht Bildschirm 

Zeilen Obis 14 

NA 

50229 

SYSNA, Adresse 

NAME: Ausgabe von zehn Zeichen, 
deren ASCII-Codes ab Adresse Im 
Speicher stehen. Dient zur Ausgabe 
von Soundnamen 

GE 

50246 

SYSGE, Adresse 

GET: Belegt SID und MODULATOR mit 
Parametersalz, der ab Adresse Im 
Speicher steht (siehe Tabelle 11) 

PU 

50276 

SYSPU, Adresse 

PUT: Kopiert Parameter von MODULA¬ 
TOR (aber keine SID-Parameter!) in 
Parameterblock ab Adresse (siehe 

Tabelle 11) 

Alle hier aufgeführten Unterprogramme ermitteln ihre Parameter mit Hilfe des Baslc- 
Interpreters. Es sind daher beliebige arithmetische Ausdrücke (beziehungsweise String- 
Ausdrücke bei PR) möglich. Es wird ein »Illegal Quantity Error* ausgelöst, wenn die Parameter 
ihren zugelassenen Bereich (0 bis 255 beziehungsweise 0 bis 65535) überschreiten. 

Tabelle 9. Unterprogramme zum Sound-Editor in 
Maschinensprache 


Der Parametervektor PV wird von Parameter-Anwahl-Rou- 
tinen gesetzt, von denen es in jedem Menü für jede Parame¬ 
terart eine gibt, zum Beispiel »Filterfrequenz« wählen, Zeile 
5200. Der Aufruf einer Parameter-Anwahl-Ftoutine wird 
durch die Cursor-Tasten ausgelöst und geschieht durch 
einen weiteren Vektor AV. Beispiel: »Parameterwahl durch 
Cursor«, Zeile 5130. Von diesen Cursor-Routinen gibt es fünf 
Ausführungen. Für jedes Menü, in denen die Cursor-Tasten 
wirksam sind, eine. 

Einige Maschinenprogramme machen den Sound-Editor 
schnellerund übersichtlicher. Erwähnt seien dabei Unterpro¬ 
gramme zum Zugriff auf Doppelbytes von Basic aus (»DEEK« 
und »DOKE«). Das lästige Berechnen von Low- und High- 
Byte entfällt so. Der »PRINT AT«-Befehl gestattet es, den Cur¬ 
sor an jede Stelle des Bildschirms zu positionieren, um dort 
etwas auszugeben. Die Tabellen 8 bis 11 sollen eine kleine 
Dokumentation des Sound-Editors darstellen. Der Loser, der 
das Programm selbst modifizieren oder erweitern will (zum 
Beispiel andere oder mehr Farben), findet dort die gesuchte 
Information. Das Tabellen- und Vektorkonzept wird einen wei¬ 
teren Ausbau des Programms sehr erleichtern. 


Die ersten Klnngexperimente 


Zunächst einige allgemeine Tips zur Suche nach Klängen 
und Effekten. 

Der Sound-Editor eignet sich eigentlich gut zum Experi¬ 
mentieren durch Versuch und Irrtum, da das Resultat immer 
unmittelbar hörbar wird. Dennoch sollte man sich über die 


Zero-Page 

$02 

$9B 

$FB-$FE 

$9E-$9F 

von MODULATOR benutzt 

von NA, GE und PU benutzt 

USFt-Vektor 

$311-$312 

belegt mit Startadresse von DEEK ($03A9) 

Kassetten- 

puffer 

$33C-$3D4 

Maschinenprogramme 

GS, GT, PR, DO, USR (DEEK), CL 

Basic 

$O80O-$O8FF 

(obere Speiohergrenze heruntergesetzt) 

Sounds 

$9000-$9A07 

24 Parameter-Blöcke ö 107 Byte 

Freier RAM- 

$C00O-$C07O 

MODULATOR-Paramoter 

Bereich 

$C071-$C074 

$C076-$C422 

$C423-$C473 

MODULATOR-Interne Variablen 
MODULATOR-Code 

Maschinenprogramme NA, GE, PU 

Tabelle 10. Speicherbelegung durch den Sound-Editor 


Es werden 24 Parameterblöcke der LAnge 107 Byte Im Bereich $9000 bis $9A08 verwaltet. 

Struktur eines Parameterblocks 

Relatlvadresse Parameter Variable In 

Basic (falls 


dezimal 

hex 


vorhanden) 

Obis 72 

$00 - $48 

Modulator-Parameter 

keine 

73 bis 74 

$49 - $4A 

Basisfrequenz Stimme 1 

BF(2) 

75 

$4B 

Status Stimme 1 
(0 = inaktiv, 1 = aktiv) 

S(2) 

76 

$4C 

unbenutzt 


77 

$4D 

Control-Register Stimme 1 

C(2) 

78 

$4E 

Attach/Decay Stimme 1 

AD(2) 

79 

$4F 

Sustain/Release Stimme 1 

SR(2) 

80 bis 86 

$50 - $56 

analog Stimme 2 (7 Byte) 


87 bis 93 

$57 - $5D 

analog Stimme 3 (7 Byte) 


O/f 

„i y : fca.'- * 

$5E 

Resonanz/Filter 

RF 

aä 

$5F 

Status des Soft-EG 

(0 = abgekoppelt, 1 = angekoppelt) 

EG 

96 

$60 

Status Sustain 
(0 = aus, 1 = an) 

SU 

97 bis 106 

$61 - $6A 

Name des Sounds (10 Byte) 

keine 

Tabelle 11. 

. Speicherung der Sound-Parameter 



Wirkung der vielen möglichen Einstellungen schon vorher im 
klaren sein, um gezielt experimentieren zu können. Dazu 
einige praktische Hinweise unter Verzicht auf theoretischen 
Ballast: 

1. Mit der Grundeinstellung anfangen 

Wenn man eine ganz neue Einstellung machen möchte, 
beginnt man am besten mit der Grundeinstellung, die nach 
dem Start des Programmes vorliegt. Es ist nur Stimme 1 mit 
einem völlig unmodulierten, symmetrischen Rechteckklang 
hörbar. Die voreingestellte Hüllkurve hat einen leicht perkus- 
siven Charakter (kurzes Attack/Anschwellen) und mittellan¬ 
ges Decay (Halten) und eine angenehme Ausklingphase (mit¬ 
tellanges Release). 

2. Kurvenform und Hüllkurve wählen 

Man beginnt mit dem Untermenü Stimme (Shift V). Dort 
kann man die wichtigsten SID-Parameter wie Kurvenform, 
Hüllkurve und Tonlage einstellen. Die Pulsweite PW ist nur bei 
der Rechteckkurve relevant. Der voreingestellte Wert 2048 
entspricht einem symmetrischen Rechteck. Es ist empfeh¬ 
lenswert, von dieser Einstellung abzuweichen, da unsymme¬ 
trische Rechtecke obertonreicher sind und damit meistens 
interessanter klingen. Der Portamento-Effekt ist übrigens nur 
bei Werten größer als 0 aktiv. 

3. Kurvenformen kombinieren 

Interessante und sehr obertonreiche Klänge erhält man, 
wenn man im CONTROL-Register das Bit für Rechteck 
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zusammen mit dem für Dreieck oder Sägezahn setzt. Man 
muß dabei auch etwas mit der Pulsweite experimentieren, da 
bei bestimmten PW-Werten überhaupt nichts hörbar ist. Ver¬ 
sucht man, Rauschen mit einer anderen Kurvenform zu kom¬ 
binieren, kann es passieren, daß sich der Oszillator »auf¬ 
hängt«. In diesem Fall muß das TEST-Bit kurz ein- und ausge¬ 
schaltet werden, damit wieder etwas hörbar wird. 

4. Sustaln-Modus 

Oft ist es erwünscht, daß ein Ton oder Klang auch ohne 
Tastenbetätigung weiterklingt, zum Beispiel wenn man in 
Ruhe die Wirkung von Parameteränderungen studieren 
möchte. Dazu ist der Sustain-Modus vorgesehen. Man muß 
dazu nur die Taste »S« betätigen. Eine weitere Betätigung 
schaltet diesen Modus wieder aus. 

5. Filter 

Das Filter Ist eine etwas problematische Komponente des 
SID. Versuche mit mehreren C 64-Exemplaren haben erge¬ 
ben, daß Klangeinstellungen, die das Filter einbeziehen, von 
Gerät zu Gerät unterschiedlich klingen. Bei gleichen Einstel¬ 
lungen machen die verschiedenen SID-Filter unterschiedlich 
auf oder zu. Es kann daher Vorkommen, daß die Sounds mit 
den hier abgedruckten Parametersätzen nicht »gut klingen«, 
sofern sie das Filter verwenden. Abhilfe schafft man dadurch, 
indem man die Filterfrequenz nach oben oder unten korri¬ 
giert, bis das Resultat zufriedenstellend klingt. Eine Filterwir¬ 
kung ist nur dann hörbar, wenn mindestens eine Stimme auf 
das Filter geschaltet wird (Spalte SCHALTER) und wenn min¬ 
destens ein Modus (LP, BP oder HP) aktiviert ist. 

6. Modulationen 

Richtig interessant werden Klänge erst durch Modulatio¬ 
nen. Damit eine Modulation wirksam wird, müssen in zwei 
Untermenüs Einstellungen gemacht werden. Zuerst legt man 
im Untermenü KSV (Kreuzschienenverteiler) fest, welche 
Modulationsquelle (LFO 0 bis 6 oder der Soft-Hüllkurvenge- 
nerator) auf welches Ziel (Frequenzen, Pulsweiten, Filterfre¬ 
quenz, Lautstärke) wirken soll. Am besten beginnt man ein¬ 
mal mit einer Frequenzmodulation durch einen LFO. Eine 1 
in der rechten oberen Ecke der KSV-Matrix zum Beispiel 
schaltet LFO 0 auf die Frequenz von Stimme 1. Dann muß die 
Modulationsquelle selbst eingestellt werden. 

Ein LFO ist erst dann wirksam, wenn: 

- die Frequenz LFOF größer als 0 ist, 

- die Amplitude LFOA größer als 0 ist, 

- MODUS auf RUN geschaltet ist, 

- bei KURVE=SQUARE die Pulsweite LFOP größer als 0 ist. 
Der Software-Hüllkurvengenerator ist wirksam, wenn: 

- Attack A größer als 0 ist, 

- die Amplitude EGA größer als 0 ist, 

- MODUS auf RUN geschaltet ist. 

Für vernünftige Hüllkurven sollten auch die Parameter 
Decay D und Release R größer als 0 gewählt werden. Der 
Soft-Hüllkurvengenerator wird durch die SPACE-Taste aus¬ 
gelöst. Durch Shift-SPACE kann man die Triggerung des Soft- 
EG (EG=Envelope Generator) an das normale Spielen von 
Tönen koppeln. Ein weiteres Shift-SPACE hebt diese Kopp¬ 
lung wieder auf. 

7. Die Tiefe der Modulationen 

Die Modulationstiefe (das ist der Grad der Modulationswir¬ 
kung) wird über die Amplitude der Modulationsquelle (LFOA 
beziehungsweise EGA) eingestellt. Für die Modulation von 
Pulsweite, Filterfrequenz und Lautstärke werden relativ 
große Modulationsamplituden benötigt, damit ein Effekt hör¬ 
bar wird (etwa ab 20 aufwärts). Die Frequenzmodulation rea¬ 
giert dagegen empfindlicher. Amplituden bis maximal etwa 
10 werden als Vibrato empfunden, das heißt, der modulierte 
Ton wirkt noch einheitlich in seiner Tonhöhe, wird aber breiter 
und lebendiger empfunden. Amplituden über 10 bewirken 
einen zunehmenden Heulton- oder Sireneneffekt. Natürlich 


hat auch die Modulationsgeschwindigkeit LFOF einen star¬ 
ken Einfluß auf das Klangbild des modulierten Tones. 

8. Sprünge zwischen zwei Tönen 
Durch Frequenzmodulation mit einer Rechteckkurve 
erreicht man, daß die Frequenz nicht auf- und abgleitet, son¬ 
dern zwischen zwei Werten hin und her springt. Durch geeig¬ 
nete Wahl der Amplitude erhält man musikalisch sinnvolle 
Intervalle. Beispiele: 


LFOA 

Intervall 

46 

kleine Terz 

61 

große Terz 

76 

Quarte 

104 

Quinte 

176 

Oktave 


9. Speichern 

Man sollte nicht versäumen, die vielleicht mühevoll gefun¬ 
denen Sounds zu speichern. Im Untermenü »Sounds« kann 
man bis zu 24 Sounds ablegen und mit Namen versehen. Im 
Untermenü »Disk« kann man dann eine solche Sound-Bank 
speichern. Um einen Sound von einer Bank in eine andere zu 
übertragen, lädt man zuerst die Quell-Bank, wählt den 
gewünschten Sound an und wählt dann die Ziel-Bank. Durch 
diesen Vorgang geht der angewählte Sound nicht verloren 
und kann dann in der Ziel-Bank abgelegt werden. 

Beispielsounds 


Die folgenden zehn Beispiele sollen einen Einblick geben, 
welche Klänge man dem SID entlocken kann. Die Parameter¬ 
sätze sind in einer Form abgedruckt, die an die Erscheinungs¬ 
weise in den einzelnen Untermenüs angelehnt ist. Bei den 
Parameit:i gruppen SCHALTER und MODUS im Filter-Menü 
bedeuten Sternchen, daß das entsprechende Bit aktiviert ist 
(reverse Darstellung auf dem Bildschirm). 

Beispiel 1: MOLL WEIT 

Eine relativ einfache Einstellung, bei der alle drei Stimmen 
in einem Mollakkord zusammenklingen. »Weit« bedeutet, daß 
die Einzeltöne nicht innerhalb einer Oktave liegen. Die Hüll¬ 
kurven unterscheiden sich in ihren Decay- und Release-Wer¬ 
ten. Dadurch klingt der tiefste Ton am längsten nach. Ein ganz 
leichtes Vibrato (LFOA=1) durch LFO 0 verleiht dem Klang 
Leben. Man erhöhe einmal die Grundfrequenz von Stimme 2 
von D# auf E4, um einen Durakkord zu erhalten. 

Beispiel 2: STRINGS 

Dieser Sound klingt durch reichhaltigen Modulationsein¬ 
satz sehr voll, fast orchestral (im Rahmen der SID-Qualität). 
Es wurde dreimal die Rechteckkurve gewählt, die durch PW- 
Modulation räumliche Fülle erhält. Die lange Attack-Zeit 
(A=5) ln der Hüllkurve von Stimme 2 bewirkt ein verzögertes 
Einsetzen. Wenn man bei dieser Einstellung staccato (das 
heißt abgehackt) spielt, bleibt Stimme 2 fast unhörbar. LFO 
0 und 1 sorgen für Vibrato (Frequenzmodulation). LFO 0 
moduliert Stimme 1, LFO 1 Stimme 2. Stimme 3 wird von bei¬ 
den LFOs moduliert. Dabei überlagern sich die Kurvenfor¬ 
men der beiden LFOs und bilden eine Schwebung, die sich 
im Auf- und Abschwellen des Vibrators in Stimme 3 (fast auf¬ 
dringlich) bemerkbar macht. Dieser Effekt soll an eine Solo¬ 
violine im Orchester erinnern. Die LFOs 2 und 3 sorgen durch 
PW-Modulation für noch mehr Klangfülle. 

Beispiel 3: KLICK-WAH 

Eine Kombination zweier Effekte. Die auf einen hohen 
Grundton eingestellte Stimme 2 sorgt durch einen schnellen 
Attack-Decay-Hüllkurvenverlauf (mit Sustain=0) für den 
Klick-Effekt. Stimme 1 wird durch einen Tiefpaß mit großer 
Resonanz (RES=14) geschickt. Der Soft-EG steuert über 
die Filterfrequenz das Offnen und Schließen des Filters. Bei 
der angegebenen Parametrisierung wird das Resultat lautma- 
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Bild 24. Durch Überlagerung von Rechteck- und/oder 
Sägezahnkurven erhält man Iteppenkurven 


lerisch besser durch »au« als durch »wah« beschrieben. Man 
sollte hier unbedingt einmal mit der Einstellung des Soft-EG 
experimentieren. Durch Verlängerung der Attack-Zeit erhält 
man ein »wahhau«, durch Spiegelung der Hüllkurve (FORM 
= -) kann man ein »auahh« erzielen. Bei diesen Versuchen 
sollte man auch hin und wieder die Filterfrequenz variieren. 
Beispiel 4: SIRENE 

Hier wird die Wirkung einer starken Frequenzmodulation 
demonstriert. Die Frequenzen der drei Stimmen sind so ein¬ 
gestellt, daß sie einen »schräg« klingenden Akkord bilden. 
Alle drei Stimmen werden gleichermaßen langsam und tief 
von LFO 0 moduliert. Hier sollte man einmal unterschiedliche 
LFO-Kurvenformen und LFO-Frequenzen ausprobieren. Die 
Zuschaltung von LFO 1 (MODUS auf RUN setzen) bewirkt 
durch Überlagerung einer schwächeren aber schnellen 
Modulation einen dramatischen Effekt. 

Beispiel 5: STURM 

Alle drei Stimmen erzeugen Rauschen. Die Stimmen wer¬ 
den wie bei der Sirene langsam und tief moduliert, allerdings 
jede durch einen eigenen LFO. Da die LFOs in ihrer Frequenz 
unterschiedlich eingestellt sind, erhalten die drei Rausch¬ 
quellen unabhängig voneinander Lebendigkeit. Darüber hin¬ 
aus sorgt das eigens durch LFO 0 modulierte Filter für klangli¬ 
che Abwechslung. Das Filter ist hier übrigens als sogenannte 
Bandsperre geschaltet (LP und HP aktiv). 

Beispiel 6: RADIO 

Dieser Effekt soll an das Pfeifen erinnern, das beim Durch¬ 
stimmen eines Kurzwellenempfängers entsteht. Des weite¬ 
ren ist ein Funkfernschreib-Signal zu hören (schnelle Folge 
hoher Töne). Das Durchstimmgeräusch liefert Stimme 3, die 
durch Stimme 2 ringmoduliert wird. Stimme 2 ist selbst nicht 
hörbar, beeinflußt aber wesentlich den Klang von Stimme 3. 
Beide Stimmen werden sehr langsam und mit unterschiedli¬ 
cher Frequenz moduliert. Die LFOs 0 und 3 erzeugen dage¬ 
gen schnelle Rechtecksignale, die, zu einer Treppenkurve 
überlagert, Stimme 1 zu einer schnellen Folge hoher Töne 
anregen. 

Beispiel 7: SEQUENZER 

Ein Sequenzer ist ein Gerät, das eine vorprogrammierte 
Tonfolge wiederholt abspielt. Durch Modulation mit Treppen¬ 
kurven kann man Sequenzer-artige Effekte erreichen. Trep¬ 
penkurven erhält man duch Überlagerung von Rechteck- und 
Sägezahnkurven. Die Skizze (Bild 24) gibt Beispiele dafür. 
Wenn man Sägezahnkurven einsetzt, muß man ein besonde¬ 
res Augenmerk auf die Amplitudenverhältnisse richten, damit 
die Treppenstufen »gerade« bleiben. 

Das vorliegende Beispiel klingt am besten, wenn man 
zunächst die Grundeinstellung anwählt und dann den vorher 
abgespeicherten Parametersatz. Dadurch werden zunächst 
alle LFOs in den RESET-Zustand versetzt und anschließend 
synchron gestartet. Sie laufen dann mit einer wohldefinierten 
Phasenbeziehung zueinander ab. 

Beispiel 8: GEJAMMER 

Hier moduliert der Soft-EG die Frequenz aller drei Stirn¬ 

333 ? 


men. Jeder Tastendruck erzeugt dadurch ein Auf heulen, das 
an Katzengejammer erinnert. Der Effekt wird noch dadurch 
verstärkt, daß der Soft-EG auch das Filter und die Lautstärke 
moduliert. Eine weitere Frequenzmodulation durch zwei 
LFOs verleiht dem Ton nach der Decay-Phase des Soft-EG 
einen zusätzlichen klagenden Charakter. 

Beispiel 9: MIKROCHIP 

Fünf LFOs erzeugen durch Überlagerung Treppenkurven 
mit quasizufälligem Verlauf. Die dadurch schnell und tief 
modulierten Stimmen werden noch zusätzlich gegenseitig 
ringmoduliert. Dadurch bekommt der Gesamtklang einen me¬ 
tallischen Charakter. Am besten klingt diese Einstellung bei 
hohen Tönen. 

Beispiel 10: BULLDOZER 

Hier werden Motorengeräusche simuliert. Stimme 3 
erzeugt ein Brummen als Grundlage. Stimme 2 erzeugt über 
das Filter Rauschen. Das Filter wird in schneller Folge durch 
LFO 0 moduliert. Dadurch wird aus dem Rauschen das 
Stampfen eines schweren Dieselmotors. LFO 2 moduliert 
ebenfalls das Filter, allerdings mit sehr niedriger Frequenz. 
Dadurch ändert das Dieselstampfen periodisch seinen 
Klang. Am interessantesten ist aber Stimme 1. Sie erzeugt 
bereits ohne Modulation ein Geräusch, das an eine schwere, 
trockengelaufene Stahlkette erinnert. Der Effekt kommt 
durch die Kombination zweier Kurvenformen (Rechteck und 
Dreieck) bei niedriger Oszillatorfrequenz zustande. Eine 
Modulation durch LFO 1 läßt die Kette allerdings noch reali¬ 
stischer rasseln. Drückt man die SPACE-Taste, so werden die 
Frequenzen von Stimme 3 (Grundgeräusch) durch den Soft- 
EG heruntermoduliert. Man kann sich dabei vorstellen, wie 
sich die schwere Maschine ächzend ins Erdreich wühlt. 
Bild 25 zeigt die Parameter für die einzelnen Sounds in der 
Übersicht, 
nt-inafcw 

Der Sequenzer 


Nun endlich werden wir auf die Programmierung von Musik¬ 
stücken und die »Sequenzer«-Funktion des Sound-Editors 
näher eingehen. 

Zunächst einige Grundlagen zum Sequenzer. Unter einem 
Sequenzer versteht man ein Gerät oder Programm, das einen 
Synthesizer mit einer vorprogrammierten Tonfolge ansteuert. 
Die zentrale Rolle spielt dabei das genaue Einhalten eines 
programmierbaren Zeitmaßes. 

Musikstücke werden üblicherweise in Takte von etwa ein 
bis vier Sekunden Länge eingeteilt. Am gebräuchlichsten ist 
der 4 / 4 Takt, der die Lange einer ganzen Note hat. Andere 
gebräuchliche Taktarten sind 2 / 4 , 3 / 4 , 6 /b, 4 / 4 , 6 / 4 , 3 lz- Diese 
Angaben betreffen allerdings nur die Zählweise der Takte und 
nicht das Tempo eines Musikstücks. So sind zum Beispiel 
3 / 4 - und e / 0 -Takt bis auf die Zählweise vollkommen identisch. 

Die Notenlängen werden in Bruchteilen der ganzen Note 
angegeben: 


Ganze Note 

° 1 

Halbe Note 

J 

1 

Viertelnote 

J 

k 

Achtelnote 


Sechszehntelnote 
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MOLL WEIT 


AKTIVE STIMMEN! 1 2 3 


F 

PW 

A 

D B R CONTROL PORTA 

C 3 

0 2048 

0 

13 8 13 0010000 0 


D44 

0 2048 

0 

12 8 12 0010000 0 


G 5 

0 2048 

0 

11 8 11 0010000 0 


FILTF RES 

SCHALTER MODUS LAUT 



0 0 


FILT1 LP 12 





FILT2 BP 





FILT3 HP 





FILTEX 30FF 


LFD 

LFOF LFOP 

LFOA KURVE MODUS 

KSV 

0 

5000 

0 

1 TRIAN RUN 

00000001 

1 

0 

0 

0 TRIAN REBET 

00000001 

2 

0 

0 

0 TRIAN RESET 

00000001 

3 

0 

0 

0 TRIAN RESET 

00000000 

4 

0 

0 

0 TRIAN REBET 

00000000 

5 

0 

0 

0 TRIAN RESET 

00000000 

6 

0 

0 

0 TRIAN RESET 

00000000 





00000000 

A 

I) 

S 

R EGA FORM MODUS 


0 

0 

0 

0 0+ REBET 


STRINGS 




AKTIVE STIMMEN! 

1 2 3 


F 

PW 

A 

D B R CONTROL PORTA 

G 3 

0 1040 

5 

10 B 12 0100000 80 


C 2 

0 1040 

13 

10 B 12 0100000 80 


C 5 

10 2048 

11 

10 8 10 0100000 80 


FILTF RES 

SCHALTER MODUS LAUT 


500 15 


FILT1 *#LP*# 15 




*»FILT2#* BP 





FILT3 HP 





FILTEX 30FF 


LFG 

LFOF LFOP 

LFOA KURVE MODUS 

KSV 

0 

6B00 

0 

8 TRIAN RUN 

00000001 

1 

8000 

0 

8 TRIAN RUN 

00000010 

2 

2600 

0 

90 TRIAN RUN 

00000011 

3 

400 

0 

90 TRIAN RUN 

00000100 

4 

0 

0 

0 TRIAN RESET 

00001000 

5 

0 

0 

0 TRIAN RESET 

00000100 

6 

0 

0 

0 TRIAN RESET 

00000000 





00000000 

A 

D 

S 

R EGA FORM MODUS 


0 

0 

0 

0 0+ REBET 


KLICK-WAH 





AKTIVE STIMMEN! 1 2 

SOFT-EG-KOPPLUNG AKTIV 


64CR 


F PW 
C 3 0 1050 

C 5 0 2048 

B 5 0 204B 


A D S R CONTROL PORTA 
0 10 8 12 0100000 0 

0201 0100000 0 

0303 0100000 0 


FILTF 

350 


RES 

14 


SCHALTER 

**FILT1** 

FILT2 

FILT3 

FILTEX 


MODUS LAUT 
«#LP#* 15 

BP 
HP 
30FF 


LFO 

0 

1 

2 

3 

4 

5 

6 

A 

125 


6000 

0 

0 

0 

0 

0 

0 

D 

50 


LFOP 

LFOA 

KURVE 

MODUS 

KSV 

0 

6 

TRIAN 

RUN 

00000001 

0 

0 

TRIAN 

RESET 

00000000 

0 

0 

TRIAN 

RESET 

00000000 

0 

0 

TRIAN 

RESET 

00000000 

0 

0 

TRIAN 

RESET 

00000000 

0 

0 

TRIAN 

REBET 

00000000 

0 

0 

TRIAN 

RESET 

10000000 

00000000 

S 

R 

EGA FORM MODUS 


60 

30 

120 

+ RUN 



: i". 


SIRENE 


AKTIVE STIMMEN! 


F PW 
C 3 0 2048 

D#3 0 204B 

F 3 0 2048 


1 2 3 

A D S R CONTROL PORTA 
0 10 8 10 0010000 1 

0 10 8 10 0010000 1 

0 10 8 10 0010000 1 


FILTF 

0 


RES 

0 


SCHALTER 

FILT1 

FILT2 

FILT3 

FILTEX 


MODUS 

LP 

BP 

HP 

30FF 


LAUT 

15 


LFO 

0 

1 

2 

3 

4 

5 

6 

A 

0 


LFOF LFOP LFOA KURVE 


150 

7000 

0 

0 

0 

0 

0 

D 

0 


0 
12B 
0 
0 
0 
0 
0 

8 

0 


170 TRIAN 
20 TRIAN 
0 TRIAN 
0 TRIAN 
0 TRIAN 
0 TRIAN 
0 TRIAN 


MODUS 

RUN 

RESET 

RESET 

RESET 

RESET 

RESET 

RESET 


R EGA FORM MODUS 
0 0+ RESET 


KBV 

00000011 
00000011 
00000011 
00000000 
00000000 
00000000 
00000000 
00000000 


STURM 


AKTIVE STIMMEN! 1 
BUBTAIN AKTIV 


F PW 
C 3 0 2048 

C 4 0 204B 

C 5 0 2048 

FILTF RES 
1000 12 


A D 
0 10 
0 10 
0 10 


SCHALTER 

**FILT1*# 

**FILT2*# 

**FILT3** 

FILTEX 


2 3 


S R CONTROL PORTA 
8 10 1000000 0 

8 10 1000000 0 

8 10 1000000 0 


MODUS LAUT 
*#LP»* 10 

BP 

**HP** 

SOFF 


LFO 

0 

1 

2 

3 

4 

5 

6 

A 

0 


LFOF LFOP LFOA KURVE 
130 0 250 TRIAN 


160 
200 
110 
0 
0 
0 

D 

0 


0 

0 

0 

0 

0 

0 


250 TRIAN 
250 TRIAN 
250 TRIAN 
0 TRIAN 
0 TRIAN 
0 TRIAN 


EGA 

0 


MODUS 
RUN 
RUN 
RUN 
RUN 
REBET 
RESET 
REBET 

FORM MODUS 
+ RESET 


KSV 

00000010 

00000100 

00001000 

00000000 

00000000 

00000000 

00000001 

00000000 


RADIO 

ÄkTTJe 


STIMMENi 1 2 3 


F PW 
A#5 0 2048 

F#4 0 2048 

C 5 0 2048 

FILTF RES 
0 0 


A D S R CONTROL PORTA 
0 10 3 10 0100000 7 

0 10 8 10 0000000 5 

0 10 8 10 0001010 10 


SCHALTER 

FILT1 

FILT2 

FILT3 

FILTEX 


MODUS 

LP 

BP 

HP 

30FF 


LAUT 

1 = 


LFO 

LFOF 

LFOP 

LFOA 

KURVE 

MODUS 

KSV 

0 

10000 

58 

70 

SQUARE 

RUN 

00001001 

1 

90 

128 

70 

TRIAN 

RUN 

00000010 

2 

135 

12B 

70 

TRIAN 

RUN 

00000100 

3 

4000 

100 

50 

SQUARE 

RUN 

00000000 

4 

0 

0 

0 

TRIAN 

RESET 

00000000 

5 

0 

0 

0 

TRIAN 

REBET 

00000000 

6 

0 

0 

0 

TRIAN 

RESET 

00000000 

00000000 

A 

D 

S 

R 

EGA FORM MODUS 


0 

0 

0 

0 

0 

+ RESET 



Bild 25. Auflistung der Beispiel-Sounds 


Es kommen auch ungeradzahlige Vielfache dieser Noten¬ 
längen vor. Durch Punktierung kennzeichnet man die Verlän¬ 
gerung einer Note um die Hälfte ihrer ursprünglichen Länge: 



Alle diese Notenlängen passen in ein Raster, welches eine 
ganze Note in 16 oder 32 gleiche Zeitabschnitte teilt. Es wer¬ 
den aber häufig auch sogenannte Triolen (Drittelnoten) ein¬ 
gesetzt. Zum Beispiel Achteltriolen, das sind drei gleichlange 


SD 


Noten mit der Länge einer Viertelnote. Aus diesem Grund 
sollte das Zeitraster (die Anzahl der Zeitabschnitte, in die der 
Sequenzer eine ganze Note einteilt) auch den Faktor 3 ent¬ 
halten. Ein sinnvolles Zeitraster ist zum Beispiel 96 (=3x32). 

Das Tempo wird in der Musik in Schlägen pro Minute (beats 
per minute: bpm) gemessen. Ein Schlag entspricht dabei 
einer Viertelnote. Der sinnvolle Bereich für dieses Maß liegt 
bei etwa 40 bis 240 bpm. Beim schnellen Tempo 240 bpm 
dauert eine ganze Note genau eine Sekunde. Der Sequenzer 
muß dann 96 Schritte pro Sekunde ausführen. 

Programmtechnik 

Ein Sequenzer ist von der zu erbringenden Funktion her 
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MUSIK-KURS 


SEQUENCER 


AKTIVE STIMMEN« 1 2 3 

F PW A D B R CONTROL PORTA 
C 3 0 2040 0 10 0 10 0010000 0 

C 4 0 2040 0 10 0 10 0100000 0 

C 5 0 2040 0 10 0 10 0100000 0 


FILTF RES 

SCHALTER MODUS LAUT 



0 0 


FILT1 

LP 15 





FILT2 

BP 





FILT3 

HP 





FILTEX 30FF 


LFO 

LFOF LFOP 

LFOA 

KURVE 

MODUS 

KSV 

0 

B00 

120 

00 

SAWDWN 

RUN 

00001100 

1 

1600 

120 

44 

SAWUP 

RUN 

00000011 

2 

3200 

120 

22 

SAWDWN 

RUN 

00001111 

3 

6400 

120 

11 

SAWUP 

RUN 

00010000 

4 

400 

0 

107 

TRI AN 

RUN 

00010000 

5 

0 

0 

0 

TRIAN 

REBET 

00010000 

6 

0 

0 

0 

TRI AN 

RESET 

00000000 

00000000 

A 

D 

8 

R 

EGA FORM MODUS 


0 

0 

0 

0 

0 

+ RESET 



MIKROCHIP 


AKTIVE STIMMEN« 1 2 3 

F PW A D S R CONTROL PORTA 
C 3 0 2040 0 10 B 10 0001010 0 

05 0 2040 0 10 0 10 0001010 0 

D 5 0 2040 0 10 0 10 0001010 0 


FILTF RES 

SCHALTER MODUB LAUT 



0 0 


FILT1 LP 15 

FILT2 BP 

FILT3 HP 

FILTEX 30FF 


LFO 

LFOF LFOP 

LFOA KURVE MODUB 

KBV 

0 

11000 

120 

130 SQUARE RUN 

00011111 

1 

5000 

120 

60 SQUARE RUN 

00011000 

2 

3000 

120 

B0 SQUARE RUN 

00011111 

3 

190 

120 

60 SQUARE RUN 

00000000 

4 

70 

120 

30 SQUARE RUN 

00000000 

5 

0 

0 

0 TRIAN RESET 

00000000 

6 

0 

0 

0 TRIAN RESET 

00000000 

00000000 

A 

D 

8 

R EGA FORM MODUS 


0 

0 

0 

0 0+ REBET 



GEJAMMER 


AKTIVE STIMMEN« 1 2 3 

SOFT-EB-KOPPLUN0 AKTIV 


F 

C 3 
C 4 
C 5 


PW 

0 2040 
0 1050 
0 2040 


A D 0 R CONTROL PORTA 
0 10 0 10 0010000 0 

0 10 0 10 0100000 0 

0 10 0 10 0100000 0 


FILTF RES 
500 13 


LFO 

0 

1 

2 

3 

4 

5 

6 


SCHALTER 

**FILT1»* 

**FILT2** 

*#FILT3»* 

FILTEX 


MODUS LAUT 
LP B 
*#BP*» 

HP 

30FF 


A 

40 


BULLDOZER 


AKTIVE STIMMEN« 1 
SUSTAIN AKTIV 


F PW 
G 0 -1 1500 
C 4 0 2040 

G 1 19 2040 


FILTF 

500 


RES 

15 


A D 
0 10 
0 10 
0 10 


SCHALTER 

FILT1 

**FILT2** 

FILT3 

FILTEX 


2 3 


S R CONTROL PORTA 
0 10 0101000 2 

B 10 1000000 2 

B 10 0010000 2 


MODUB LAUT 
LP 15 
*#BP»* 

HP 

30FF 


LFOF 

LFOP 

LFOA 

KURVE 

MODUS 

KSV 

LFO 

LFOF 

LFOP 

LFOA 

KURVE 

MODUS 

KBV 

400 

0 

30 

TRIAN 

RUN 

10000011 

0 

0600 

0 

130 

SAWDWN 

RUN 

10000010 

1400 

0 

20 

TRIAN 

RUN 

10000011 

1 

0600 

0 

100 

TRIAN 

RUN 

00000000 

0 

0 

0 

TRIAN 

RESET 

10000011 

2 

200 

0 

50 

TRIAN 

RUN 

10000000 

0 

0 

0 

TRIAN 

RESET 

00000000 

3 

0 

0 

0 

TRIAN 

RESET 

00000000 

0 

0 

0 

TRIAN 

RESET 

00000000 

4 

0 

0 

0 

TRIAN 

RESET 

00000000 

0 

0 

0 

TRIAN 

RESET 

00000000 

5 

0 

0 

0 

TRIAN 

RESET 

00000000 

0 

0 

0 

TRIAN 

RESET 

10000000 

10000000 

6 

0 

0 

0 

TRIAN 

RESET 

00000101 

00000000 

D 

S 

R 

EGA FORM MODUS 

A 

D 

8 

R 

EGA FORM MODUS 


10 

0 

10 

110 

+ RUN 


2 

2 

240 

4 

120 

RUN 



Bild 25. Auflistung der Beispiel-So«>nds (Schluß) 


eigentlich ein sehr einfaches Programm. Seine Leistungen 
sind schnell aufgezählt: 

- Tonhöhen steuern 

- Triggerung der einzelnen 
Stimmen (GATE ON und GATE OFF) 

Diese Steuerungen müssen zeitgenau und unabhängig 
voneinander für drei Stimmen erfolgen. Darüber hinaus 
wären einige Zusatzfunktionen sinnvoll: 

- programmierbare Tempoänderungen 

- programmierbare Soundwechsel 

- programmierbare Änderung der Inhalte beliebiger Spei¬ 
cherplätze (Parameteränderung) 

Es soll zunächst ein einfacher Basis-Sequenzer entwickelt 
werden, der sich dann leicht um die genannten Zusatzfunk¬ 
tionen erweitern läßt. Die Erweiterungen sollen über Vekto¬ 
ren, also ohne Änderung des Grundprogramms, an dieses 
angeschlossen werden können. 

Musik per Interrupt 


Ein Sequenzer ist, ähnlich wie der in diesem Artikel veröffent¬ 
lichte Modulator, ein Programm, das in regelmäßigen Zeit¬ 
abständen eine Leistung erbringen muß. Der Aufruf per Inter¬ 
rupt, ausgelöst durch einen Zeitgeber, bietet sich also auch 
hier an. Jeder CIA (Complex Interface Adapter) ist mit zwei 
16-Bit-Timern ausgestattet, die sich für diese Aufgabe eig¬ 
nen. Timer A in CIA1 wird bereits für den Systeminterrupt ein¬ 
gesetzt. Ein Systeminterrupt findet konstant 60mal pro 
Sekunde statt und kann mit dem Aufruf eines Modulator¬ 
schritts gekoppelt werden. 

Die Aufruffrequenz der Sequenzerschritte soll dagegen im 
Bereich von zirka 20 bis 100 Hz, abhängig vom Tempo des 
Musikstücks, variabel sein. (Man erinnere sich: 240 bpm ent¬ 


sprechen 96 Hz bei einem Zeitraster von 96 Schritten pro 
ganzer Note). Das legt den Einsatz eines weiteren unabhän¬ 
gigen Timers nahe. In Frage kommen dafür: 

Timer B in CIA1 (IRQ) 

Timer A in CIA2 (NMI) 

Timer B in CIA2 (NMI) 

Die Auswahl des Timers ist willkürlich. Im vorliegenden Pro¬ 
gramm wird Timer B in CIA1 eingesetzt. Dadurch bleiben die 
Timer in CIA 2 noch vollkommen frei für Zwecke, die nichts 
mit der Musikprogrammierung zu tun haben müssen. Da nun 
Timer A und Timer B beide unabhängig voneinander Inter¬ 
rupts auslösen können, muß die angesprungene Interrupt- 
Serviceroutine die Interruptquelle ermitteln, also feststellen, 
welcher Timer den Interrupt ausgelöst hat und abhängig da¬ 
von weiterverzweigen. Zu diesem Zweck wird im sogenann¬ 
ten Interrupt-Control-Register (ICR) $DCOD bei einem 
Timer-A-Interrupt Bit 0 und bei einem Timer-B-Interrupt Bit 1 
gesetzt. 

Programmierung des CIA 

Zur Steuerung von CIA-Interrupts dient das schon 
erwähnte Interrupt-Control-Register (ICR) $DC0D. Dieses 
Register hat zwei Funktionen, je nachdem, ob schreibend 
oder lesend darauf zugegriffen wird. Bei Lesezugriff zeigt es 
an, ob, und wenn ja, woher ein Interrupt ausgelöst wurde. 
Zugleich wird das Register gelöscht und die Interrupt¬ 
anforderung zurückgenommen. (Die IRQ-Leitung geht von 
low auf high). Die Bits 0 bis 4 sind dabei verschiedenen Inter¬ 
ruptquellen zugeordnet. Uns interessieren hier nur die Bits 0 
und 1, welche zu den Timer-Interrupts gehören. Durch einen 
Schreibzugriff wird dagegen ein Masken-Register angespro¬ 
chen. Damit lassen sich die Interruptquellen einzeln freige¬ 
ben oder sperren. Die Bits 0 bis 4 kann man einzeln setzen 
oder zurücksetzen. Ist im geschriebenen Byte Bit 7 gesetzt, 
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wird jedes mit einer 1 beschriebene Bit gesetzt, während die 
anderen Bits unverändert bleiben. Ist Bit 7 rückgesetzt, so 
wird jedes mit einer 1 beschriebene Bit zurückgesetzt, wäh¬ 
rend die anderen Bits wieder unverändert bleiben. Gesetzte 
Bits ermöglichen eine Interrupterzeugung durch die jeweilige 
Quelle. Die Freigabe der Interrupterzeugung durch Timer B 
sieht also so aus: 

LDA #%10000010 

STA $DDOD ;ICR Bit 1 setzen 

Der Timer selbst wird durch drei Register gesteuert. 

Das Registerpaar TIMER B ($DC06/$DC07) liefert bei 
Lesezugriff den aktuellen 16-Bit-Zählerstand. Dieser Wert 
wird kontinuierlich heruntergezählt. Bei Erreichen von Null 
stoppt der Timer entweder (One-shot-mode) oder lädt einen 
Wert aus einem Timer-Iatch (Latch = Zwischenspeicher) 
nach und zählt von neuem herunter. (Continous Mode) Bei 
diesem Timer-Unterlauf wird ein Interrupt erzeugt, wenn Bit 1 
im ICR gesetzt ist. Ein Schreibzugriff auf TIMERA bezieht 
sich dagegen auf das 16-Bit-Latch. Mit dem Latch-Wert kann 
man die Zeit zwischen zwei Interrupts im Bereich von 1 bis 
65535 Mikrosekunden steuern. 

Das Register CRB (Control Register B, $DCOF) steuert die 
Betriebsart des Timers (Start/Stop, One Shot/Continous, 
u.a.). 

Durch LDA #%00010001 
STA $DDOE 

wird der Zählerstand mit dem Latch-Wert geladen und der 
Timer gestartet. 

Die Interrupt-Service-Routine 

Sie fragt zunächst ab, ob der Interrupt von Timer A (Sy¬ 
steminterrupt, Modulatorschritt) oder von Timer B (Sequen¬ 
zerschritt) kommt. Bei einer möglichen gleichzeitigen Inter¬ 
ruptanforderung durch beide Timer, wird der Timer-B-Inter- 
rupt bevorzugt behandelt. Das hat folgende Gründe: 

- Für ein exaktes Sequenzer-Timing sollten anzuspielende 
Noten möglichst wenig verzögert werden. 

- Die Abarbeitung eines Sequenzerschritts benötigt viel 
weniger Rechenzeit als ein Modulatorschritt (zeitaufwendige 
Multiplikationen) oder eine Systeminterruptbehandlung. 

- Die Aufruffrequenz kann bei den Sequenzerschritten sehr 
hoch sein (96 Hz bei 240 bpm, aber auch über 200 Hz sind 
technisch leicht möglich). 

Da das ICR beim Lesen gelöscht wird, muß sein Inhalt zwi¬ 
schengespeichert werden, damit beim Auftreten von zwei 
Interrupts die Behandlung des niedriger priorisierten Timer- 
A-Interrupts nachgeholt werden kann. 

Musik von Geisterhand 


Bei Auftreten eines Interrupts wird immer das Interrupt-Bit 
im CPU-Statusregister gesetzt, damit die CPU nicht gleich 
wieder unterbrochen werden kann. Da die IRQ-Leitung so 
lange auf Low-Pegel bleibt, bis die CPU durch Auslesen des 
CIA-ICR die Interruptanforderung löscht, würde sich das 
System ohne gesetztes Interrupt-Bit durch einen Dauerinter¬ 
rupt aufhängen. Es steht dem Programmierer allerdings frei, 
nach dem Auslesen des ICR das Interrupt-Bit durch den 
Befehl CLI (Clear Interrupt-Flag) zurückzusetzen, um damit 
das Programm wieder unterbrechbar zu machen. Beim vorlie¬ 
genden Programm bleibt bei einem Sequenzerschritt das 
Interrupt-Bit gesetzt, während es zur Abarbeitung eines 
Timer-A-Interrupts rückgesetzt wird. Dadurch kann die CPU 
auch dann durch einen Timer-B-Interrupt unterbrochen 
werden. 

Das Betriebssystem und das Programm Modulator machen 
beide intensiven Gebrauch von der Zero-Page. Die Inhalte 
derZero-Page-Speicherplätze dürfen von einem interruptge¬ 


Sequenz 1 



Bild 26. Sequenzerdatenstruktur 


triebenen Programm nicht verändert werden. Das Sequen¬ 
zerprogramm belegt daher nur zwei Zero-Page-Speicher- 
plätze ($FE,$FF). Ihre Inhalte werden bei Programmbeginn 
zwischengespeichert und bei Programmende restauriert. 

Die verwendeten Datenstrukturen 

Um ein Musikstück in eine computergerechte Form zu brin¬ 
gen, muß man im wesentlichen die Tonhöhe und die Länge 
der einzelnen Noten codieren. Beim Einsatz mehrerer, ver¬ 
schieden klingender Stimmen muß man außerdem jede Note 
eindeut!" einer Stimme zuordnen. Die hier verwendete 
Datenstruktur (Bild 26) verfolgt mit ihrem etwas komplizierten 
Aufbau zwei Ziele: 

- Sparsamer Umgang mit dem Speicher 

- Gute Editiermöglichkeiten. (Ein Editorprogramm in Basic 

folgt weiter unten) 

Tracks 

Die Steueranweisungen werden für die drei Stimmen 
getrennt in drei sogenannten Tracks (Tonspuren) gespei¬ 
chert. Ein Track ist eine zusammenhängende Folge von 
I-Byte-Kommandos. Das häufigste Kommando dürfte das 
Ton-Kommando sein. Die Tonhöhe wird aus einer Oktav¬ 
nummer und einer Tonnummer (siehe Bild 27), die in den bei¬ 
den Nibbles (= Halbbytes) eines Bytes stehen, ermittelt. Das 
Programm benötigt dazu lediglich eine Tabelle der Frequen¬ 
zen der höchsten Oktave. Die Frequenzen der niedrigeren 
Oktaven werden durch Teilung durch Zweierpotenzen 
errechnet. Eine Division durch 2 wird durch einen einfachen 
Rechts-Shift realisiert. Die Dauer des Tones ist nicht 
Bestandteil des Ton-Kommandos. Sie wird durch das Zeit- 
Kommando voreingestellt. Da häufig mehrere Töne mit glei¬ 
cher Länge aufeinanderfolgen, genügt ein einziges Zeit- 
Kommando (ein oder zwei Bytes), um die Tonlänge (siehe 
Bild 28) einzustellen. Dabei wird zwischen einer GATE-ON- 
und einer GATE-OFFPhase unterschieden, deren Längen 
zusammengenommen die gewünschte Tonlänge ergeben. 
Beispiel: GATE-ON-Zeit = 5 
GATE-OFFZeit = 7 
Gesamtzeit = 12 

Das entspricht einer kurz angeschlagenen Achtelnote (bei 
96 Zeitschritten pro ganzer Note). Die GATE-ON-Zeit ist im 
Bereich 1 bis 96, die GATE-OFF-Zeit im Bereich 0 bis 30 ein¬ 
stellbar. Der Sequenzer setzt nach Ablauf der GATE-ON-Zeit 
das GATE-Bit der entsprechenden Stimme im SID zurück und 
wartet dann die GATE-OFF-Zeit ab. Ist diese 0, so wird natür¬ 
lich sofort der nächste Ton gespielt. Man kann aber auch 
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0 

C 



1 

cis 

= 

des 

2 

d 



3 

dis 

= 

es 

4 

e 



5 

f 



6 

fis 

= 

ges 

7 

g 



8 

gis 

= 

as 

9 

a 



10 

ais 

= 

b 

11 

h 




Bild 27. Tonnummer 
und Note 
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Bild 28. Tonlängen bei 
96 Schritten pro Ganzton 


explizit Pausen programmieren (Code $EF). Ihre Länge ist die 
Summe aus GATE-ON und GATE-OFFZeit. 

Der Code $00 ist zur Kennzeichnung für das Track-Ende 
vorgesehen. Die Codes $F8 bis $FF sind für Sonderfunktio¬ 
nen reserviert, die für eine spätere Erweiterung des Sequen¬ 
zers gedacht sind. Angesprungen werden sie über eine 
Tabelle von Vektoren, die im Moment nur in den Programmteil 
zur Ausführung des nächsten Kommandos führen, also 
nichts bewirken. Sinnvolle Sonderfunktionen sind: 

- Änderung von Soundparametern 

- Wahl eines ganzen Parametersatzes (Soundwechsel) im 
Zusammenhang mit dem Programm Modulator 

- Tempowechsel 

Sequenzen 6 « 6R 


Für jede der drei Stimmen gibt es eine Folge von Komman¬ 
dos, einen Track. Die drei Tracks werden zu einer Sequenz 
zusammengefaßt. Eine Sequenz ist hier ein zusammenhän¬ 
gender Abschnitt eines Musikstücks, der einen einzigen Ton, 
einen Takt oder auch das ganze Stück umfassen kann. Den 
drei Tracks gehen drei Zeiger auf die Track-Startadressen 
voran. Obwohl es sich aus Gründen der Übersichtlichkeit 
empfiehlt, die Sequenzen wie in Bild 1 zusammenhängend in 
der Folge Zeiger-Track 1, -Track 2, -Track 3 zu speichern, 
besteht dazu kein Zwang. Es müssen lediglich die drei Track- 
Zeiger einer Sequenz und die Tracks in sich Zusammen¬ 
hängen. 

Sequenzfolgellste 

Um eine Sequenz zu wiederholen, muß man sie nicht zwei¬ 
mal programmieren, sondern kann sie wie ein Unterpro¬ 
gramm mehrmals aufrufen. Die Sequenzfolgeliste enthält 
dazu die Startadressen der Sequenzen in der Reihenfolge, in 
der diese gespielt werden sollen. Dabei können die gleichen 
Adressen natürlich mehrfach auftreten. Unter der Start¬ 
adresse einer Sequenz wird hier die Adresse des Zeigers auf 
Track 1 verstanden. Die Sequenzfolgeliste enthält für jede 
Sequenz außer dem Zeiger noch ein drittes Byte, das für spä¬ 
tere Erweiterungen vorgesehen ist. Drei Nullen schließen die 
Liste ab. 

Im Normalfall wird man die drei Tracks einer Sequenz gleich 
lang programmieren. Macht man dagegen die Tracks unter¬ 
schiedlich lang, so wiederholt das Programm die kürzeren 
Tracks so lange, bis der längste Track zu Ende gespielt ist. 
Erst dann geht das Programm zur nächsten Sequenz über. 
Dieses Verhalten kann bei manchen Musikstücken nützlich 
sein. Das MSE-Listing 8 enthält einen Musikdatensatz, bei 
dem in der zweiten Sequenz der dritte Track aus nur vier 
Tönen besteht, die fortlaufend wiederholt werden. 


Normalerweise hält der Sequenzer an, wenn alle Sequen¬ 
zen gemäß Sequenzfolgeliste durchgespielt sind. Nach dem 

Flexibilität 

durch Steuer-Flags und Vektoren 


Anhalten wird auch der Interruptvektor auf seinen ursprüng¬ 
lichen Wert zurückgestellt. Eine 1 im Flag REPMODUS be¬ 
wirkt, daß das ganze Stück endlos wiederholt wird. 

Eine 1 im Flag SEQMODUS bewirkt, daß die aktuelle 
Sequenz endlos wiederholt wird. Auch hier ist der längste 
Track der Sequenz maßgeblich. 

Eine 1 im Flag LEGATO bewirkt, daß die GATE-Bits in den 
SID-Steuerregister nicht zurückgesetzt werden. Dadurch 
klingen die Töne gebunden. Dazu muß allerdings ein Sustain- 
Pegel ungleich Null eingestellt sein, sonst ist überhaupt 
nichts hörbar. 

An allen wichtigen Stellen des Sequenzers wird der Pro¬ 
grammfluß über Vektoren weitergeleitet. Damit soll die Mög¬ 
lichkeit, das Programm nachträglich leicht zu erweitern, 
offengehalten werden. Die Vektoren für die acht Sonderfunk¬ 
tionen wurden schon erwähnt. Außer diesen acht gibt es 
noch drei weitere Vektoren: 

TONVEKTOR 

Er führt das Programm weiter, nachdem die Frequenz für 
einen Ton-an-Befehl ermittelt wurde. Im vorliegenden Pro¬ 
gramm wird der Frequenzwert direkt in den SID geschrieben. 
Bei einem Einsatz zusammen mit dem Modulator muß die 
Frequenz dagegen in ein Modulatorregister geschrieben 
werden. 

EXTRAVEKTOR 

Über n jsen Vektor kann man weitere Aktionen an einen 
Sequenzerschritt anhängen. Denkbar wäre zum Beispiel die 
Anzeige der gespielten Noten auf dem Bildschirm in Real¬ 
time. 

IRQAVEKTOR 

Führt zum Systeminterrupt $EA31. Dieser Vektor muß 
beim Einsatz mit dem Modulator auf die Startadresse des 
Modulatorschrittes zeigen. 

Das vorliegende Sequenzerprogramm (Listing 12) belegt 
den Speicherbereich $C480-$C778. $0480 = 50304 ist 
gleichzeitig auch die Startadresse (SYS 50304). Tabelle 12 
faßt die wichtigsten Routinen, Variablen und Vektoren des 
Sequenzerprogramms zusammen. 

Das Programmieren von Musikstücken mit Hilfe der Tabelle 
13 ist noch etwas mühsam. Mit dem Datensatz aus Listing 10 
(»Kobold« aus den »Lyrischen Stücken« von Edvard Grieg) 
kann man den Sequenzer testen. 

Zum Sequenzer gibt es im Sound-Editor ein eigenes Unter¬ 
menü, von dem aus er gestartet und gestoppt werden kann. 
In diesem Untermenü kann man auch das Spieltempo und 
einige weitere Parameter einstellen. Damit liegt ein komplet¬ 
tes Programm vor, das von den vielen Möglichkeiten her die 
kommerziell angebotenen Synthesizerprogramme für den 
C 64 übertreffen dürfte. Für die grafische Gestaltung gibt es 
natürlich schönere und aufwendigere Konzepte, diese sind 
aber auch nicht das Thema dieses Kurses. 

Das Komplettsystem 


An Maschinenprogrammen werden vom Sound-Editor nach¬ 
geladen: 

MODULATOR 

SEQUENCER.OBJ 

SEQ.ERG.OBJ 
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Routinen, 

Variablen, Vektoren 

$C480 

JMP TEST 

Teststart, Zeiger Initialisieren, die 
wichtigsten SID-Parameter setzen, 
Sequenzer starten. 

$C49E 

SIDCR (3 Byte) 

SID-Control-Register-Bytes mit 
zurückgesetztem GATE-Blt 

€7» 

O 

> 

03 

LEGATO (1 Byte) 

Flag 0 = normaler Betrieb 

1 = kein GATE-OFF 

Ö3 

o 

-t* 

> 

CD 

SEQMODUS 

Flag 0 = ganzes Stück spielen 


(1 Byte) 

1 = Sequenz wiederholen 

$C4AA 

REPMODUS 

Flag 0 = Stück einmal spielen 


(1 Byte) 

1 = Stück Immer wieder 
spielen 

$C4C3 

FUNCTION (8‘2 
Byte) 

Vektoren für Sonderfunktionen 

$C4D3 

TONVEkTOR 

Vektor zur Weiterverarbeitung der 


(2 Byte) 

Frequenz bei Ton an 

$C4D5 

EXTRAVEKTOR 

Vektor für Zusatzaktion bei jedem 


(2 Byte) 

Sequenzerschritt 

$C4D7 

IRQAVEKTOR 
(2 Byte) 

Vektor für Timer-A-Interrupt 

$C4D9 

START 

Sequenzer starten (Es werden keine 
Zeiger initialisiert) 

$C51E 

IRQSERVICE 

Anlaufpunkt für alle IRQ-Interrupts 

$C67D 

NEXTAKT 

Dorthin sollten alle Sonderfunktionen 
zurückspringen 

$C716 

STOP 

Sequenzer unterbrechen/ausschalten. 

Er kann mit START jederzeit wieder 
gestartet werden. 

$C739 

TEST 

siehe $0480 

Tabelle 12. Die wichtigsten Routinen, Varianten und 

Vektoren des Sequenzers 



Bei dem letzten Programm handelt es sich um eine Ergän¬ 
zung zum Sequenzer (Listing 7). Diese Ergänzung, die mit 
dem MSE eingegeben werden muß (Listing 11), ist für den 
Betrieb zusammen mit dem Sound-Editor und mit »Modula¬ 
tor« erforderlich. Die technischen Einzelheiten wurden be¬ 
reits besprochen. 

Um das bis jetzt aufgebaute System von Programmen zu 
testen, kann man den kleinen Musikdatensatz »Test.Song« 
(Tonleiter und Kadenz) aus MSE-Listing 12 verwenden. 

Bedienung des Sequenzers 

Der Sound-Editor wird geladen und gestartet. Nach einer 
Initialisierungszeit von zirka 30 Sekunden meldet er sich mit 
dem Hauptmenü, von dem aus man mit »A« den Sequenzer 
erreichen kann. Parameter werden mit den Cursor-Tasten 
angewählt und können mit den F-Tasten verändert werden. 
Solange allerdings kein Song (= Musikdatensatz) geladen 
worden ist, was in der Titelzeile angezeigt wird, kann der 
Sequenzer nicht gestartet werden. 

Im Untermenü Disk (mit »D« zu erreichen) kann man mit 
»F2« den Musikdatensatz »Test.Song« laden und gelangt 
dann automatisch wieder in das Sequenzer-Untermenü. Der 
Sequenzer kann jetzt mit »F5« gestartet und mit »F3« wieder 
angehalten werden. »Fl« setzt ihn an den Anfang des gelade¬ 
nen Songs zurück. 

TEMPO 

Über das Tempofeld kann man die Abspielgeschwindigkeit 
im Bereich von 40 bis 480 bpm (beats per minute) einstellen. 
Geschwindigkeiten über 300 bpm sind allerdings musika¬ 
lisch kaum noch sinnvoll, sondern eher für Klangexperimente 
gedacht. 

MODUS 

Im Song-Modus wird das ganze Stück gemäß Sequenzfol¬ 
geliste gespielt. Der Sequenzmodus ermöglicht es dagegen, 
einzelne Sequenzen beliebig oft zu hören. 


Kommando 

Kommandoformate Innerhalb der Tracks 

Interpretation 

%0000 0000 

Track-Ende 


%0tlttttt 

Zeitvorgabe 

t = 1...96 GATE-ON-Zeit: =t-m 
t = 97...127GATE-OFF-Zelt: = t-97 

%lmmm nnnn 

nächster Ton 

m = 0...6 Oktaven 
n = 0...11 Tonnummer 
n = 12.,.15 Pause 

%1110 1111 

Pause 

(Standardcode $EF) 

% 1111 Ifff 

Sonderfunktion 

f = 0...7 Funktionsnummer 

Tabelle 13. So programmiert man einen »Track« 


SEQNR 

Im Sequenzmodus erscheint hier die Nummer der gespiel¬ 
ten Sequenz. Damit ist die aktuelle Position in der Sequenz¬ 
folgeliste gemeint und nicht die Nummer der Sequenz bei 
ihrer Definition. Es kann also unter verschiedenen Nummern 
die gleiche Sequenz mehrmals zu hören sein. So besteht 
zum Beispiel »Test.Song« aus zwei verschiedenen Sequen¬ 
zen, einer Tonleiter und einer Kadenz. Die Tonleiter wird wie¬ 
derholt und ist unter den Sequenznummern 1 und 2 zu hören. 
Die Kadenz ist unter Nummer 3 zu finden. Im Song-Modus hat 
das SEQNR-Feld keine Bedeutung. 

SOFT-EG 

Die Funktion entspricht der schon bekannten, mit Shift- 
space erreichbaren Kopplung des Soft-EG an das Tasten¬ 
feld-Spiel. 

SUSTAIN 

Die Sjj°tain-Funktion ist auch beim Sequenzer wirksam. 
Sie verhinuert das Rücksetzen der GATE-Bits der drei Stim¬ 
men. Dadurch klingen die Töne ohne Lautstärkedynamik 
durchgehend auf dem Sustain-Pegel. Während der Sequen¬ 
zer läuft, bleiben alle anderen Funktionen des Sound-Editors 
voll erhalten. Man kann also an einem laufenden Musikstück 
Änderungen an der Klangeinstellung testen. Lediglich bei 
Diskettenoperationen wird der Sequenzer unterbrochen. 

Mit dem Sequenzgenerator (Listing 13) kann man relativ 
einfach Song-Dateien erzeugen, die die für den Sequenzer 
erforderliche Struktur haben. Das Programm erzeugt aus 
einer in DATA-Zeilen abgelegten Folge von Noten einen 
Datensatz mit der beschriebenen Zeigerstruktur. Die Daten 
werden direkt hinter die Soundparameter ($9000 bis 
$9A07), also ab $9A08, gespeichert. Das geschieht in der 
Reihenfolge: 

- Zeiger auf die Sequenzfolgeliste (2 Byte) 

- Eine oder mehrere Sequenzen, bestehend aus jeweils 1 bis 
3 Tracks 

- Sequenzfolgeliste (sie enthält die Startadressen der 
Sequenzen in der Reihenfolge, in der sie abgespielt werden 
sollen). 

Es steht der Speicherbereich bis $BFFF, also auch der 
RAM-Bereich $A0000 bis $BFFF unter dem Basic-ROM zur 
Verfügung. Da sich POKE-Befehle immer auf das RAM bezie¬ 
hen, sind dazu keine weiteren Maßnahmen notwendig. Pro¬ 
grammteile, die auf diesen Bereich lesend zugreifen, sorgen 
selbständig für das erforderliche Umschalten zwischen RAM 
und ROM. Auf Editierfunktionen wurde bei diesem Programm 
verzichtet. Da die Noten in DATA-Zeilen geschrieben werden, 
kann man diese wie Basic-Programme mit dem Bildschirm¬ 
editor behandeln. 

Syntax der Notendaten 

Ein Song ist in einzelne Sequenzen gegliedert, welche wie¬ 
derum in bis zu drei Tracks (= Tonspuren) zerfallen. Den Auf¬ 
bau macht man sich am besten anhand von Listing 13, Zeilen 
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8000 bis 8820, klar. Dort steht das schon in Listing 10 als 
Hex-Dump abgedruckte Musikstück. Jenes ist allerdings für 
den Sequenzer in der jetzigen Form nicht weiter verwendbar, 
da es nicht im Speicherbereich ab $9A08 liegt. Die Zeilen 
8100 bis 8130 beschreiben eine Sequenz, in der nur Stim¬ 
me 3 programmiert wird. Der Track besteht dabei aus sieben 
Viertelnoten. Sequenzen müssen mit SEQUENZ, (laufende 
Nummer) eingeleitet werden. Die laufende Nummer muß im 
Bereich 1 bis 200 liegen. 

Innerhalb einer Sequenz wird mit TRACK, (1, 2 oder 3) 
angegeben, welcher Stimme die nachfolgenden Noten zuzu¬ 
ordnen sind. Man kann in einer Sequenz auch weniger als 
drei Tracks programmieren. Allen nicht programmierten 
Tracks ordnet das Generatorprogramm einen 4 Byte langen 
Dummy-Track zu, der nur aus einer Pause besteht und der nur 
einmal im Speicher stehen muß. 

Innerhalb eines Tracks sind dann folgende Daten zulässig: 
a-b stellt das Verhältnis zwischen GATE-ON- und GATE-OFF- 
Zeit ein. Voreinstellung ist 1-1, das heißt, beide Zeiten sind 
gleich lang. Bei 1-0 hat die GATE-ON-Zeit die maximale 
Länge, bei 0-1 werden die Noten nur sehr kurz angeschlagen. 
Die Einstellung hat keinen Einfluß auf die Gesamtlänge der 
Noten. Diese wird mit a/b eingestellt. Beispiele sind: 

1/1 ganze Note, 1/2 halbe Note, 1/4 Viertelnote, 1/6 Viertel- 
triole, 3/8 punktierte Viertelnote, 1/8 Achtelnote, 1/12 Ach- 
teltriole. 

Die Längenangabe bezieht sich auf alle Noten bis zur näch¬ 
sten Längenangabe. 

Als Notennamen werden die üblichen Bezeichnungen 


C,D,E,F,G,A,H verwendet. Die Notennamen können mit »#« 
(zum Beispiel F # = Fis) zur Erhöhung um einen Halbton oder 
mit »B« (zum Beispiel EB=Es) zur Erniedrigung um einen 
Halbton ergänzt werden. Die Notennamen müssen mit einer 
Oktavnummer zwischen 0 und 6 versehen sein. Der Kammer¬ 
ton a mit 440 Hz hat in dieser Schreibweise den Namen A3. 

P kennzeichnet eine Pause, für die ebenfalls die Längen¬ 
einstellung a/b gilt. 

SEQUENZFOLGE, nl, n2, n3,...,0. Diese Anweisung darf 
an beliebiger Stelle stehen und muß einmal vorhanden sein. 
Sie stellt die schon erwähnte Sequenzfolgeliste dar, von der 
die Abspielreihenfolge der Sequenzen gesteuert wird. Die 
Sequenzen nl, n2 und so weiter müssen natürlich definiert 
werden. Die Liste wird mit einer 0 abgeschlossen. 

ENDE schließt den Datensatz ab. 

Am Ende eines Generatorlaufs kann man den erzeugten 
Datensatz speichern. Dieser kann dann vom Sound-Editor 
geladen werden. Dem an Computermusik interessierten An¬ 
wender stehen nun leistungsfähige Programme zum Experi¬ 
mentieren und zur Realisierung seiner Ideen zur Verfügung. 

(Thomas Krätzig/tr) 


Hinweise zum Eintippen unserer Llstlngs: 

Bitte beachten Sie beim Eingeben unserer Listings unbedingt unsere 
Eintipphinweise auf den Seiten 61 bis 63! Dort finden Sie auch die bei¬ 
den Prüfprogramme »Checksummer« und »MSE«. Wenn Ihnen das Ein¬ 
tippen der Programme zu mühselig sein sollte, können Sie natürlich auf 
unseren Programmservice zurückgreifen. Nähere Informationen erhal¬ 
ten Sie auf Seite 4. 


Kleines Fachwörterlexikon der Computermusik 


Frequenz: 

Tonhöhe; Anzahl von Schwingungen pro Sekunde. 

Amplitude: 

Lautstärke; Maximalwert der Frequenz. 

Obertöne: 

Ein Ton eines Musikinstruments ist aus sehr vielen unterschiedlichen Einzeltö¬ 
nen zusammengesetzt, die den Klangcharakter des Instruments bestimmen. 
Der tiefste Ton dieser Summe ist die Tonhöhe, die wir »hören«. Die restlichen 
Töne sind die Obertöne. 

Filter, das: 

Elektronisches Bauelement. Dämpft die Lautstärken der einzelnen Obertöne 
eines Tones und verändert so seinen Klang. 

Hüllkurve, Attack, Decay, Sustaln, Release: 

Hüllkurve Ist der zeitliche Lautstärkeverlaul eines Tones. Beispiel: 

Nach dem Drücken der Taste langsames Lauterwerden des Tons bis zur Maxi¬ 
mallautstärke (Attack-Phase); dann schnelles Absinken (Decay-Phase) bis auf 
einen bestimmten Level (Sustaln-Level); nach dem Loslassen der Taste schnel¬ 
les Ausklingen des Tons (Release-Phase). Attack, Decay und Release sind Zeit¬ 
einheiten, werden also in Millisekunden angegeben. Sustaln Ist eine Lautstär¬ 
keeinheit und wird meist In Prozent von der Maximallautstärke angegeben. 
Tremolo: 

Während ein Ton erklingt, ändert sich seine Lautstärke schnell. 

Moog-Synthesizer: 

Synthesizer mit fest vorgegebenen Baugruppen, nach seinem Erfinder Moog 
benannt. 

Manual, Keyboard: 

Die Tastatur eines Synthesizers. 

cv, Control Voltage: 

Das Keyboard teilt dom Synthesizer über die Höhe der CV-Spannung mit, wel¬ 
che Toste gerade gedrückt Ist. Diese Spannung nennt man auch CV-Gate- 
Slgnal. 

Oszillator: 

Elektronische Schaltung, die Schwingungen (also auch Töne) erzeugt. 

VCO, Voltage Controlled Osclllator: 

Oszillator, der abhängig von der vom Keyboard gelieferten CV-Spannung die 
gewünschte Tonhöhe erzeugt. 

VCF, Voltage Controlled Filter: 

Filter, das abhängig von der Tonhöhe, also der CV-Spannung, die erzeugten 
Töne filtert. 

Hochpaß-, Bandpaß- und Tiefpaßfilter: 

Filter, das die Obertöne eines Tons dämpft. 

Merkhilfe: 

ein »Hochpaß« läßt hohe, 

ein »Bandpaß« mittlere und 

ein »Tiefpaß« tiefe Obertöne passieren. 

VCA, Voltage Controlled Ampliller: 

Verstärker, der spannungsgesteuert die Hüllkurve eines Tons erzeugt. 


EG, Envelope Generator: 

Diese B"-"' uppe erzeugt die Steuerspannung für den VCA. 

LFO, Low Frequency Osclllator: 

Ein Oszillator, der sehr niedrige Schwingungen erzeugt. Mit Hilfe seiner Steuerspan¬ 
nung erhält man in Verbindung mit dem VCA ein Vibrato. 

DCO, DCF und DCA: 

In modernen Synthesizern werden VCO, VCF und VCA nicht über Spannungen, 
sondern mit Hilfe von Digitalwerten gesteuert. Man spricht dann von DCO, DCF 
und DCA. 

Filterfrequenz: 

Zu jedem Filter gehören zwei einstellbare Filterfrequenzen: 

Die untere Tonhöhe und die obere Tonhöhe, zwischen denen gefiltert werden 
soll. Wird auch als Eck- oder Grenzfrequenz bezeichnet. 

Fllterresonanz: 

Mit diesem einstellbaren Synthesizerparameter kann man die Tonhöhen In der 
Gegend der Fllterfrequenz gezielt verstärken. Damit lassen sich interessante 
Effekte erzielen. 

Vibrato: 

Während ein Ton erklingt, wird seine Tonhöhe schnell periodisch geändert. Der Ton 
schwingt auf und ab, er vibriert. Gelgenprofis wenden diese Technik häufig an. 

Portamento: 

Bekanntestes Beispiel für ein Portamento Ist der Sirenenton. Man sagt auch, ein 
Ton wird »gezogen«. Es werden also zwischen zwei aufelnanderfolgonden Tönen 
keine Halbtonabstände gespielt, sondern alle dazwischenliegenden Frequenzen 
kurz angeschlagen. Der Portamento-Effekt wird meist nur von Synthesizern 
erzeugt. 

Sequenzer: 

Ein Gerät (oder Computerprogramm), das eine von Musik einprogrammierte Ton- 
folgo (Melodie) jederzeit wiedergeben kann. Einzelne Klangeffekte wie auch Tem¬ 
poänderungen und ähnliches lassen sich programmieren. 

Modulation: 

Wenn eine Baugruppe durch das Ausgangssignal eines anderen Elements 
gesteuert wird, odor wenn ein Parameter einen zweiten fortlaufend ändert, spricht 
man von Modulation. 

DCO-EQ-AM-Gruppe: 

Zusammengofaßte Gruppe aus den Bauelementen »Digital Controlled Osclllator« 
(DCO), »Envelope Generator« (EG) und »Ampliller« (AM = Verstärker). 

SID, Sound Interface Device: 

Der Chip des C64, der die Töne erzeugt. 

QATE-Blt: 

Ein Bit Im SID, über das das »Anschlägen« und »Loslassen« einer Klaviertaste simu¬ 
liert wird, um einen Ton zeitlich zu steuern. 

Pulswelte: 

Nur Im Zusammenhang mit einem Rechteckton. Der Rechteokton springt In 
bestimmten Zeltabständen zwischen zwei Amplitudenwerten hin und her, er pul¬ 
siert. Das Verhältnis dieser Zeitabstände zueinander bezeichnet man als Puls¬ 
weite. 
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Listing 1. 
Einfache 
Klangeffekte 


100 REM- 

110 REM EINFACHE KLANGEFFEKTE 

120 REM- 

130 S=54272 

140 READ A,D,SU,R,C,P,F,M,FF,FR,ML 
150 PGKE S+5 , 16»A +D 
160 POKE S+6 ,16*SU+R 
170 POKE 3+2 ,P AND 255 
1B0 PDKE S+3 ,P/256 
190 HI=INT(F/256):LO=F-256#HI 
200 PDKE S ,LO 
210 POKE S+l ,HI 
220 POKE B+22,FF 
230 POKE B+23.FR 
240 POKE B+24.ML 
250 BET A*:IF A*="" THEN 250 
260 : POKE S+4,C OR 1 
270 : FOR 1=1 TO MtNEXT I 
2B0 I POKE S+4,C AND 254 
290 GOTO 250 

300 REM- 

310 REM PARAMETER 
320 DATA 0 ,10, 0,10:REM A D B R 

330 DATA 16 : REM CONTROL-BYTE 

340 DATA 204B :REM PULSWEITE 

350 DATA 40000 :REM FREQUENZ 

360 DATA 100 :REM VERZOEBERUNG 

370 DATA 50 :REM FILTERFREQUENZ 

3B0 DATA 0 : REM FILTERREBONANZ 

390 DATA 15 :REM MODUB/LAUT 


<146> 
<107^ 
< 166> 
<150> 
<187> 

< 174> 
<037> 

<nm-> 

<!133> 
<H2> 
< 222 > 
< 0 ia> 
<056> 
<154> 
<224 > 
< 220 > 

< 191 > 

< 161> 

< 193> 
<052> 
<092> 
<224> 

< 165> 
< 222 > 

< 129> 
<1B3> 
<216> 
<033> 
<14B> 
<209> 


440 DATA 204B 
450 DATA 16000 
460 DATA 1.33 
470 DATA 2 
4B0 DATA 25 


s REM PULSWEITE P <03B> 
s REM FREQUENZ F <124> 
: REM FAKTOR B <U7> 
s REM ANZAHL N <197> 
:REM ANZAHL M <0B4> 


Listing 2. Klangeffekte mit dynamischer Frequenzsteuerung 


100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

2B0 

290 

300 

310 

320 

330 

400 

410 

420 

430 


REM- < 146> 

REM KLANGEFFEKTE MIT <098> 

REM DYNAMISCHER FREQUENZBTEUERUNB <21B> 

REM - <176> 

5=54272 <160> 

READ A,D,SU,R,C,P,F,G,N,M <206> 

POKE S+5 ,16*A +D <184> 

POKE S+6 ,16*SU+R <047> 

POKE S+2 ,P AND 255 
POKE S+3 ,P/256 
POKE S+23,0 :REM FR 

POKE S+24,15 :REM ML 

GET A*:IF A*= M " THEN 220 
FOR 1=1 TO M 
: F1=F 

: POKE S+4,C OR 1 
: FOR J=1 TO N 
: POKE S,F1 AND 255 

: POKE S+l,Fl/256 

: F1=F1*G 

s NEXT J 
: POKE S+4,C 
NEXT I 
GOTO 220 

REM- 

REM PARAMETER <06B> 

DATA 0 ,10, 0,10:REM A D SU R <0BB> 

DATA 16 :REM CONTROL-BYTE C <092> 


REM- 

REM KLANGEFFEKTE MIT 
REM DYNAMISCHER STEUERUNG 
REM DURCH STIMME 3 
REM---'- 


100 
110 
120 
;25 
ti 30 
140 S=54272 

150 READ A,D,SU,R,C,P,F,B,N,M 

160 POKE S+5 ,16*A +D 

170 POKE S+6 ,16*SU+R 

1B0 POKE S+2 ,P AND 255 

190 POKE S+3 ,P/256 

200 POKE S+23,0 :REM FR 

210 POKE S+24,128+15:REM ML <S3 AUS» 

220 READ A3,D3,S3,R3,C3,P3,F3,Q 

230 HI=INT(F3/256):L0=F3—256*HI 

240 POKE S+14,LO 

250 POKE S+15.HI 

260 POKE S+16.P3 AND 255 

270 POKE S+17,P3/256 

280 POKE S+19,16*A3+D3 

290 POKE S+20,16*S3+R3 

300 Q=S+Q 

310 F=F/256 

320 GET A*:IF A*="" THEN 320 
330 FOR 1=1 TO M 


340 

350 

360 

370 

380 

390 

400 


POKE S+4 ,C OR 1 
POKE S+1B.C3 OR 1 
FOR J=1 TO N 

POKE S+l, F»(1+PEEK <Q)/G) 
NEXT J 
POKE S+4 ,C 
POKE S+1B.C3 


< 146> 
<098> 

< 139> 
<066> 

< 176> 
<160> 
<206> 
<184> 
<047> 
<095> 

< 143> 
<203> 
<0B6> 

< 190> 
<201 > 

< 197> 
<255> 
<1U> 
<209> 
<209> 
<204> 
<230> 
<091 > 

< 131 > 

< 1BB> 
<015> 
< 012 > 
<06B> 

< 106> 
<030> 
<028> 
<166> 


<095> 

410 

NEXT 

I 



<240> 

<143> 

<203> 


320 



< 142> 

<057> 

510 

REM PARAMETER STIMME 

1 

<036> 

<250> 

<253> 

520 

DATA 

0 , B, 

0, 8:REM 

A D SU R 

<243> 

<0B6> 

530 

DATA 

32 

: REM 

CONTROL-BYTE C 

< 146> 

<004> 

540 

DATA 

2048 

: REM 

PULSWEITE P 

< 140> 

< 179> 

550 

DATA 

40000 

: REM 

FREQUENZ F 

< 154> 

<224> 

560 

DATA 

500 

: REM 

FAKTOR G 

<239> 

<039> 

570 

DATA 

8 

: REM 

ANZAHL N 

<091 > 

< 178> 

580 

DATA 

10 

: REM 

ANZAHL M 

<098> 

<010> 

600 

REM PARAMETER STIMME 

3 

<094> 

<206> 

610 

DATA 

0, 8, 

0, 0:REM 

A3 D3 S3 R3 

< 144> 

<204> 

620 

DATA 

16 

: REM 

CONTROL C3 

<233> 

< 150> 

630 

DATA 

2048 

: REM 

PULSWEITE P3 

< 127> 

<044> 

640 

DATA 

10 

: REM 

FREQUENZ F3 

<063> 

< 192> 

650 

DATA 

28 

: REM 

MOD.-QUELLE Q 

<201 > 


Listing 3. Klangeffekte mit dynamischer Steuerung durch 
Stimme 3 


----- 

---- 1 -J 

Name 

1 

madulator 



C075 c426 

Cl2d 

X 

00 

6a 

9<+^Ib 

C0 

60 

a5 

fc 

d3 

clf5 

x 

B5 

fb 

ad 

6d 

C0 

B5 

fc 

ad 

18 












cl35 

3 

10 

13 

a5 

fb 

49 

ff 

0a 

85 

7f 

clfd 

i 

46 

C0 

BS 

fd 

20 

75 

C0 

3B 

e5 

C075 

* 

a9 

00 

a2 

0B 

0a 

26 

fb 

90 

ab 

cl3d 

I 

fb 

a5 

fc 

49 

ff 

2a 

49 

B0 

ob 

c205 

i 

ad 

6c 

c 0 

o5 

fb 

Dd 

6c 

C0 

34 

c07d 

I 

07 

10 

65 

fd 

90 

02 

e6 

fb 

56 

c 1 45 

s 

B5 

fc 

4c 

60 

cl 

06 

fb 

2a 

fB 

c20d 

3 

85 

fb 

ad 

6d 

C0 

e5 

fc 

Bd 

f 3 

C0B5 

1 

ca 

d0 

fi 

aB 

Ba 

a2 

0B 

0a 

3b 

cl4d 

X 

49 

B0 

85 

fc 

4c 

60 

cl 

aS 

fl 

c215 

X 

6d 

C0 

85 

fc 

ad 

47 

C0 

B5 

06 

c0Bd 

* 

26 

fc 

90 

07 

1B 

65 

fd 

90 

fc 

c 155 

I 

fb 

49 

ff 

B5 

fb 

a5 

fc 

49 

19 

c21d 

3 

fd 

20 

75 

C0 

a9 

0Q 

2c 

4B 

bc 

C09S 

I 

02 

06 

fc 

ca 

d0 

fl 

18 

65 

6a 

Cl5d 

3 

ff 

B5 

fc 

bd 

23 

C0 

B5 

fd 

60 

c225 

I 

C0 

f0 

10 

3B 

•9 

00 

e5 

fb 

93 

C09d 

: 

f b 

B5 

fb 

90 

02 

b6 

fc 

98 

eB 

c 165 

1 

20 

ab 

C0 

a6 

fe 

a5 

fb 

9d 

25 

c22d 

X 

Bd 

6e 

C0 

a9 

MH 

e5 

fc 

Bd 

95 

c0 a5 

“ 

60 

a5 

fc 

10 

cb 

3B 

a9 

00 

3o 

cl6d 

X 

4 b 

C0 

a5 

fc 

9d 

4c 

c 0 

60 

21 

c235 

3 

6f 

C0 

60 

a5 

fb 

Bd 

6e 

C0 

3B 

C0ad 

1 

e5 

f b 

05 

fb 

a9 

00 

e5 

fc 

9d 

c 175 

I 

ad 

4U 

C0 

29 

06 

c9 

04 

10 

3c 

c23d 

X 

ab 

fc 

Bd 

6f 

C0 

60 

49 

ff 

e6 

C0b5 

* 

B5 

fc 

20 

75 

C0 

85 

02 

3B 

20 

cl7d 

1 

15 

c9 

06 

f0 

12 

a9 

00 

Bd 

aB 

c245 

3 

B5 

02 

a9 

00 

85 

fb 

B5 

fc 

7b 

C0bd 

! 

a9 

00 

e5 

02 

aB 

a9 

00 

eS 

c4 

clBS 

X 

6c 

C0 

Bd 

6d 

C0 

Bd 

6e 

C0 

16 

c24d 

3 

a0 

0B 

46 

02 

b0 

11 

aa 

a5 

4d 

C0c5 

i 

f b 

05 

f b 

a9 

00 

e5 

fc 

85 

e5 

clBd 

X 

Bd 

6f 

C0 

Bd 

70 

C0 

60 

a9 

95 

c255 

3 

fb 

7d 

4b 

C0 

B5 

fb 

a5 

fc 

c2 

c0cd 

x 

fc 

90 

60 

a6 

fe 

bd 

24 

C0 

f 2 

cl95 

: 

01 

2c 

4B 

C0 

f0 

52 

2c 

70 

0a 

c2Sd 

3 

7d 

4c 

c 0 

85 

fc 

Ba 

3B 

69 

b9 

C0d5 

x 

29 

06 

c9 

04 

(Qi 

12 

c9 

06 

c7 

cl9d 

: 

C0 

d0 

39 

ad 

6c 

C0 

49 

ff 

bb 

c265 

X 

04 

BB 

d0 

e6 

60 

a6 

fe 

bd 

71 

c0dd 

X 

i0 

0f 

ä9 

00 

9d 

49 

C0 

9d 

22 

cla5 

i 

B5 

fb 

ad 

6d 

C0 

49 

ff 

85 

a2 

c26d 

X 

04 

C0 

d0 

0d 

bd 

00 

C0 

9d 

c 1 

C0e5 

: 

4a 

C0 

9d 

4b 

C0 

9d 

4c 

C0 

0c 

clad 

3 

fc 

ad 

43 

C0 

0a 

b0 

05 

85 

ae 

c275 


05 

C0 

bd 

01 

C0 

9d 

06 

C0 

f c 

C0ed 

3 

60 

1B 

bd 

49 

C0 

7d 

20 

C0 

ec 

clb5 

X 

fd 

20 

75 

c 0 

1B 

ad 

6c 

C0 

5a 

c27d 

j 

60 

bd 

01 

C0 

dd 

06 

C0 

90 

46 

C0f5 

3 

9d 

49 

c 0 

05 

fb 

bd 

4a 

C0 

70 

clbd 

X 

65 

fb 

Bd 

6c 

C0 

B5 

fb 

ad 

94 

c2B5 

t 

3a 

d0 

0b 

bd 

00 

C0 

dd 

05 

29 

c0f d 

3 

7d 

21 

C0 

9d 

4a 

C0 

B5 

fc 

a9 

clcS 

3 

6d 

C0 

65 

fc 

Bd 

6d 

C0 

85 

de 

c2Bd 

X 

C0 

90 

30 

d0 

01 

60 

30 

bd 

2b 

cl05 

X 

bd 

24 

C0 

29 

1B 

f0 

27 

c9 

63 

clcd 

: 

fc 

c9 

ff 

90 

47 

a9 

01 

8d 

al 

c295 

I 

00 

C0 

fd 

05 

C0 

B5 

fb 

bd 

b9 

cl0d 

: 

00 

re 

50 

c9 

10 

f 0 

40 

a5 

af 

cldS 

3 

70 

C0 

d0 

40 

ad 

6c 

C0 

85 

2e 

c29d 

X 

01 

C0 

fd 

06 

C0 

B5 

fc 

bd 

eb 

cl 15 

3 

fc 

dd 

22 

C0 

90 

09 

3B 

a9 

26 

c ldd 

3 

fb 

3B 

ad 

bd 

C0 

ed 

45 

C0 

lf 

c2a5 

3 

04 

C0 

B5 

fd 

20 

75 

C0 

a6 

2B 

clld 

s 

00 

f d 

23 

c0 

3B 

b0 

04 

1B 

46 

cle5 

3 

B5 

fc 

ad 

44 

C0 

4c 

ff 

cl 

ce 

c2ad 

3 

fe 

38 

bd 

05 

c0 

65 

f b 

9d 

3a 

c 1 25 


bd 

23 

C0 

6 a 

9d 

4c 

C0 

a9 

04 

cled 

! 

a9 

00 

Bd 

70 

C0 

ad 

6c 

C0 

b4 

c2b5 

X 

05 

C0 

bd 

06 

c 0 

65 

fc 

9d 

bl 


110 
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c2bd 

s 

06 

C0 

60 

30 

bd 

05 

C0 

fd 

45 

c2c5 

: 

00 

C0 

B5 

fb 

bd 

06 

C0 

fd 

11 

c2cd 

a 

01 

C0 

05 

fc 

bd 

04 

C0 

05 

39 

c2d5 

s 

fd 

20 

75 

C0 

a6 

fe 

10 

bd 

96 

c2dd 

g 

05 

C0 

e5 

fb 

9d 

05 

C0 

bd 

bc 

c2e5 

s 

06 

C0 

B5 

fc 

9d 

06 

C0 

60 

32 

c2ed 

S 

a9 

le 

05 

fe 

20 

d0 

C0 

30 

e2 

c2f5 

a 

a5 

fe 

e9 

05 

10 

f 4 

20 

75 

40 

c2f d 

8 

cl 

a9 

02 

a 2 

0Q 

05 

9b 

06 

f0 

c305 

- 

f e 

20 

6a 

c2 

a6 

9b 

bd 

10 

75 

c30d 

a 

C0 

d0 

11 

a6 

fe 

bd 

05 

C0 

c2 

c315 

B 

9d 


d4 

bd 

06 

C0 

9d 

01 

7e 

c31d 

3 

d4 

4c 

41 

c3 

20 

43 

c2 

a6 

55 

c325 

8 

fe 

bd 

06 

C0 

05 

fd 

20 

a6 

b2 

c32d 

8 

ca 

a6 

fe 

10 

bd 

05 

C0 

65 

d5 

c335 

8 

fb 

9d 

00 

d4 

bd 

06 

C0 

65 

73 

c33d 

8 

fc 

9d 

01 

d4 

a6 

9b 

bd 

lb 

57 


c345 

1 

C0 

d0 

11 

a6 

fe 

bd 

02 

C0 

ee 

c34d 

1 

9d 

02 

d4 

bd 

03 

C0 

9d 

03 

0b 

c355 

8 

d4 

4c 

01 

c3 

20 

43 

c 2 

46 

de 

c35d 

8 

fc 

66 

fb 

46 

fc 

66 

fb 

46 

d3 

c365 

8 

fc 

66 

fb 

46 

fc 

66 

fb 

a6 

9c 

c36d 

: 

fe 

10 

bd 

02 

C0 

65 

fb 

9d 

09 

c375 

8 

02 

d4 

bd 

03 

C0 

65 

fc 

29 

2f 

c37d 

3 

0 f 

9d 

03 

d4 

0 a 

30 

e9 

07 

d6 

c305 

B 

05 

fe 

c6 

9b 

30 

03 

4c 

06 

07 

c30d 

s 

c3 

ad 

15 

C0 

0 d 

15 

d4 

ad 

b4 

c395 

3 

le 

C0 

d0 

09 

ad 

16 

C0 

Bd 

12 

c39d 

8 

16 

d4 

4c 

ae 

c3 

20 

43 

c2 

d6 

c3a5 

8 

10 

ad 

16 

C0 

65 

fc 

Bd 

16 

d2 

c3ad 

8 

d4 

ad 

lf 

C0 

d0 

07 

ad 

17 

62 

c3b5 

8 

C0 

0 d 

10 

d4 

60 

20 

43 

c2 

76 

c3bd 

8 

ad 

17 

C0 

29 

f0 

05 

02 

a5 

da 

c3c5 

8 

fc 

4a 

4a 

4a 

4a 

10 

6 d 

17 

0 c 


c3cd 

: 

C0 

29 

0 f 

05 

02 

Bd 

10 

d4 

Id 

c3d5 

8 

60 

ad 

04 

de 

ae 

05 

de 

c9 

c3 

c3dd 

8 

04 

b0 

01 

eB 

60 

20 

d6 

c3 

01 

c3e5 

: 

Bd 

73 

C0 

Be 

74 

C0 

20 

ed 

d7 

c3ed 

3 

c2 

20 

d6 

c3 

05 

02 

30 

ad 

92 

c3f 5 

8 

73 

C0 

e5 

02 

Bd 

71 

C0 

06 

f 6 

c3f d 

8 

02 

ad 

74 

C0 

e5 

02 

Bd 

72 

94 

c405 

8 

C0 

4c 

31 

ea 

7B 

a9 

e 2 

Bd 

10 

c40d 

8 

14 

03 

a9 

c3 

Bd 

15 

03 

50 

c4 

c415 

8 

60 

7B 

a9 

31 

Bd 

14 

03 

a9 

lb 

c41d 

8 

ea 

Qd 

15 

03 

50 

60 

00 

00 

fc 

c425 

8 

0 B 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

2 d 


Listing 4. »Modulator», das Kern¬ 
stück des späteren Sound-Editors 


10 REM- <056> 

11 REM RAHMENPROGRAMM ZUM TEST VON <042> 

12 REM MODULATOR <099> 

13 REM <075> 

14 REM THOMAS KRAETZ1G FEBRUAR 1905 <016> 

15 REM- <061 > 


20 

REM 

SID F 

PW 

PORT WF 

A D 

S R 

< 026 > 

21 

DATA 

110 , 

50 , 

32 , 64 , 

1 , 10 , 

8,10 

< 100 > 

22 

DATA 

220 , 

50 , 

4 B , 64 , 

1 , 10 , 

8,10 

< 177 > 

23 

DATA 

440 , 

50 , 

64 , 32 , 

1 , 10 , 

8,10 

< 233 > 

24 

25 

X 

REM 

FILTER 

F 

RES FILT MOD 

LAUT 

< 000 > 

< 219 > 

26 

DATA 


64 , 

12 , 

7 , 1 . 

, 15 

< 014 > 

27 

28 

: 

REM LFO F 

P 

A C 

F P 

A C 

< 003 > 

< 160 > 


EG A 

20 , 


D S 
15, 32, 


R 

20 , 


EGA 

128, 


EGO 

06 


29 DATA 5000,120, 6, 6,7000,128, 6, 6 

30 DATA 000,128,128, 6,9000,128, 8, 6 

31 DATA 6000,128,103,30,1000,128,196, 6 

32 DATA 15,128,12B, 0 

33 x 

34 REM 

35 DATA 

36 : 

37 REM 

38 DATA 

39 DATA 

40 DATA 

41 DATA 
245 s 

250 B=12*4096 :REM BASIS FUER PARAMETER 
255 31=13*4096+1024 sREM SID-BASIS 
260 s 

265 REM DATAS EINLESEN, SID- UND 
270 REM MODULATOR-REGISTER BESETZEN 
275 s 

280 FOR SS=0 TO 2 xREM 3 STIMMEN 
285 s 


KSV 

00000001,F1, 
00001000,F3, 
00000000,PW2, 
10000000,FILT, 


00000010,F2 
00000100,PW1 
00000000,PW3 
00000000,LAUT 


REM FREQUENZ 

READ F:F=INT<F*17.0284+0.5) 

HI = INT <F/256>x L0=F-256*HI 
POKE B+7*8S,L0:P0KE B+1+7*SS,HI 
BF CSS)=F :REM BASISFREQUENZ 

REM PULSWEITE 
READ PiP=INT<P*40.95+0.5) 
HI=INT<P/256)sL0=P-256*HI 
POKE B+2+7*SS,LO 
POKE B+3+7*SB,HI 

REM PORTA 

READ PxPOKE B+4+7*BS,P 
REM WELLENFORM 

READ WF(SS)x WF(SS)=WF(SS) AND 254 

REM A D S R - HUELLKURVE 

READ Ai READ DxPOKE SI+7*SS+5,16*A+D 

READ SxREAD RxPQKE SI+7*SS+6,16*S+R 


290 x 
295 x 
300 x 
305 x 
310 x 
315 x 
320 x 
325 x 
330 x 
335 I 
340 x 
345 x 
350 x 
355 x 
360 I 
365 x 
370 x 
375 x 
3B0 x 
385 x 
390 x 
395 : 

400 NEXT SS 
405 x 

410 REM FILTER, LAUTSTAERKE 
415 READ Fx HI=INT(F/B)xLQ=F—B*HI 
420 POKE B+21,LOx POKE B+22.HI 
425 READ RESxREAD FI LT 
430 POKE BI+23,16*RES+FILT 
435 READ MODxREAD LAUT 


<193> 

< 196> 

< 186> 
<■ 22.7 > 
<009> 
<239> 
<237> 
< 012 > 

< 1B8> 
< 010 > 
<207> 
<230> 
<004> 
<221 > 

< 114> 
<213> 
<23B> 
<244> 

< 172> 
<253> 
<231 > 
<007> 
<025> 

< 113> 
<193> 
<03B> 
<21B> 
<037> 
<013> 

< 114> 
<017> 
<22B> 
<040> 
<067> 
<177> 

< 190> 
<082> 

< 107> 

< 174> 
<097 > 

< 147> 
<02B> 

< 114> 

< 117> 
<107> 

< 127> 
< 100 > 
<039> 
<245> 
<021 > 
<034> 
<207> 


440 POKE B+23,16*M0D+LAUT <061> 

445 x <167> 

450 REM LFO <177> 

455 FOR 1=0 TO 6 <142> 

460 : READ FxHI=INT(F/256)xL0=F-256*HI <049> 

465 x POKE B+32+5*I,LO <003> 

470 x POKE B+33+5*I,HI <135> 

475 x READ PxPOKE B+34+5*I,P <040> 

480 x READ AxPOKE B+35+5*I,A <049> 

4B5 x READ CxPOKE B+36+5*I,C <092> 

490 NEXT I <064> 

495 x <217> 

500 REM EG (fl D S R) <228> 

505 FOR 1=0 TO 4xREAD XiPOKE B+67+I,X <0B7> 

510 NEXT I <0B4> 

515 READ EC xREM STEUERBYTE MERKEN <021> 

520 EC=EC AND 254xREM GATE=0 <203> 

525 POKE B+72,EC <126> 

530 X <254> 

535 REM KSV <17B> 

540 FOR 1=0 TO 7 <101> 

545 i READ A*xA=0 <033> 

550 > TOR J=1 TO 8 <23B> 

555 x A=2*A <093> 

560 x IF MID*(A*,J,1)="1"THEN A=A+1 <076> 

565 i NEXT J <217> 

570 1 POKE B+24+I,A <247> 

575 x READ A* xREM UEBERLESEN <239> 

580 NEXT I <156> 

5B5 x <053> 

590 REM EINGABEZEICHEN FUER NOTEN <1BB> 

595 N*="Q2W3ER5T6Y7U19O0P@—* £ T" <010> 

600 I <06B> 

610 REM RELATIVE TONHOEHEN <011> 

615 DIM TH(21) <253> 

620 FOR 1=0 TO 21 <100> 

625 x TH(I)=2t (1/12) <0B6> 

630 NEXT I <206> 

635 x <»03> 

640 SYS B+1024+9 xREM MODULATOR STARTEN <237> 
642 x <U0> 

645 REM ZEITMESSUNG AUBWERTEN <161> 

650 T=PEEK<B+113)+256*PEEK(B+l14) <204> 

655 T1=INT(T/100)/10 <125> 

660 T2=INT(1000*T/16421)/10 <196> 

665 PRINT"ZEITBEDARFx"|T1|"MS"; <1B7> 

670 PR I NT " C2SPACE >AUSLASTUNG x " j T2; " 7. C3UP > " 

. <0B5> 

671 x <139> 

672 REM TASTENEINBABEN AUBWERTEN <113> 

673 REM Q-t TOENE (WEISSE TASTEN) <173> 

674 REM 2-f TOENE (SCHWARZE TASTEN) <135> 

675 REM SPACE GATE AUS <244> 

676 REM Fl,2,3 STIMME 1,2,3 <005> 

677 . <145> 

6B0 S=0 <145> 

685 GET AliIF A*="" THEN 685 <086> 

690 IF A*<>" " THEN 715 <076> 

695 POKE B+72,EC xREM EB GATE AUS <251> 

700 POKE SI+4+7*S,WF(S)xREM GATE AUS <20B> 

705 GOTO 685 <197> 

710 REM N* NACH EINGABE DURCHSUCHEN <237> 


Listing 5. Testprogramm für die Modulatorroutine 
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715 1=0 

720 1=1+1ilF I>=22 THEN 770 
725 IF A*OMID*<N$,I,l> THEN 720 
730 F=BF<S)#TH(I—1) 

735 HI = INT t F/256):LD=F-256*HI 

740 POKE SI+4+7»S,WF(B)tREM BÄTE AUS 

745 POKE B+72,EC :REM EB BÄTE AUS 

750 POKE B+7*S,L0 sPOKE B+1+7*S,HI 

755 POKE SI+4+7*S,WF(S)+1 

760 POKE B+72,EC+1iREM EB BÄTE AN 

765 GOTO 6B5 

770 IF A*="<F1>" THEN S=0 :REM Fl,STIMME 
775 IF A*="<F3}" THEN S=1 :REM F3,STIMME 
700 IF A*="{F5}" THEN B=2 sREM F5,STIMME 
785 BOTO 6B5 

Listlng 5. Testprogramme für den Modulator 
(Schluß) 


< 140> 
< 220 > 

< 166> 

< 150> 

< 179> 
<248> 
<045> 
<02B> 
<170> 
<069> 
< 001 > 

1 <160> 

2 <057> 

3 <209> 
<023> 


ASS.64 I7Ü00 ENGAOED 
2 

lOSOi C075 


.OPI P,00 


I* 


MODULATOR 


»• - PROGRAMMIERBARE SOFTMARE-LF09 UND HUELLKURVENQENERATOREN 
I* JUR MODULATION DER BIO-PARAMETER 
I * FREOUENZ»PUIOME!TE,FIITERFREOUENZ UND LAUTSTAERKE 
I» - DRE1STIMM10ES FREOUENZ-PORTAMENTO 
I* 


I« THOMAS KRAETZIG 


HAERZ 1985 


1190t 

C073 

ZAEHLER 

> 

*9B 

1ADRE53VERSATZ FUER KSV 

1200t 

C073 

MR 

- 

»FB 

(MULTIPLIKATOR 

1210t 

C075 

MD 

= 

»FD 

(MULTIPLIKAND 

1220t 

C075 

LFONR 

m 

»FE 

(ADRESSVERSATZ FUER LFO-BLOCK 

1230t 

C075 

ST INR 

■ 

«FE 

;ADRESSVER9ATZ FUER STIMHEN-BLO 

1240t 

C075 

TEHP 

* 

»FF 

1 ZWISCHENSPEICHER 

1250t 

COOO 


• * 

»COOO 

(BASIS FUER STEUERPARAMETER 

• 

| STEUERPARAMETER 





i 

1290t 

C002 

F 


•♦2 

(FREQUENZ 

1300t 

C004 

PM 

• = 

• *2 

(PULSMEITE 

1310t 

C005 

PORTA 


• *1 

(PORTAMENTO-RATE 

1320 t 

C007 

FP 

»• 

• *2 

(F IM PORTA-VERLAUF (DYNAMISCH! 

1330t 

CO 15 


*3 

«♦14 

(2 HEITERE SOLCHE BLOECKE 

1340t 

COI7 

FILT 

ls 

• *2 

(FILTERFREOUENZ 

1350t 

CO 18 

MODLAUT 

• ■ 

• *l 

(FILTERMODUS/LAUTSTAERKE 

1360t 

C020 

KSV 


•*8 

1 KREUZ SCHIENE ((VERTEILER 

1370t 

C022 

LFDF 

« = 

• *2 

(LFO-FREQUENZ 

1380t 

C023 

LFOP 


»*1 

(LF0-PUL8MEITE 

1390t 

C024 

LFOA 

1» 

*♦1 

(LFO-AMPLITUDE 

1400t 

C025 

LFOC 


• *1 

ILFO-STEUERREGISTER 

1410t 

C043 


• ■ 

• «30 

(6 HEITERE LFO-ST EUERBLOECKE 

1420t 

C044 

A 

• = 

• *1 

(ATTACK-RATE 

1430t 

C045 

D 

• a 

• *l 

(DECAY-RATE 

1440t 

C046 

s 


• ♦1 

(BUSTAIN-PEOEL 

1450t 

C047 

R 

• s 

Ml 

(RELEASE-RATE 

1460t 

C048 

EGA 

• ■ 

Ml 

| HUELLKURVE-AMPL1TUDE 

1470t 

C049 

EßC 


MJ 

(HUELLKURVE-STEUERREGISTER 


6*6R 


| DYNAMISCHE PARAMETER 


1510t 

C04D 

SAHUP 

• » 

M2 

1 AUFSTEIGENDER SAEGEZAHN 

1520t 

C04D 

KURVE 


M2 

|AKTUELLER LFO-MERT 

1530t 

C04E 


• ■ 

•«1 

I(UNBENUTZT) 

1340t 

C06C 



• »30 

(6 HEITERE DYNAMISCHE LFO-BLOECKE 

1550t 

C06E 

E 

• ■ 

• *2 

IHUELLKURVENHERT 

1360t 

C070 

EKURVE 


• ♦2 

I BEWERTETER HUELLKURVENMERT 

1370t 

C07I 

EPHABE 

• ■ 

Ml 

(O-ATTACK l-DECAY 

( KONSTANTEN UND 

SONSTIGE 




1610t 

C07I 

S1D 

• 

»D400 

1 S10-PAS I SADREftSE 

1620t 

C073 

ZEIT 


M2 

1FUER ZEITNESQUNO 

1630 t 

C073 

ZEITI 

■ ■ 

• *2 


| MULTIPLIKATION 16 BIT <OAHZZAHL-UNS 1 ONE0> . 8 BIT 
I INR»I.HR.A) 124) ■ TNR«(.NR)(16) • MD (8) 


I680i 
I690i 
1700t 
1710t 
1720t 
1730t 
1740t 
1730t 
1760t 
1770t 
1780t 
1 790t 

1800t 

IBlOt 

1820t 

1830t 

1840t 

1850t 

1860t 

1870t 

1880t 

1890t 

1900t 

1910t 

1920t 

1930t 

1940t 


C073 A9 00 
C077 A2 00 
C079 OA 
C07A 26 FB 
C07C 90 07 
C07E 10 
C07F 65 FD 
C0B1 90 02 
C083 E6 FB 
C083 CA 
C006 DO Fl 
COOO A8 
C009 OA 
COOA A2 OB 
COOC OA 
COBD 26 FC 
C08F 90 07 
C09I 18 
C092 63 FD 
C094 90 02 
C096 E6 FC 
C09B CA 
C099 DO Fl 
C09D 10 
C09C 65 FB 
C09E 83 FB 
COAO 90 02 


LDA 

LDX 

A6L 

ROL 

BCC 

CLC 

ADC 

BCC 

INC 

DEI 

BNE 

TAY 

TXA 

LDX 

ABL 

ROL 

BCC 

CLC 

ADC 

BCC 

INC 

DEX 

BNE 

CLC 

ADC 

STA 

BCC 


10 
• 8 

A |MR(8>•MD f 8 > 

MR 

NEXTI 

HD 

NEXTI 

MR 

LOOPI 

| ZWISCHENSPEICHERN 
ISTATT LDA 10 

■ 8 

A |MR * 1(0 >*MD(8) 

MR«1 

NEXT2 

MD 

NEXT2 

MR«1 

L00P2 

|TEILPRODUKTE ADDIEREN 
HR 
HR 

NEXT3 


1950t 

1960t 

1970t 

C0A2 

C0A4 

C0A5 

E6 

98 

60 

FC 


INC 

HEXT3 TYA 

RTB 

MB* I 

| MULTIPLIKATION 

1 (HR♦1.MR.AI(241 

16 

BIT IZNEIERKOMPLEHENT-SIONED) • 8 BIT 

IMRU.MRI (16! « MD (8) 

2020t 

C0A6 

A5 

FC 


MULS LDA 

MR» 1 

2030t 

COAO 

10 

CB 


BPL 

MULU 1 MH POSITIV, NICHTS HEIT 

2040t 

COAA 

30 



SEC 

IMR NEGIEREN 

2050t 

COAD 

A9 

00 


LDA 

»0 

2060t 

COAO 

E3 

FB 


SBC 

MR 

2070t 

COAF 

B5 

FD 


STA 

MR 

2080t 

COBI 

A9 

00 


LDA 

• 0 

2090t 

C0B3 

ES 

FC 


SBC 

MR» l 

2100t 

C0D3 

05 

FC 


BTA 

MR* 1 

2110t 

C0D7 

20 

75 

CO 

JSR 

MULU 

2120t 

CODA 

05 

FF 


STA 

1EMP 

2130t 

COBC 

38 



OEC 

1 PRODUKT NEOIEREN 

2140t 

COBD 

A9 

00 


LDA 

• 0 

2130t 

COBF 

E3 

FF 


SBC 

TEMP 

2160t 

COCI 

AO 



TAY 


2170t 

C0C2 

A9 

00 


LDA 

»0 

2180t 

C0C4 

E3 

FD 


BBC 

MR 

2190t 

C0C6 

03 

FD 


STA 

MR 

2200t 

COCB 

A9 

00 


LDA 

10 

2210t 

COCA 

E3 

FC 


SBC 

MR» 1 

2220t 

COCC 

03 

FC 


STA 

NR* 1 

2230t 

COCE 

90 



TYA 


2240t 

COCF 

60 



RTO 



I LFO N UM EINEN SCHRITT NE1TERBCHALTEN 
I DA9 PROGRAMM ERHÄRTET EINE 6R0EBSE DER OESTALT 
I 3 • N (N-0...6! IN LFONR 


I- 


CODO A6 FE 
C0D2 BD 24 CO 
C0D3 29 06 
C0D7 C9 04 
C0D9 FO 12 
COOB C9 06 
CODD FO OF 
CODF A9 00 
COEl 9D 49 CO 
C0E4 9D 4A CO 
C0E7 9D 4B CO 
COEA 90 4C CO 
COED 60 
COEE 18 
COEF BD 49 CO 
C0F2 7D 20 CO 
C0F5 9D 49 CO 
COFO 85 FB 
COFA DD 4A CO 
COFD 7D 2! CO 
C100 9D 4A CO 
C103 85 FC 
I KURVENFORM ERMITTELN 
2530t C105 BD 24 CO 


2300t 

2310t 

2320t 

2330t 

2340t 

2350t 

2360t 

2370t 

2380t 

2390t 

2400t 

2410t 

2420t 

2430t 

2440t 

2450t 

2460t 

2470t 

2480t 

2490t 

2500t 

2510t 


LF0RT9 

LFORUN 


?^: tr: =: 


2560t 

2570t 

2580t 

2590t 


18 
27 

C10C C9 OB 
CIOE FO 50 
C1I0 C9 10 
CI 12 FO 40 


| SQUARE 
I KURVE = « LF0AI81 • 2*»7 
1 KURVE ■ - LFOAIOI • 2«.7 
2630t CI 14 A5 FC 

2640t CI 16 DD 22 CO 

2630t CI 19 90 09 

2660t CIIB 38 8QNEB 

2670t CI IC A9 00 

2680t CI IE FO 23 CO 


LOX 

LDA 

AND 

CMP 

DEO 

CMP 

BEO 

LDA 

STA 

STA 

STA 

STA 

RTS 

CLC 

LDA 

ADC 

STA 

BTA 

LDA 

ADC 

STA 

5TA 

LDA 

AND 

DEO 

CMP 

DEO' 

CMP 

BEO 


LFONR 

LFOC.X 

•106 

• »04 

LF0RT3 

• 106 
LFORUN 

10 

SAMUP.X 


»HOLD •?• 

iDANN NICHTS ZU TUN 
IRUN “7* 


IREBET 

IDYNAMIBCHE PARAMETER 
6AMUP«I|X |INITIALISIEREN 
KURVE,X 
KURVE*I,X 


BAMUP,X 

LFOF.X 

SAMUP.X 

MR 

SAMUP*I,X 
LFOF*l,X 
5AHUP*!,X 
HR*1 

LFOC.X 
• »18 
TRIAN 
• »08 
LFOMUL 
■110 
SAMDOMN 


(SAMUP“SAMUP»LFOF 


|SAMUP, MEN 18 ZU TUN 


FALLS 9AWUP < LFOP 

SONST 

LDA MR*1 

LFOP,X 
5QP0S 

jLFOA NEGIEREN 

• 0 

LFOA,X 


CMP 

BCC 

SEC 

LDA 

SBC 


2690t 

C121 311 

SEC 


2700t 

C122 BO 04 

BCS 

501 ((IMMER) 

2710t 

C124 ID SOPOS 

CLC 

2720t 

CI25 DD 23 CO 

LDA 

LFOA,» 

2730t 

CI20 6A SOI 

ROR 

« 1 ART ITHNEr[SCHER RE 

2740t 

C129 9D 4C CO 

STA 

KURVE.|,I 

2750t 

CI2C A9 00 

LDA 

• 0 

2760t 

C12E 6A 

Ron 

A 

2770t 

CI2F 9D 4B CO 

STA 

KURVE,X 

27 BO t 

CI32 60 

RTS 


| TRIAN 

( BERECHNE MAX(SAMUP, -SAHUP 

-1) • 

2 - 2 • • 15 

2010t 

CI33 A5 FC TRIAN 

LDA 

MR» 1 

20201 

CI 35 10 13 

BPL 

TRPOS 

2830t 

CI37 A3 FD TRNEG 

LOA 

MR 

2040t 

C139 49 FF 

EOR 

• »FF 

2030t 

CI 30 OA 

ABL 

A 

2060t 

CI3C 03 FB 

STA 

MR 

2U70i 

CI3E A5 FC 

LDA 

MR» 1 

7000t 

C140 49 FF 

EOR 

■ *FF 

2090t 

CI42 2A 

ROL 

A |1-BAMUP-1)»2 

2900t 

CI 43 49 BO 

EOR 

■100 |-2»»I3 

2910t 

CHS B5 FC 

STA 

MR» 1 

2920t 

CI47 4C 60 CI 

JMP 

LFOMUL 

2930t 

CI4A 06 FB TRPOS 

ASL 

MR 

2940t 

CMC »A 

ROL 

A |SAHUP«2 

2950t 

CI4D 49 BO 

EOR 

MQO I-2MI5 

2960t 

CI4F 05 FC 

STA 

MR» 1 

2970t 

CI51 4C 60 CI 

JMP 

LFOMUL 

| SAMDOMN 

| BERECHNE -SAMUP-1 

3000t C154 A3 FD SAMDOMN 

LDA 

MR 

3010t 

C156 49 FF 

EOR 

• »FF 

3070t 

C158 05 FD 

STA 

MR 

3030t 

CI5A A3 FC 

LDA 

MR • I 

3040t 

CISC 49 FF 

EOR 

• »FF 

3050t 

CI5E 05 FC 

STA 

MR* 1 

| LFOMUL 

1 ZMEIERKOMPLEMENT-KURVENFORH IN 1 

IR(16! 

| MIT 
3090t 

LFOAIG) MULTIPLIZIEREN 
CI60 DD 23 CO LFOMUL 

LDA 

LFOA, I 

3100t 

CI63 B5 FD 

BTA 

MD 

3110t 

CMS 20 A6 CO 

JSR 

MULS 

3120t 

CI60 A6 FE 

LDX 

LFONR 

3130t 

CMA A5 FB 

LDA 

MR 

3140t 

CMC 9D 4B CO 

STA 

KURVE,! 

3150t 

C16F A5 FC 

LDA 

MR« 1 

3160t 

C17I 9D 4C CO 

STA 

KURVE«I,X 

3170t 

CI74 60 

RTS 


! EO 

(ADBRJ UH EINEN SCHRITT 

MEITERSCHALTEN 




112 


SONDERHEFT 11 






















C 64 


MUSIK-KURS 


3210: 

CI73 

AD 

48 

CO 

EO 

LDA 

E6C 

3220: 

CI78 

29 

06 



AND 

• 106 

3230: 

C17A 

C9 

04 



CMP 

• 104 

3240: 

CI7C 

FO 

13 



BEO 

EORTS 

3230: 

C17E 

C9 

06 



CMP 

• 106 

3260: 

CI 80 

FO 

12 



BEQ 

EGRUN 

3270: 

CI 82 

A9 

00 


EGRES 

LDA 

• 0 

3280: 

CIB4 

8D 

6C 

CO 


8TA 

E 

3290: 

CIB7 

8D 

6D 

CO 


STA 

E»l 

3300: 

C1BA 

BD 

6E 

CO 


STA 

EKURVE 

3310: 

CIOD 

80 

6F 

CO 


STA 

EKURVE«! 

3320: 

C190 

80 

70 

CO 


STA 

EPHASE 

3330: 

C193 

60 



E0RT3 

RTS 


3340: 

CI94 

A9 

01 


EGRUN 

LDA 

• 1 

3330: 

C196 

2C 

40 

CO 


BIT 

E6C 

3360: 

C199 

FO 

32 



DEO 

RELEASE 

1 ATTACK ODER 

DECAY 




3300: 

CI9B 

2C 

70 

CO 


BIT 

EPHASE 

3390: 

CI9E 

DO 

39 



BNE 

DECAY 

3400: 

CIAO 

AD 

6C 

CO 

ATTACK 

LDA 

E 

3410: 

CI A3 

49 

FF 



EOR 

• IFF 

3420: 

CI AS 

03 

FB 



STA 

HR 

3430: 

C1A7 

AD 

6D 

CO 


LDA 

E*l 

3440: 

CIAA 

49 

FF 



EOR 

• »FF 

3430: 

CI AC 

B5 

FC 



BTA 

MR» 1 

3460: 

CI AE 

AD 

43 

CO 


LDA 

A 

3470: 

CI01 

OA 




ABL 

A 

3480: 

CIB2 

DO 

05 



BCS 

ATTACK2 

3490t 

CIB4 

B5 

FD 



STA 

MD 

3300: 

CID6 

20 

73 

CO 


JSR 

MULU 

3310: 

CIB9 

18 



ATTACK2 

CLC 

|MR(16) a 

3320: 

CIBA 

AD 

6C 

CO 


LDA 

E 

3330: 

CIBD 

63 

FO 



ADC 

MR 

3340: 

CI BF 

BD 

6C 

CO 


8TA 

E 

3530: 

CIC2 

03 FB 



BTA 

MR 

3560: 

C1C4 

AD 

6D 

CO 


LDA 

E»l 

3370: 

CIC7 

65 FC 



ADC 

MR» 1 

3300: 

CIC9 

OD 

6D 

CO 


STA 

E»l 

3590t 

CICC 

B5 

FC 



STA 

MR* 1 

3600t 

CICE 

C9 

FF 



CMP 

• »FF 

3610: 

CI DO 

90 

47 



OCC 

EBNUL 

3620t 

CID2 

A9 

01 



LDA 

11 

3630: 

CID4 

BD 

70 

CO 


STA 

EPHABE 

3640t 

C1D7 

DO 

40 



BNE 

E8MUL 

3650t 

CID9 

AD 

6C 

CO 

DECAY 

LDA 

E 

3660t 

CIDC 

85 FD 



STA 

HR 

3670t 

CI DE 

38 




SEC 


3600: 

C1DF 

AD 

6D 

CO 


LDA 

E*1 

3690t 

C1E2 

ED 

43 

CO 


BBC 

s 

3700: 

C1E3 

85 

FC 



BTA 

MR * 1 

3710t 

C1E7 

AD 

44 

CO 


LDA 

D 

3720: 

C1EA 

4C 

FF 

CI 


JMP 

DECREL 

3730: 

CIED 

A9 00 


RELEASE 

LDA 

• 0 

3740: 

C1EF 

BD 

70 

CO 


STA 

EPHASE 

3730: 

C1F 2 

AD 

6C 

CO 


LDA 

E 

3760: 

CIF5 

05 

FB 



STA 

MR 

3770: 

C1F7 

AD 

6D 

CO 


LDA 

E*1 

3780: 

C1FA 

85 

FC 



STA 

MR« I 

3790: 

C1FC 

AD 

46 

CO 


LDA 

R 

3800: 

C1FF 

85 

FD 


DECREL 

STA 

MD 

3810: 

C201 

20 

75 

CO 


JSR 

MULU 

3820: 

C204 

38 




SEC 


3830: 

C205 

AD 

6C 

CO 


LDA 

E 

3840: 

C208 

E5 

FB 



SBC 

MR 

3850: 

C20A 

8D 

6C 

CO 


STA 

E 

3860: 

C20D 

83 

FB 



STA 

MR 

3870: 

C20F 

AD 

6D 

CO 


LDA 

E*1 

3880: 

C2I2 

E5 FC 



SBC 

HR»1 

3090: 

C214 

BD 

6D 

CO 


STA 

EU 

3900: 

C217 

85 

FC 



STA 

MR« l 

3910: 

C219 

AD 

47 

CO 

EGHUL 

LDA 

ESA 

3920: 

C21C 

05 

FD 



5TA 

MD 

3930: 

C21E 

20 

73 

CO 


JSR 

MULU 

3940: 

C221 

A9 

08 



LDA 

• »08 

3950t 

C223 

2C 

48 

CO 


BIT 

EOC 

3960t 

C226 

FO 

10 



BEO 

EGPLUS 

3970t 

C22B 

30 



EGNINUS 

SEC 

(EKURVE 

3900: 

C229 

A9 

00 



LDA 

•0 

3990t 

C228 

E5 

FB 



SBC 

HR 

4000: 

C22D 

BD 

6E 

CO 


STA 

EKURVE 

4010t 

C230 

A9 00 



LDA 

•0 

4020: 

C232 

E3 FC 



SBC 

MR* l 

4030t 

C234 

BD 

6F CO 


STA 

EKURVE*1 

4040t 

C237 

60 




RTS 


4030t 

C238 

A3 

FB 


EGPLUS 

LDA 

MR 

4060: 

C23A 

BD 

6E 

CO 


BTA 

EKURVE 

4070t 

C23D 

A5 FC 



LDA 

HR« 1 

4000t 

C23F 

OD 

6F 

CO 


STA 

EKURVE«! 

4090: 

C242 

60 




RTS 



»HOLD 

jDANN NICHTS ZU TUN 
|RUN •?• 

I RESET 

,DYNAMISCHE PARAMETER 
I INITIALISIEREN 


IMASKE FUER BIT 0 
lOATE '?■ 


|HRU6) a 2»*l3-l-E<I6) 

IFALLS A>-120,DANN NR • I 

|INC(161"MR (16>»2»A(B1/2»»B 
INC 1161 


| E < 16) a E(16)* INC 116) 
(EOU6)> a »FFOO •?' 

I< 

lUEBERSAND ZU DECAY 
| UMMER) 


|HRU6)-E(16)-S(B)»2»*0 

(BEI BATE-1 MIEDER ATTACK 

I MR(16)«E116) 

(GEMEINSAMER TEIL FUER DECAY UND RELEASE 
(HR(16)=DEC116) 


64I5R 


(HUELLKURVE SKALIEREN 

I MR < 16) a EU6) »EGA(8)/2»*B 
(MASKE FUER BIT 3 


(EKURVE 1161“MR(16) 


( SUMMIERE MODULATIONSBEITRAEOE OEMAESS EINER KSV-ZEILE 
, DAS PROGRAMM ERHÄRTET EIN KSV-BYTE IN AKKU A 


UND LIEFERT MODULATJONB-SUNME IN MR(I6) AB 


4130: 

C243 

49 

FF 

SUMMOD 

EOR 

• •FF 

(KSV-BYTE INVERTIEREN 

4160t 

C243 

03 

FF 


BTA 

TEMP 


4170: 

C247 

A9 

00 


LOA 

• 0 


4180: 

C249 

03 

FD 


BTA 

MR 


4190t 

C24D 

83 

FC 


STA 

MR* 1 


4200t 

C24D 

no 

oo 


LDY 

• 8 

(SCHLEIFENZAEHLER 

4210: 

C24F 

46 

FF 

SUMLOOP 

LSR 

TEMP 


4220: 

C25I 

BO 

U 


DCB 

SUMNEXT 

(BEI 1 NICHTS SUMMIEREN 

4230t 

C233 

AA 



TAX 

(ADREBSVERSATZ FUER LFO-DLOECKE 

4240: 

C234 

A3 

FD 


LDA 

MR 


4250t 

C236 

7D 

40 CO 


ADC 

KURVE,X 


4260t 

C259 

03 

FB 


STA 

MR 


4270t 

C23II 

A5 

FC 


IDA 

MR» I 


4200: 

C23D 

7D 

4C CO 


ADC 

KURVE«! 

* 

4290t 

C260 

05 

FC 


STA 

MR*1 


4300t 

C262 

OA 



TXA 



4310: 

C263 

30 



SEC 



4320t 

C264 

69 

04 

BUHNE X T 

ADC 

• 4 

1*5 

4330: 

C266 

üü 



DEY 



4340: 

C267 

DO 

E6 


BNE 

BUMLOOP 


4330t 

C269 

60 



RTS 




I PORTAMENTO-EINZELBCHRITT FUER STIMME N 
j PROGRAMM ERHÄRTET 7 • N CN-0,1,2) IN ST INR 


1—" 
4400: 

C26A 

A6 

FE 

PORT 

LDX 

STINR 

4410: 

C26C 

DD 

04 

CO 

LDA 

PORTA,X 

4420: 

C26F 

DO OD 


BNE 

PORTRUN 

4430t 

C271 

BD 

00 

CO 

LDA 

F, X 

4440: 

C274 

9D 

03 

CO 

STA 

FM 

4450: 

C277 

DD 

01 

CO 

LDA 

F*1,X 


(PORTA-O, FREQUENZ UEBERNEHMEN 


4460: 

C27A 9D 

06 

CO 

STA 

FP*1,X 

4470t 

C27D 

60 



RTS 


4400t 

C27E 

BD 

01 

CO PORTRUN 

LDA 

F«l |X 

4490: 

C28I 

DD 

06 

CO 

CMP 

FPU,* 

4300t 

C284 

90 

3A 


BCC 

PNI NUS 

4310: 

C2B6 

DO 

OB 


BNE 

PPLUS 

[ 6LEICHHEIT, 

LOH 

-BYTES VERGLEICHEN 

4530t 

C28B 

BD 

00 

CO 

LDA 

F.X 

4340t 

C20B 

DD 

05 CO 

CMP 

FP, * 

4550: 

C2BE 

90 

30 


BCC 

PM1NUS 

4560: 

C290 

DO 

01 


BNE 

PPLUS 

4370t 

C292 

60 



RTS 

IF-FP, 

4300: 

C293 

38 


PPLUS 

SEC 


4590: 

C294 

BD 

00 

CO 

LDA 

F, I 

4600: 

C297 

FD 

03 

CO 

GBC 

FP, X 

4610t 

C29A 

03 

FB 


STA 

MR 

4620t 

C29C 

DD 

01 

CO 

LDA 

F ♦ 1, X 

4630: 

C29F 

FD 

06 

CO 

BBC 

FP«1,X 

4640: 

C2A2 

83 FC 


STA 

Mfi« 1 

4630t 

C2J14 

BD 

04 

CO 

LDA 

PORTA,X 

4660t 

C2A7 

03 

FD 


STA 

MD 

4670t 

C2A9 

20 

73 

CO 

JSR 

MULU 

4600t 

C2AC 

A6 

FE 


LDX 

BT1NR 

4690t 

C2AE 

30 



SEC 


4700 t 

C2AF 

OD 

03 

CO 

LDA 

FP,X 

4710t 

C2B2 

63 

FB 


ADC 

MR 

4720t 

C2B4 

9D 

03 

CO 

STA 

FP, X 

4730t 

C2B7 

BD 

06 

CO 

LDA 

FP«1,X 

4740t 

C2BA 

63 

FC 


ADC 

MR« 1 

4730: 

C2DC 

90 

06 

CO 

STA 

FP«1,X 

4760t 

C2DF 

60 



RTS 


4770: 

C2C0 

30 


PHINUS 

OEC 


4700: 

C2CI 

BD 

05 

CO 

LDA 

FP,X 

4790: 

C2C4 

FD 

00 

CO 

SBC 

F.X 

4000: 

C2C7 

03 

FD 


STA 

MR 

4810: 

C2C9 

DD 

06 

CO 

LDA 

FP«1,X 

4020t 

C2CC 

FD 

01 

CO 

SBC 

F*1, X 

4030: 

C2CF 

05 

FC 


STA 

MR * 1 

4040t 

C2D1 

BD 

04 

CO 

LDA 

PORTA,X 

4850: 

C2D4 

05 

FD 


STA 

MD 

4860: 

C2D6 

20 

73 

CO 

JSR 

MULU 

4070: 

C2D9 

A6 

FE 


LDX 

STINR 

4880: 

C2DB 

10 



CLC 


4090: 

C2DC 

BD 05 

CO 

LDA 

FP,X 

4900t 

C2DF 

E5 

FB 


SBC 

HR 

4910: 

C2EI 

9D 

05 

CO 

BTA 

FP, X 

4920t 

C2E4 

DD 

06 

CO 

LDA 

FP«I,X 

4930: 

C2E7 

E5 

FC 


SBC 

MR* 1 

4940: 

C2E9 

90 

06 

CO 

STA 

FP«I,X 

4950: 

C2EC 

60 



RTS 



|F<FP 
IF >FP 


jF<FP 
I F >FP 


( DIF(16)-F(16)-FP116) 


I INC(161 a OIF1161»PORTA(0>/2»»8 


(FPU6) a FP(16)*INC(l6)»l 


IDIFI16)"FP116)-FI16) 


I OEC 116)“DIF(161»PORTAIB)/2»»0 


IFP (16) a FP116)-DEC(161-1 


| HAUPTPROGRAMH 


I SCHALTE ALLE MODULATINSQUELLEN UM EINEN SCHRITT HEITER 
I MODULIERE ALLE PARAMETER GEMAESS KREUZSCHIENENVERTEILER (KSVI 

I“ 


I 7 LFOS MEITERSCHALTEN 
3020: C2ED A9 IE MODUL 

5030: C2EF 05 FE LFOLOOP 

50*0: C2F1 20 DO CO 

5030: C2F4 38 

■m 

3080: C2F9 10 F4 

I EG <ADSR> MEITERSCHALTEN 
5100: C2FB 20 75 CI 


3 STIMMEN BEARBEITEN 


I 

3140: 

5150: 

3160: 

3170: 


C2FE A9 02 
C300 A2 OE 
C302 05 9B 
C304 06 FE 
I FREQUENZ MODULIEREN 
5190: C306 20 6A C2 FMOD 

3200: C309 A6 9B 

5210: C30B DO 18 CO 

5220: C30E DO 11 

I KEINE FREQUENZMODULATION, 


LDA 

5TA 

JSR 

SEC 

LDA 

SBC 

BPL 


LDA 

LDX 

STA 

8TX 

JSR 

LDX 

LOA 

BNE 


130 

LFONR 

LFO 

LFONR 

•5 

LFOLOOP 


• 2 

114 

ZAEHLER 
BT INR 

PORT 

ZAEHLER 

KBV.I 

FM0D1 


IFP MEITERSCHALTEN 


PARAMETER UEBERNEHMEN 


5240: 

C3I0 

A6 

FE 


LDX 

STINR 

3230: 

C3I2 

BD 

03 

CO 

LDA 

FP.X 

3260: 

C313 

90 

00 

04 

BTA 

SID.X 

5270: 

C3IB 

DD 06 

CO 

LDA 

»f ■ 1, * 

5200: 

C3IB 

90 

01 

D4 

STA 

81D«1,X 

3290: 

C3IE 

4C 

41 

C3 

JMP 

PMOD 

3300: 

C 321 

20 

43 

C2 FMODI 

JSR 

SUMMOD 

5310t 

C324 

A6 

FE 


LDX 

STINR 

3320t 

CS26 

BD 

06 

CO 

LDA 

FP♦1, X 

5130t 

C 329 

05 

FD 


STA 

HD 

53401 

C320 

20 

A6 

CO 

JSR 

MUL 3 

3330: 

C32E 

A6 

FE 


LDX 

STINR 

3360: 

C330 

IG 



CLC 


3370: 

C33I 

DD 

03 

CO 

LOA 

FP,I 

5300t 

C334 

63 

FB 


ADC 

MR 

3390t 

C336 

90 

00 

D4 

BTA 

SID, X 

3400t 

C339 

DD 

06 

CO 

LDA 

FP*1,X 

3410: 

C33C 

63 

FC 


ADC 

MR« 1 

5420t 

C33E 

90 

01 

D4 

BTA 

S1D« 1, X 

1 PULGWEITE MODULIEREN 



3440: 

C34I 

A6 

9B 

PHOD 

LDX 

ZAEHLER 

3430: 

C343 

DD 

1B 

CO 

LDA 

KBV«3,X 

3460t 

C346 

DO 

11 


BNE 

PMODI 

1 KEINE PM 

-HODULAIION, PARAMETER 

UEBERNEHI 

5400: 

C340 

A6 

FE 


LDX 

STINR 

5490t 

C34A 

DO 

02 

CO 

LDA 

PM,X 

3300t 

C34D 

9D 

02 

D4 

BTA 

BID * 2, X 

3310t 

C330 

BD 

03 

CO 

LOA 

PM*1,X 

5520t 

C333 

9D 

03 

D4 

STA 

SID»3,X 

3330t 

C336 

4C 

01 

C3 

JMP 

HEITBTI 

3340: 

C359 

20 

43 

C2 PM0D1 

JBR 

SUMMOD 

j MR- 

1121«HR 116)/2»»4. ERGIBT 

12-BIT ZMEIEI 

5560: 

C35C 

46 

FC 


LSR 

MR« l 

3370: 

C35E 

66 

FD 


ROR 

MR 

5300: 

C360 

46 

FC 


LSR 

MR« 1 

5590: 

C362 66 

FD 


ROR 

MR 

5600t 

C364 

46 

FC 


LSR 

MR«1 

3610: 

C366 

66 

FD 


ROR 

MR 

5620t 

C368 

46 

FC 


LSR 

MR * 1 

5630: 

C36A 

66 

FB 


ROR 

MR 

5640: 

C36C 

A6 FE 


LDX 

STINR 

5650: 

C36E 

10 



CLC 



(LIEFERT MODULATIONSHERT IN NRU6) 


MODULATIONSMERT MIT FP HIGH SKALIEREN 


(LIEFERT MODULATIONSMERT NACH MR(16) 


Listing 6. Der dokumentierte Quellcode für den 
Modulator 
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C 64 


3660t 

C36F 

DD 

02 

CO 


LDA 

PN, K 

56701 

CJ72 

65 FB 



ADC 

MR 

5600t 

C374 

9D 

02 

D4 


STA 

SID*2,X 

5690t 

C377 

DD 

03 

CO 


LDA 

PN»1,I 

5700t 

C37A 

65 

FC 



ADC 

MR* 1 

5710t 

C37C 

29 

OF 



AND 

HOF 

3720t 

C37E 

9D 

03 

D4 


STA 

9ID»3,I 

3730t 

C3B1 

OA 



NEITBTI 

T*A 

|IST IHR 1 

5740t 

C302 30 




OEC 

3730t 

C383 E9 

07 



8BC 

• 7 

5760t 

C3BS 

es 

FC 



STA 

BT INR 

3770t 

C 30 7 

C6 

9B 



DEC 

7AEHLER 

5700t 

C389 

30 

03 



BMI 

riLMOD 

3790t 

C30B 

4C 06 C3 


JMP 

FMOD 

1 FILTERFREQUENZ 

MODULIEREN. 

HUR 

MIOM-BYTE 

3010t 

C3BE 

AD 

13 CO 

FILMOD 

LDA 

FILT 

5620t 

C39I 

01» 

IS 

04 


6TA 

5ID.2I 

5030t 

C394 

AD 

IE 

CO 


LDA 

KSV»6 

3040t 

C397 

DO 

09 



BNE 

FILMODI 

1 KEINE FILTERMODULATION, PARAMETER UEBERNE 

5060t 

C399 

AD 

16 CO 


LOA 

FILT*I 

5070t 

C39C 

OD 

16 

04 


STA 

SID'22 

5860t 

C39F 

4C 

AE 

CJ 


JMP 

LAUTMOD 

3090t 

C3A2 

20 

43 C2 

FILMODI 

J8R 

SUMMOD 

5900t 

C3A5 

18 




CLC 


5910t 

C3A6 

AD 

16 

CO 


LOA 

FILTtl 

3920t 

C3A9 

63 

FC 



ADC 

MR* 1 

3930t 

C3AB 

OD 

16 

04 


8 TA 

510*22 


(BIT 7-4 AU5DLENDEN 


(NAECHBTE STIMME 
(LOM-DYTE UEDERHEHMEN 


(LIEFERT HODULATIONSNERT IN HRM&) 


( LAUIBTAERKE MODULIEREN 

| NUR DIE 4 OBEREN BITS VON MR»I TRAOEN DAZU BEI 
89601 C3AE AD IF CO LAUTNQD LOA KSV»7 
S970i C3B1 DO 07 BNE LAUMODI 

( KEINE LAUTSTAERKEMODULAMOH, PARAMETER UEBERNEMMEN 


3990t 

C3B3 

AD 17 CO 

LDA 

MODLAUT 


6000t 

C3B6 

OD 10 D4 

STA 

BID*24 


6010t 

C3B9 

60 

RTB 



6020t 

C3BA 

20 43 C2 LAUMODI 

JSR 

BUMMOD 

(LIEFERT MODULATION 1 

6030t 

C3BD AD 17 CO 

LDA 

MODLAUT 


6040t 

C3C0 

29 FO, 

AND 

MFO 

(MODUS «BIT 7-4) EI 

6050t 

C3C2 

65 FF 

STA 

TEMP 


6060t 

C3C4 

A3 FC 

LDA 

MR« 1 


6070t 

C3C6 

4A 

LSR 

A 


60S0t 

C3C7 

4A 

LSR 

A 


6090t 

C3C0 

4A 

LSR 

A 


6100t 

C3C9 

4A 

LSR 

A 

(AI4I«HR»I(8)/2M4 

6110t 

C3CA 

10 

CLC 



6120t 

C3CB 

6D 17 CO 

ADC 

MODLAUT 


6130t 

C3CE 

29 OF 

AND 

HOF 

(BIT 7-4 AUSBLENDEN 

6140t 

C3D0 

05 FF 

ORA 

TEMP 

(MODUS EINBLENDEN 

6130t 

C3D2 

BD IS 04 

STA 

BID»24 


6160t 

C3D5 

60 

RTS 




1 CI All TIMER A ABFRAGEN, LOW-BYTE IN A, HIOH-DYTE IN 


6200« 

C3D6 AD 04 DC TIME 

LDA 

IDC04 

(TIMER A LOM 

6210t 

C3D9 AE 05 DC 

LDI 

IDC03 

(TIMER A HIGH 

6220t 

C3DC C9 04 

CMP 

• 4 


6230t 

C3DE BO 01 

BCS 

TIMEI 


1 IA 

LOW < 4, UNTERLAUF NACH TA Hl OH KORRIGIEREN 

6250t 

C3E0 EQ 

INI 



6260t 

C3EI 60 TIMEI 

RTS 



I ERNEUERTES INTERUPTPROORAMM 

6300t 

C3E2 20 06 CJ INTRPT 

J5R 

TIME 

(STARTZEIT LESEN 

6310t 

C3E3 00 73 CO 

0FA 

ZEITI 

lUND FESTHALTEN 

6320t 

CJEO OE 74 CO 

STI 

7EITI.I 


6330t 

C3EB 20 ED C2 

JSR 

MODUL 

1 MODULA»I0NS5CHRI TT 

6340t 

C3EE 20 D6 CJ 

JSR 

TIME 

lENDZEIT LEBEN 

6350« 

C3F1 05 FF 

STA 

TEMP 

(DIFFERENZ BERECHNEN 

6360t 

CJF3 30 

BEC 



6370t 

C3F4 AD 73 CO 

IDA 

ZEITI 


6300t 

C3F7 E5 FF 

SBC 

TEMP 


6390t 

C3F9 DD 71 CO 

STA 

ZEIT 


6400t 

C3FC 06 FF 

BTI 

TEMP 


6410t 

C3FE AD 74 CO 

LDA 

ZEITI*! 


6420t 

C40I E5 FF 

BOC 

TEMP 


6430« 

C403 OD 7? CO 

STA 

ZE1T» I 


6440t 

C406 4C 31 EA 

JMP 

• EA3I 

(KERNAL-SYSTEMINTERUPTROUTINE 

( INTERUPTVEKTOR UMSTELLEN 

(MODULATOR EINSCHALTEN) 

6400t 

C.09 78 SlfiBI 

BEI 



6490t 

C40A A9 E2 

LDA 

•<INTRPT 


6300t 

C40C ÜD 14 03 

STA 

10314 


6510t 

C40F A9 C3 

LDA 

IMNTRPT 


6320« 

C4II HD 13 03 

5TA 

*0313 


6530t 

C414 58 

CU 



6540t 

C415 60 

RTS 



1 INTERUPTVEKTOR ZURUECKSTELLEN (MODULATOR 

AUSSCHALTEN) 

63B0t 

C416 78 AUS 

SEI 



6590« 

C417 A9 31 

LDA 

• •31 


6600t 

C419 BD 14 03 

STA 

10314 


6610t 

C4IC A9 EA 

LDA 

• IEA 


6620t 

C4IE 8D 13 03 

STA 

• 0315 


6630t 

C42I 50 

CLI 



6640t 

C422 60 

RTS 




Listing 6. Der dokumentierte Quellcode für den Modulator (Schluß) 


et if 

A>1 THEN RETURN 


-— 

< 169> 

ivi .1 *• 

1550 

--- 

SYS GS,V7.(M,A> ! REM BERECHN. GOSUB 

<247> 

1000 

REM 


<044> 

1560 

GOTO 1530 

<152> 

1005 

REM 


<049> 

2000 

REM 

<028> 

1010 

REM 


<054> 

2010 

REM 

<038> 

1015 

REM 


<059> 

2020 

REM 

<04B> 

1020 

REM 


<064 > 

2025 

POKE 650,0 

< 130> 

1025 

REM 


<071 > 

2030 

F=TH (TN7. (A)) s AD=MQ+72: X^PEEK (AD) 

<211 > 

1030 

REM 


<076> 

2035 

IF B(0) THEN SYS DD,MD ,F*BF(0):POK 


1035 

REM 


<081 > 


E SI+4 ,C1(0) 

<100> 

1040 

REM 


<0B6> 

2040 

IF S<1> THEN SYS D0,M0+7 ,F*BF(l)xPOK 


1045 

REM 


<091 > 


E SI + U,C1(1) 

< 176> 

1050 

REM 


<096> 

2050 

IF a<2> THEN SYS DO,MS+14,F*BF(2)sPOK 


1055 

REM 


<101> 


E SI+1B,C1(2) 

<12B> 

1060 

REM 


< 106> 

2090 

IF EB THEN POKE AD,X OR 1 

<020> 

1065 

IF M“7 THEN 7665 


<212> 

2110 

IF SU THEN POKE 650,12B:RETURN 

<044> 

106B 

IF M=7.5 THEN 7960 


<175> 

2120 

IF PEEK(203)<>64 AND PEEK(19B>=0 THEN 


1070 

REM 


< 116> 


2120 

<096> 

1075 

REM 


< 121 > 

2130 

POKE AD,X AND 254 

<236> 

10B0 

IF A=0 THEN A“.1:LÜAD" 

’IODULATOR" ,8,1 

<029> 

2140 

POKE SI+4 ,C(0> 

<012> 

10B2 

IF A-.l THEN A=.2s LOAD 

■SEQUENCER.OBJ" 


2150 

POKE SI+U,C(1> iPOKE SI + 18,C(2) 

<022> 


,B,1 


<013> 

2160 

POKE 650,12B:RETURN 

<137> 

1084 

IF A=.2 THEN A= 1:LOAD 

■SEGLERS. OBJ ",B 


2500 

REM 

<020> 


.1 


<097 > 

2510 

REM 

<030> 

10B5 

REM 


< 131 > 

2520 

REM 

<040> 

1120 

REM 


<166> 

2530 

REM 

<050> 

1130 

POKE 56,144:CLR 


<225> 

2550 

PW=PW+P2sIF PW>=PM THEN PW=PW-PM 

<034> 

1140 

REM 


< 1B6> 

2555 

SYS BT,PV 

<202> 

1150 

REM 


< 196> 

2560 

PW=PW+P1sIF PW>=PM THEN PW=PW-PM 

<044> 

1160 

DIM V7.<8,255) ,TN7.(255) 

TH(24) 

<255> 

2565 

SYS BT,PV 

<214> 

1165 

DIM BF(2),T(2),0(2),OF(2),8(2) 

<025> 

2570 

PW=PW~P1:IF PW< 0 THEN PW=PW+PM 

<040> 

1170 

DIM CI(2),C<2>,AD<2),SR<2) 

<206> 

2575 

SYS BT,PV 

<224> 

1175 

DIM BL*(6>,KV*<3),KF*(6>,MD*(3) 

<225> 

2580 

PW=PW-P2:IF PW< 0 THEN PW=PW+PM 

<052> 

1180 

DIM TN*(11) 


<237> 

2585 

SYS BT,PV 

<234> 

1185 

REM 


<231 > 

2600 

REM 

<122> 

1190 

BOSUB B000 s REM INITIALISIERUNGEN 

< 131 > 

2605 

REM 

<127> 

1200 

BOSUB 4000 iREM HAUPTMENUE 

<032> 

2610 

SYS DO,PA,PW:L=LEN(STR*(PW)) 

<237> 

1210 

REM 


<000> 

2620 

SYS PR,3+LN,4,BL*(6—L);F2* 3 PW 

<091 > 

1500 

REM 


<036> 

2625 

RETURN 

<143> 

1510 

REM 


<046> 

2630 

REM 

<152> 

1520 

REM 


<056> 

2635 

REM 

< 157> 

1530 

BET A*sIF A*="" THEN 1530 

< 119> 

2640 

POKE PA,PW > L=LEN(STR*(PW >) 

<239> 

1540 

A=ASC(A*) 


<166> 

2650 

SYS PR,3+LN,11,BL*(4—L);F2*jPW 

<124> 
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MUSIK-KURS 


2655 RETURN <173> 
2660 REM < 1B2> 
2665 REM <1B7> 
2670 POKE PA,PWsL=LEN(STR*(PW>) <013> 
2680 SYB PR,3+LN,16,BL*(4-L>jF2*;PW <234> 
2685 RETURN <203> 
2690 REM <212> 
2695 REM <217> 
2700 IF A>136 DR A<133 THEN RETURN <0B2> 
2705 B=A-133 sREM B=0,l,2,3 <253> 
2710 POKE PA,<PEEK(PA)AND 231)QR(B*B) <159> 
2715 SYS PR,3+LN,21,F2*;KV*(B) <197> 
2717 SYB PR ,6 ,34,F2*jKF*(B)»RETURN <077> 
2720 REM <242> 
2725 REM <247> 
2730 IF A>135 BR A<133 THEN RETURN <239> 
2735 B=A—132 sREM B=l,2,3 <116> 
2740 POKE PA,(PEEK(PA>AND 249>0R(B*2) <065> 
2745 SYS PR,3+LN,28, F2*;MD*(B )8 RETURN <034> 
2750 REM <016> 
2755 REM <021> 
2760 POKE PA,PW s L=LEN < STR*(PW)) <103> 
2765 SYS PR,7,S,BL*(4-L);F2*JPWsRETURN <007> 
2770 REM <036> 
2775 REM <041> 
2780 B=-(A>134>sREM F1,F3 B=0 F5,F7 B=1 <027> 
2785 POKE PA,(PEEK(PA)AND 247>0R(B*8> <046> 
2790 SYS PR,7,29,F2*;CHR*(43+2*B> <23B> 
2795 RETURN <057> 
2810 REM <076> 
2815 REM <081> 
2820 IF A>135 OR A<133 THEN RETURN <075> 
2825 B=A—132 5REM B=l,2,3 <20B> 
2830 POKE PA,(PEEK(PA)AND 249)DR(B*2> <157> 
2835 SYS PR,7,33,F2*JMD*(B):RETURN <002> 
2840 REM <10B> 
2845 REM <113> 
2850 POKE PA,PW AND 7sPOKE PA+1,INT(PW/B) <037> 
2855 L=LEN(STR*(PW)) <116> 
2860 SYS PR,5,2,BL*(5-L>;F2*jPWsRETURN <007> 
2865 REM <133> 
2870 REM <;1:3B> 
2875 RF=(RF AND 15)+16*PW;POKE PA,RF <221> 
2880 L=LEN(STR*(PW>> <141> 
2885 SYS PR,5,9,BL*(3-L) 5 F2*;PW;RETURN <166> 
2890 REM <158> 
2895 REM <163> 
2900 IF A>136 OR A<133 THEN RETURN <02B> 
2905 B=A—133 sREM B=0,l,2,3 <199> 
2910 X=2tB;Xl=255-XsREM MASKEN <225> 
2915 Y=RF AND X <119> 
2920 RF=(RF AND XI>OR(X-Y)sPOKE PA,RF <061> 
2925 Y=-12B*(Y=0>sAD=1024+(5+B)*40+15 <206> 
2930 FOR I=AD TO AD+5 <170> 
2935 s POKE I,(PEEK(I)AND 127)OR Y <172> 
2940 NEXT 3 RETURN <085> 
2945 REM <213> 
2950 REM <21B> 
2955 IF A>136 OR A<133 THEN RETURN <0B3> 
2960 B-A-129 sREM B=4,5,6,7 <046> 
2965 X=2TBsXl=255-XsREM MASKEN <024> 
2970 PW=PEEK(PA)IY=PW AND X <222> 
2975 POKE PA,(PW AND Xl)OR(X-Y) <223> 
2980 Y=-12B*(Y=0) 3 AD=1024+(l+B)*40+25 <002> 
2985 FOR I=AD TO AD+3 <209> 
2990 ; POKE I,(PEEK(I)AND 127)OR Y <227> 
2995 NEXTsRETURN <140> 
3000 REM <012> 
3005 REM <017> 
3010 POKE PA,(PEEK(PA) AND 240) OR PW <18B> 
3015 L=LEN(BTR*(PW>) <020> 
3020 SYS PR,5,31,BL*(3-L);F2*;PW s RETURN <151> 
3050 REM <062> 
3052 REM <064> 
3054 IF A<>134 THEN 3064 <075> 
3056 REM <068> 
3058 OF=OF+lsIF OF<=50 THEN 3110 <203> 
3062 OF=—49s BOTO 3076 <151> 
3064 IF A0135 THEN 3074 <102> 
3066 REM <07B> 
3068 OF=OF-lsIF 0F>=-49 THEN 3110 <133> 
3072 OF=50s BOTO 30B4 <052> 
3074 IF A< >133 THEN 30B2 <064> 
3076 REM <090> 
3078 T=T+lsIF T<=11 THEN 3110 <171> 


3080 T=0s BOTO 3090 <173> 
3082 IF A<>136 THEN RETURN <111> 
3084 REM <098> 
3086 T=T—1sIF T>=0 THEN 3110 <169> 
3088 T=11s BOTO 3096 <193> 
3090 REM <104> 
3092 0=0+13IF 0<=5 THEN 3110 <120> 
3094 O=0s BOTO 3110 <152> 
3096 REM <110> 
3098 0=0-1sIF Q>=0 THEN 3110 <070> 
3100 0=53 T=10 <159> 
3110 REM <124> 
3112 IF T=11 AND 0=5 THEN T=0:O=0 <129> 
3114 BF=440*2t(0-4+(T-9)/12+0F/1200) <144> 
3116 0(SN)=0sT(SN)=Ts0F(SN>=0F <012> 
3118 BF(SN)=BF*17.0327 <087> 
3120 SYS DO,MO+7*SN,F*BF <SN) <02B> 
3122 REM <136> 
3124 SYS PR,3+BN,3,F2*;0 <076> 
3126 SYS PR,3+SN,2,TN*(T) <170> 
3128 SYS PR,3+SN,5,RIGHT*(" "+STR*(OF),3) <225> 
3130 RETURN <140> 
3150 REM <164> 
3155 REM <169> 
3160 SYS DO,PA,PW <09B> 
3165 SYS PR,3+SN,9,F2* J RIBHT* ( "€2SPACE >"+S 

TR*(PW),4) <114> 
3170 RETURN <1B0> 
3175 REM <189> 
3180 REM <194> 
3185 AD(SN)=(AD(SN)AND 15) OR PW*16 <010> 
3190 POKE PA,AD(SN) <201> 
3195 SYS PR,3+SN,14,F2*5 RIBHT*(STR*(PW),2) <152> 
3200 RETURN <210> 
3205 REM <219> 
3210 REM <224> 
3215 AD(SN)=(AD(SN)AND 240) OR PW <232> 
3220 POKE PA,AD(SN) <231> 
3225 SYS PR,3+SN,17,F2*;RIBHT*(STR*(PW),2) <230> 
3230 RETURN <240> 
3235 REM <249> 
3240 RC:* <254> 
3245 SmoN) = (SR(SN)AND 15) OR PW*16 <182> 
3250 POKE PA,SR(SN) <144> 
3255 SYS PR,3+SN,20,F2*;RIGHT*(STR*(PW),2) <156> 
3260 RETURN <014> 
3265 REM <023> 
3270 REM <028> 
3275 SR(SN)=(SR(SN)AND 240) OR PW <14B> 
3280 POKE PA,SR(SN) <174> 
3285 SYS PR,3+SN,23,F2* 5 RIGHT*(STR*(PW>,2) <234> 
3290 RETURN <044> 
3300 REM <05B> 
3305 REM <063> 
3310 IF A<>133 AND A<>134 THEN 3335 <1B0> 
3315 REM <073> 
3320 C(SN)=C(SN) OR 2T(7-S) <076> 
3325 CI(SN)=C(SN) OR 1 <253> 
3330 SYS PR,3+SN,26+S,F2*5"1“;GOTO 3355 <10B> 
3335 REM <095> 
3340 C(SN)=C(SN) AND 255-2T(7-S) <001> 
3345 CI(SN)=C(SN) OR 1 <019> 
3350 SYS PR,3+SN,26+S,F2*;"O" <140> 
3355 REM <U5> 
3358 POKE 50334+SN,C(SN) <213> 
3360 X=C(SN)BIF SU THEN X=C1(SN) <160> 
3365 POKE SI+7*SN+4,XsRETURN <031> 
3370 REM <130> 
3375 REM <135> 
3380 POKE PA, PWs l_=LEN (STR* (PW) > <217> 
3385 SYS PR,3+SN,34, BL* (4—L)|F2*;PW <16B> 
3390 RETURN <146> 

3400 REM- <220> 

3405 REM TEMPO <255> 
3410 IF PW<40 THEN PW=40 <174> 
3415 IF PW>480 THEN PW=4B0 <070> 
3420 TE=PWsSYS DO,PA,INT(6E7/(24*TE>) <025> 
3425 SYS PR,6,11,F2*;RIGHT*(STR*(PW),3) <204> 
3430 RETURN <186> 
3500 REM <004> 
3510 REM <014> 
3520 REM <024> 
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<046> 
< 151 > 
<195> 
<061 > 
<254> 
<099> 
<009> 
<081 > 
<097> 
<106> 
<116> 
<126> 
< 012 > 
<00B> 

<241 > 
<242> 
<206> 
<216> 
<226> 
<049> 
<039> 

<1B7> 

<050> 

<060> 

<070> 

<199> 

<252> 
<205> 
<223> 
<118> 
<252> 
<006> 
<016> 
< 112 > 


3525 SYS PR,15,10,F2*;"STIMME 1,2,3" 

3530 GET A*:IF A*=""THEN 3530 

3540 IF A*="1"0R A*="2"DR A*="3"THEN 3560 

3550 GOTO 3590 

3560 I=VAL(A*>-1 :B(I)=NOT SU) 

3570 IF S(I) THEN PRINT CHR*(1B); 

3580 SYS PR,21,31+2«I,F1*;A*;CHR*(146); 
3590 SYS PR,15,10,Fl*;"STIMME 1,2,3" 

3595 RETURN 

3600 REM 

3610 REM 

3620 REM 

3630 PQKE 650,64 

3640 AD=MD+72s X=PEEK(AD):POKE AD,X DR 1 
3650 IF PEEK(203)<>64 AND PEEK(19B>=0 THEN 
3650 

3660 POKE AD,X AND 254sPQKE 650,12B:RETURN 

3700 REM 

3710 REM 

3720 REM 

3730 EG=NOT EG 

3740 IF EG THEN PRINT CHR*(18); 

3750 SYS PR,23,31,Fl*;"SQFT-EG{RVOFF>":RET 
URN 
3B00 REM 
3S10 REM 
3820 REM 
3B30 SU=NOT SU 

3B40 PDKE 50344,-SU:IF SU THEN PRINT CHR*( 
1B) j 

3850 SYS PR,22,31,F1*;"SUSTAIN{RVOFF}" 

3860 IF NOT SU THEN 2140 

3870 RETURN 

4000 REM 

4010 REM 

4020 REM 

4030 M=0:PV=0:SYS CLSPRINT "{HOME}";Fl* 
4040 PRINT" - 


<073> 

4045 PRINT" 2<RVS0N,9SPACE>M O D U L A T 0 

R{10SPACE,RVOFF J <004> 

4050 PRINT" 3{RVS0N,5SPACE)TH0MAS KRAETZIG 

{7SPACE}1985 C5SPACE,RVOFF >2" <110> 

4055 PRINT" ?£££££££££££££££££££££££££££££ 

PJ-C-c.c.cc.y" <06(?> 

4100 SYS PR,6,1,F2*;"SH V";F1*;" STIMMEN-P 

ARAMETER" <100> 

4105 SYS PR,7,1,F2*;"{3SPACE)F";Fl*;" FILT 

ER/LAUTSTAERKE" <074> 

4110 SYS PR,8,1,F2*;"{3SPACE)L";F1*;" LFO" <127> 

4115 SYS PR,9,1,F2*;"C3SPACEJH";Fl*;" HUEL 
LKURVE (SOFT-EG)" 

4120 SYS PR,10,1,F2*;"<3SPACE>K"jFl*;" KSV 

4125 SYS PR,11,1,F2*;"SH S";F1*;" SOUNDS" <023> 

4130 SYS PR,12,1,F2*;"{3SPACEJD";Fl*;" DIS 
K" 

4132 SYS PR,13,1,F2*;"{3SPACE}A";F1*;" SEQ 
UENCER" 

4135 RETURN 
4200 REM 
4210 REM 
4220 REM 

4240 SYS PR,15,1, F2*;"V{2SPACE)1,2,3" 

4245 SYS PR,15,10,Fl*;"STIMME 1,2,3 
4250 SYS PR,15,26,F2*;"S" 

4255 SYS PR,15,32,Fl*;"SUSTAIN" 

4260 SYS PR,16,1, F2*;"SH SPACE" 

4270 SYS PR,16,10,Fl*;"EG (AB-)KOPPELN" 

4280 SYS PR,16,26,F2»;"SPACE" 

4290 SYS PR,16,32,Fl*;"EB GATE" 

4292 SYS PR,17,1, F2*;"X" 

4294 SYS PR,17,10,Fl*;"HAUPTMENUE" 

4300 SYS PR,19,0,F2*; 

4310 FOR 1=1 TO 4 

4320 : PRI NT " {SPACE, RVSON, SPACE}fl 2 fl JS 
22222222 2<SPACE,RVOFF>"sNEXT 
4330 PRINT"{SPACE,RVSON JQ2W2E2R2T2Y2U212Q2 

P2@2*2T2i2=" <l1B> 

4340 SYS PR,19,0,; < 18 3> 

4350 FOR 1=1 TO 2 <001> 

4360 s PRINT"{SPACE,RIGHT,SPACE,RIGHT,SPAC 
E,3RIGHT,SPACE,RIGHT,SPACE .RIGHT,SPAC 
E,3RIGHT,SPACE,RIGHl v SP.ACE, 3RI GHT, SPA 
CE,RIGHT,SPACE,RIGHT,SPACE V'sNEXT <011> 


<059> 


<254> 

<207> 

< 129> 

< 19B> 
<20B> 
<21B> 
<219> 

< 194> 

< 175> 
<245> 
<0B7> 
<044> 

< 117> 
<221 > 
<003> 
<085> 
<093> 
< 218 > 

< 202 > 


4370 PRINT"{SPACE,RIGHTI2IRIGHTJ3I3RIGHTJ5 
.CRIGHT >6 <RIGHT >7 C3RIGHT >91RIGHT > 013RI 
BHT >-{RIGHT > f <RIGHT >C“ 

4380 SYS PR,19,31,Fl*;"AKTIV:” 

4390 FOR 1=0 TO 2 

4400 8 A*=RIGHT*(STR*(I +1),1) 

441-0 s GOSUB 3570s NEXT I 

4420 GOSUB 3840sGOSUB 3740 

4430 RETURN 

4500 REM 

4505 REM 

4510 REM 

4515 M=lsPV=3050sSYS CLsPRINT"{HOME,RVOFF) 
" jFl* 

4520 PRINT"{5SPACE1F<4SPACE>PW{3SPACE>A{2B 
PACE >DI2SPACE)S{2SPACE >R CONTROL PORT 
A" 

4525 PRINT" iE£££££W££££W££W££If££Tr££W£££££ 
4530 FOR 1=1 TO 3 

4535 PRINT" 2<6SPACE}2{48PACE>2<2SPACE>2<2 
SPACE>2<2SPACE>2<2SPACE>2<7SPACE)2{4S 
PACE>2" 

4540 NEXT I 

4545 PRINT" 7££££££r£££fiE££r£Er££rfi£rrÄWS' 
OT£E££X" 

4550 SYS PR,7,26,"2222227££SYNC" 

4555 SYS PR,B,26,"222227££RING" 

4560 SYS PR,9,1,F2*;"Fl{2SPACE)++";F1* 

4565 SYS PR.9 T 26 T " BBBBVC CT FST“ 

4570 SYS PR,10,1,F2*;"F3{2SPACE)+";Fl* 

4575 SYS PR,10,26,"2227££TRIAN" 

4580 SYS PR,11,1,F2*;"F5{2SPACE)—";Fl* 

45B5 SYS PR,11,26,"222E2SAWT00TH" 

4590 SYS PR,12,1,F2*;"F7{2SPACE)—";Fl* 
4595 SYS PR,12,26,"2?££SQUARE" 

4600 SYS PR,13,26,"?££NOISE" 

4602 REM 

4604 A*=F2*sF2*=Fl* 


<093> 
<035> 
< 011 > 
<244> 
< 210 > 
<21B> 
< 170> 
<244> 
<249> 
<254> 

<0B2> 


<030> 

< 135> 
<055> 


<1B9> 

<050> 

<038> 

<042> 

<155> 

<160> 

< 190> 
<062> 
<043> 
< 212 > 
<228> 
<184> 

< 199> 
<0B9> 
<090> 
<213> 


4606 

FOR SN=0 TO 2 

< 13B> 

4608 

s T=T(SN):0=0(SN):OF=OF(SN) 

<225> 

4610 

: u- SUB 3122s REM F 

<234> 

4612 

s PW= (USR (M0+7*SN+2) ) s BOSUB 3165 

<236> 

4614 

s PW=INT(AD(SN)/16) sGOSUB 3195 

<012> 

4616 

s PW=AD(SN)AND 15 sGOSUB 3225 

<076> 

4618 

s PW=INT(SR(SN)716) sGOSUB 3255 

<093> 

4620 

s PW=SR(SN > AND 15 sGOSUB 3285 

<011> 

4622 

s REM CONTROL-BYTE (7 BIT) 

<0B3> 

4624 

: B=C(SN)s A=12B 

<255> 

4626 

s SYS PR,3+SN,26,Fl*;" 0000000 " 

<010> 

4628 

s FOR S=7 TO 1 STEP -1 

< 145> 

4630 

s IF(B AND A)THEN SYS PR,3+SN,33-S, 

”1 


" 

<232> 

4632 

s A=A/2:NEXT S 

<145> 

4634 

s PA=M0+7*SN+4 s PW=PEEK(PA > 

<033> 

4636 

s GOSUB 3370 s REM PORTA 

<037> 

4638 

NEXT SN 

<202> 

4640 

F2*=A* 

<227> 

4642 

SN=0s AV=4700s SYS SS,AVsRETURN 

<132> 

4650 

REM 

< 140> 

4652 

REM 

<142> 

4654 

REM 

< 144> 

4656 

SN=SN—1sIF SN<0 THEN SN=2 

<000> 

4658 

GOSUB 5815sSYS GT,AV 

<004> 

4660 

REM 

< 150> 

4662 

SN=SN+lsIF SN>2 THEN SN=0 

<182> 

4664 

BOSUB 5815:SYS BT,AV 

<010> 

4666 

REM 

< 156> 

4668 

IF AVO4BB0 THEN 4674 

< 142> 

4670 

S=S+1:IF S>6 THEN AV=4910 

<090> 

4672 

GOTO 4678 

<130> 

4674 

AV=AV+30sIF AV>4910 THEN AV=4700 

<040> 

4676 

IF AV=48B0 THEN S=0 

< 133> 

4678 

BOSUB 5815sSYS GT,AV 

<024> 

46B0 

REM 

< 170> 

4682 

IF AVO48B0 THEN 46B8 

<223> 

4684 

S=S—lsIF B<0 THEN AV=4B50 

<110> 

4686 

GOTO 4692 

<079> 

4688 

AV=AV—30sIF AV<4700 THEN AV=4910 

<054> 

4690 

IF AV=48B0 THEN S=6 

<083> 

4692 

BOSUB 5815sSYS GT,AV 

<03B> 

4700 

REM 

< 190> 

4702 

REM 

<192> 

4704 

PB=FA+40*(SN+3)+2 

< 125> 

4706 

FOR I=PB TO PB+5:POKE I,F2sNEXT 

< 1B3> 
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4708 T=T(SN)s0=0(SN>sOF=QF(BN> 

4710 PA=M0+7*SN s PV=3050 s RETURN 
4730 REM 
4732 REM 

4734 PB=FA+40*(SN+3)+9 

4736 FOR I=PB TD PB+3:P0KE I,F2:NEXT 

4738 PA=M0+7*BN+2:PW=UBR(PA):PM=4096 

4740 Pl = lsP2=50sPV=3150a RETURN 

4760 REM 

4762 REM 

4764 PB=FA+40*(SN+3)+14 
4766 POKE PB,F2s POKE PB+1,F2 

4768 PA=BI+7*SN+5 a PW=INT(AD(SN >/16 > 

4770 PM= 16 a P1 = 1: P2= 1: PV=3175 a RETURN 
4790 REM 
4792 REM 

4794 PB=FA+40*(SN+3)+17 
4796 POKE PB,F2aPOKE PB+1,F2 
4798 PA=SI+7*SN+5:PW=AD(SN)AND 15 
4800 PM=16aPl=la P2=l: PV=3205sRETURN 
4B20 REM 
4822 REM 

4824 PB=FA+40*(SN+3)+20 

4B26 PDKE PB,F2sPDKE PB+1,F2 

4B28 PA=SI+7*BN+6sPW-INT(SR(SN)/16) 

4830 PM=16:Pl=lIP2=ls PV=32358 RETURN 
4850 REM 
4B52 REM 

4854 PB-FA+40*(SN+3 > +23 

4856 PDKE PB,F28PDKE PB+1,F2 

4858 PA=SI+7*SN+6s PW=SR(SN)AND 15 

4860 PM=16:Pl=l8 P2=l:PV=3265s RETURN 

4B80 REM 

4882 REM 

4BB4 PB=FA+40*(BN+3)+26+S 
4886 POKE PB,F2 

4888 PA=SI+7*SN+4aPV=3300aRETURN 
4910 REM 
4912 REM 

4914 PB=FA+40*(SN+3)+35 

4916 FOR 1=0 TD 2sPDKE PB+I,F28NEXT 

4918 PA=M0+7»SN+4 8 PW=PEEK(PA > s PM=256 

4920 Pl=l8P2=10:PV=3370sRETURN 

5000 REM 

5005 REM 

5010 REM 

5015 M=2 a P V=0 s SYS CL s PRINT"tHOME,RVOFF >";F 
1* 

5020 PRINT" FILTER/LAUTSTAERKE" 

5025 PRINT" i£££££W£££E£lf££££££££ , R'£££££££. , ff 
■CJC.Q g" 

5030 PRINT" SFILTFa RES BSCHALTERa MODUS & 
LAUTa" 

CCQC P" 

5040 PRINT“ at5SPACE>a<5SPACE>a FILT1 I2SPA 
CE >a£3SPACE JLP {2SPACE >a<4SPACE >a" 

5045 PRINT" 5£££££'g£££££W FILT2<2SPACE>a<3 
SPACE >BP 12BPACE 

5050 PRINT" allISPACEJa FILT3{2SPACE>a<3BP 
ACE >HP C2SPACE >a" 

5055 PRINT" aUISPACEJa FILTEX a<2BPACE>30 
FF ^ nnrccc rnpcccccciTF nncncccg 

5065 PRINT F2*;" Fl"jFl*;"{4BPACEJ++I6BPAC 
EJFILT1I6SPACEJLP C4SPACEI+" 

5070 PRINT F2*;" F3";Fl*;"{4SPACEJ+C7SPACE 
>FILT2 C6SPACEIBP{4SPACE > + " 

5075 PRINT F2*;" F5";Fl*;"{4SPACED-{7SPACE 
JFILT3C6SPACE>HP{4SPACE>-" 

5080 PRINT F2*;" F7";Fl*J"C4SPACEJ—C6SPAC 
EIFILTEX<4SPACE >30FFC3SPACE>-" 

5085 PW=(PEEK(MD+21)AND 7)+8*PEEK(MD+22) 
5090 SYS PR,5, 7—LEN(STR#(PW)),PW 
5095 PW=INT(RF/16) 

5100 SYS PR,5,12—LEN(STR#(PW)),PW 
5102 IF RF AND 1 THEN SYS PR,5,15,"<RVSON> 
FILT1{SPACE,RVOFF >" 

5104 IF RF AND 2 THEN SYS PR,6,15,"1RVSDNJ 
FILT2TSPACE,RVOFF >“ 

5106 IF RF AND 4 THEN SYS PR,7,15,"<RVSON> 
FILT3tSPACE,RVOFF >" 

5108 IF RF AND B THEN SYS PR,8,15,"CRVSONJ 
TILTEXtRVOFFJ“ 


<U0> 

<023> 

< 220 > 

< 222 > 

< 183> 

< 197> 
<093> 
<094> 
<250> 
<252> 
<086> 
<225> 
<041 > 
<246> 
<024> 
<026> 

< 140> 
<255> 

< 153> 
<209> 
<054> 
<056> 
<U8> 
<029> 

< 104> 

< 112 > 
<0B4> 
<0B6> 

< 172> 
<059> 

< 173> 
< 016 > 

< 116> 
< 118> 
<24B> 
<1U> 
<248> 
<146> 

< 148> 
<254> 
<: i3B> 
< 210 > 
<0 J6> 
<236> 
<241 > 
<246> 

< 177> 
<231 > 

<211 > 

<094> 

<063> 

< 143> 
<050> 


5110 PW=PEEK(MO+23) <225> 

5112 IF PW AND 16 THEN SYS PR,5,25,"<RVSON 

,SPACE>LPtSPACE,RVOFF>" <010> 

5114 IF PW AND 32 THEN SYS PR,6,25,"<RVBON 

,SPACEIBP <SPACE,RVOFF >" <010> 

5116 IF PW AND 64 THEN SYS PR,7,25,"<RVSON 

,SPACEJHP{SPACE,RVOFF»“ <07B> 

5118 IF PW AND 128 THEN SYS PR,8,25,"<RVSO 

NJ30FF tRVOFF >" <193> 

5120 PW=PEEK(MO+23)AND 15 <200> 

5122 SYS PR,5,34—LEN(STR#(PW)),PW <131> 

5125 AV=5200s SYS GS,AVaRETURN <061> 

5130 REM <112> 

5135 REM <117> 

5140 REM <122> 

5145 AV-AV+508IF AV>5400 THEN AV=5200 <249> 

5150 GOTO 5165 <059> 

5155 REM <137> 

5160 AV=AV-503IF AV<5200 THEN AV=5400 <00B> 

5165 BOBUB 5B158A=PB-FA-200 <057> 

5170 IF A< >15 AND A<>25 THEN 8YB BT,AV <132> 

5175 FOR J=! ro 3aPB=PB+40:BOSUB 5815aNEXT <107> 
5180 PB=PB-120sSYS BT,AV <096> 

5200 REM <182> 

5205 REM <1B7> 

5210 PB=FA+203 <203> 

5215 FOR I=PB TO PB+3sP0KE I,F2sNEXT <16B> 

5220 PA=M0+213 PW=PEEK(PA)+8*PEEK(PA+1) <158> 

5225 PM=204BsPl=lsP2=50sPV=2B50sRETURN <066> 

5250 REM <232> 

5255 REM <237> 

5260 PB=FA+210 <243> 

5265 POKE PB,F2rPOKE PB+1,F2 <216> 

5270 PA=SI+23:PW=INT(RF/16) <056> 

5275 PM=16s Pl = l8 P2=l8 PV=2875s RETURN <149> 

5300 REM <026> 

5305 REM <031> 

5310 PB=FA+215 <057> 

5315 FOR 1=0 TO 120 STEP 40:FOR J=0 TO 5 <034> 

5320 8 POKE PB+I+J,F2:NEXT:NEXT <24B> 

5325 PA=SI+23 8 PW=RF AND 15 <229> 


C5330 PU«, 900:RETURN <162> 


5350 REM <076> 
5355 REM <0B 1 > 
5360 PB=FA+225 <109> 
5365 FOR 1=0 TO 120 STEP 40sFOR J=0 TO 3 <06B> 
5370 s POKE PB+I+J,F2:NEXTsNEXT <042> 
5375 PA=M0+23 <006> 
5380 PV=29558 RETURN <093> 
5400 REM <12B> 
5405 REM <133> 
5410 PB=FA+232 <151> 
5415 POKE PB,F2sPOKE PB+1.F2 <U2> 
5420 PA=M0+23:PW=PEEK(PA) AND 15 <21B> 
5425 PM=16:Pl = l:P2=lsPV=3010:RETURN <067> 
5500 REM <228> 
5505 REM <233> 
5510 REM <23B> 
5515 M=3:BYB CL:PRINT"<HQME,RVOFF>";Fl#j <049> 


5520 PR I NT " {3SPACE >i£££E££W£E£E'S , ££££l?£££££ 


<053> 

<1B7> 

<00B> 

<015> 

<0B3> 

< 167> 

<0B5> 

<227> 

<033> 

< 196> 
< 101 > 

< 124> 
<079> 
<09B> 
<029> 


C- gCCCQCg " <193> 

5525 PRINT"<3SPACE>a LFOF aLFOPaLFOAaKURVE 

aMODUBa" <255> 

5530 PRINT" tc+ccccc_a+.cj:.c.c.+.cj:jj-+-C.c.c.cA c.tj;.c.c. 

m-t-nnnc g" <035> 

5535 FOR Z=3 TO 9 <247> 

5540 : BYB PR,Z,l,"a a<6SPACE>a<4SPACE)a<4 

SPACE }a< 6SPACE > a C5SPACE >a<4SPACE > a" < 159> 
5545 NEXT Z <175> 

5550 SYS PR,10,1,"Y£E£££££££££££T?££££E££££ 

CCW CSXC.CR f .CCßfi. y < 197 > 

5555 PRINT F2#f" Fl";Fl*j"<2SPACE>++C5SPAC 
E >++(3SPACEJ++ <2BPACE >TRIAN{2SPACEIRE 
BET" <242> 

5560 PRINT F2#9" F3"jFl*;"<2BPACE>+<6SPACE 

>+ <4SPACE>+{3SPACEJSAWUPC2SPACE>HOLD" <157> 
5565 PRINT F2*|" F5";Fl#;"(2SPACEJ-I6SPACE 

> — C4SPACE> — T3SPACE>SAWDWN RUN" <065> 

5570 PRINT F2*; " F7"; F1 *; 11 C2SPACE>—C5SPAC 

E > — <3SPACE >— C2SPACE >SQUARE“ <125 > 

5575 FOR LN=0 TD 6 <039> 
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5580 : Z=3+LN 

5585 I SYS PR,Z,2,CHR*(4B+LN> 

5590 a PW=USR(M0+32+5*LN> aREM LFDF 

5595 s SYS PR,Z,10-LEN(STR*(PW>),PW 
5600 a PW=PEEK(M0+34+5*LN> aREM LFQP 
5605 a BYB PR,Z,15-LEN(STR*(PW)>,PW 
5610 a PW=PEEK(M0+35+5*LN) aREM LFOA 

5615 a SYS PR,Z,20-LEN(BTR*(PW)),PW 
5620 a PW=PEEK(M0+36+5*LN> aREM LFOC 

5625 a BYB PR,Z,21,KV*((PW AND 241/B) 

5630 a SYS PR,Z,28,MD*<(PW AND 6)/2) 

5640 NEXT LN 

5645 LN=0aAV=5B30aSYB GS,AV:RETURN 
5650 REM 
5655 REM 
5670 REM 

5675 LN=LN-1aIF LN<0 THEN LN-6 
56B0 BOSUB 5815aSYB BT.AV 
5685 REM 

5690 LN=LN+lsIF LN>6 THEN LN=0 
3695 BOSUB 5815aBYB BT.AV 
5700 REM 

5705 AV=AV+30aIF AV>5950 THEN AV=5B30 
5710 BDBUB 5810aSYS BT.AV 
5715 REM 

5720 AV=AV-30aIF AV<5830 THEN AV=5950 
5725 BDSUB 5810s SYS BT,AV 
5800 REM 
5B05 REM 

5810 BYB PR,6,34,"C4SPACE >" 

5815 FDR I=PB TD PB+6aP0KE I,F1aNEXTaRETUR 
N 

5820 REM 
5825 REM 

5B30 PB=FA+40*(LN+3)+4 

5B35 FDR I=PB TD PB+5sPDKE I,F2sNEXT 

5840 PA=M0+32+5*LNa PW=USR(PA)s PM=65536 

5845 Pl=laP2=200:PV=2610:RETURN 

5850 REM 

5855 REM 

5860 PB=FA+40*(LN+3)+ll 

5865 FDR I=PB TO PB+3sP0KE I,F2a NEXT 

5870 PA=M0+34+5*LNaPW=PEEK(PA)aPM=256 

5B75 P1=1:P2=10 sPV=2640:RETURN 

5880 REM 

5885 REM 

5890 PB=FA+40*(LN+3)+16 

5895 FOR I=PB TO PB+3sP0KE I,F2sNEXT 

5900 PA=M0+35+5*LN:PW=PEEK(PA):PM=256 

5905 P1*=1:P2=10 s PV=2670: RETURN 

5910 REM 

5915 REM 

5920 PB=FA+40*(LN+3)+21 

5925 FOR I=PB TO PB+SaPOKE I,F2a NEXT 

5930 PA=MO+36+5*LNaPV=2700 

5935 B=(PEEK(PA) AND 24)/8sB0TD 2717 

5940 REM 

5945 REM 

5950 PB=FA+40*(LN+3)+28 

5955 FDR J=PB TD PB+4aP0KE J,F2a NEXT 

5960 PA=M0+36+5*LN 

5965 PV-2730:RETURN 

6000 REM 

6010 REM 

6020 REM 

6030 M=4a SYS CLbPRINT' , <:HDME,RVDFF>"»F 1* 
6040 PRINT" SDFTWARE-EB"aPRINTSPRINT 

6050 PRINT" ■IfifiCfi'iffiCCC' gCCfiC¥C C C CyC C C CgC C C C 

c yccccc g" 

6060 PRINT" at2SPACE>A aC2SPACE>D a<2BPACE 
>8 JK2SPACEJR a EBAa FORMaMODUBa" 

6070 PRINT" olL(UUL+_C_fifia-ffiCfififfiCCC+CCCC+CCCC 

■c_-f.c_qqc.fi P" 

6080 PRINT" a<48PACE>at48PACE>a<4SPACE>a<4 
SPACE >aC4BPACE JaCSSPACE >a<5BPACE >3" 
6090 PRINT" ycfiC-C E ’cccc g ’ccccpccccFcr.cc E ’cr.nn 
C FCCCCC V" 

6100 BYS PR,10,1,F2*s"Fl"aPRINT" F3" 

6110 PRINT" F5":PRINT" F7"jFl* 

6120 BYB PR,10,13,"++11BBPACEJRESET" 

6130 BYS PR,11,13,"+<15SPACE>+{3SPACE>H0LD 


6140 

6150 


SYB PR,12,13, "-U5BPACE>-{3SPACE>RUN" 
SYB PR, 13,13,"—" 


<095> 
<211 > 
<219> 
<037> 
< 210 > 
<067> 
<221 > 
<059> 
<249> 
<203> 

< 172> 

< 132> 

< 151 > 
<124> 

< 129> 

< 144> 
<231 > 
< 010 > 

< 159> 

< 135> 
<025> 

< 174> 
<070> 
<231 > 

< 1B9> 
<0B5> 
<246> 
<01B> 
<023> 

< 165> 

<142> 

<03B> 

<043> 

< 130> 
<040> 
<23B> 

< 159> 
<06B> 
<073> 
<029> 
<054> 
<154> 
< 202 > 
<09B> 

< 103> 
< 101 > 
<0B6> 
<1BB> 
<246> 

< 130> 

< 135> 

< 155> 
<132> 

< 112 > 

< 159> 

< 160> 

< 165> 

< 181 > 
<226> 

< 149> 
<035> 
< 220 > 
<230> 
<240> 
<1U> 
<223> 

< 136> 

< 119> 

<209> 

< 132> 

<042> 

<044> 

<1B3> 

<025> 

<227> 

< 164> 

< 159> 


6160 FDR 1=0 TO 4 
6170 a PW=PEEK(M0+67+I) 

6180 a SYS PR,7,6+5*1-LEN(BTR*(PW)),PW 

6190 NEXT I 

6210 PW=PEEK(M0+72) 

6220 BYB PR,7,29,CHR*(43+(PW AND B)/4) 
6230 BYS PR,7,33,MD*((PW AND 6)/2) 

6240 AV=6310aAN=0sBYB BT.AV 
6300 REM 
6305 REM 

6310 PB=FA+2B2+5*ANaB=2+5*AN 

6315 FOR I=PB TO PB+3.P0KE I,F2aNEXT 

6320 PA“M0+67+AN aPW=PEEK(PA) 

6325 PM=256aIF AN=0 THEN PM=129 
6330 Pl=la P2=10a PV=2760a RETURN 
6335 REM 
6340 REM 

6345 PB=FA+2B0+27SPOKE PB+2.F2 
6350 PA=MD+72aPV=2780aRETURN 
6370 REM 
6375 REM 

63B0 PB-FA+280+33 

63B5 FDR I=PB TD PB+4aPDKE I,F2aNEXT 

6390 PA=MO+72aPV=2B20tRETURN 

6395 REM 

6400 REM 

6405 REM 

6410 IF AVO6310 THEN 6420 
6415 AN=AN—1aIF AN>=0 THEN 6430 
6420 AV=AV—35 a AN=4 
6425 IF AV<6310 THEN AV=63B0 
6430 BDBUB 5815aSYS BT.AV 
6435 REM 

6440 IF AVO6310 THEN 6450 
6445 AN=AN+1aIF AN<=4 THEN 6460 
6450 AV=AV+35 

6455 IF AV>6380 THEN AV=6310aAN=0 
6460 BDBUB 5815aBYS BT.AV 
6500 REM 
6510 REM 

6530 PV=0: PRINT" {RVOFFJ"; a SYS CL 

6540 BYS PR,1,1,F1*;"KREUZSCHIENEN-VERTEIL 
ER" 

6550 BYS PR,3,1,"EC4SPACEJLFD" 

6560 BYS PR,4,1,"B6543210" 

6570 SYS PR,5,l,F2*;"eBEBB@EB" 

6580 A*=F2*+"H"+F1*+"tBBPACE}"+F2*+"I "+F1 
* 

6590 PRINT A*;"Fl"sF2*s"<5SPACE>CURS0RTAST 
EN" 

6600 PRINT A*j"F2" 

6610 PRINT A*j"F3" 

6620 PRINT A*»"P1"|F2*J"<5SPACE>F1 "}F1* ( " 
VERBINDUNG" 

6630 PRINT A*J"P2" 

6640 PRINT A*j"P3"|F2*j"t5BPACE>F7 "jFl*;" 

KEINE VERBINDUNG" 

6650 PRINT A*j"FILT" 

6660 PRINT A*J"LAUT" 

6670 PRINT F2*j" TTTTHTT" 

66B0 FOR Z=0 TO 7aBOSUB 6730aNEXT 

66B5 Z=0a 8=7a PDKE 55296+40*(6+Z)+8-S,F2 

6690 RETURN 

6700 REM 

6710 REM 

6720 REM 

6730 B=PEEK(M0+24+Z)aA=12B 

6740 SYS PR,6+Z,l,Fl*j"<RVSON>00000000" 

6750 IF B=0 THEN RETURN 

6760 FOR S=7 TD 0 STEP -1 

6770 IF(B AND A)THEN BYB PR,6+Z,B-S,"CRVBO 
N > 1"; 

67B0 A=A/2a NEXT S 
6790 PRINT Fl*}aRETURN 
6800 REM 
6810 REM 
6820 REM 

6830 POKE 55296+40*(6+Z)+B-S,FlaREM AUB 

6B40 Z=(Z-1) AND 7a BDTD 6910a REM HOCH 

6850 PDKE 55296+40*(6+Z)+8-S,Fl 

6B60 Z=(Z+1> AND 7a GOTO 6910a REM RUNTER 

6870 PDKE 55296+40*(6+Z)+B-S,Fl 

68B0 S=(S+1) AND 7aB0TD 6910:REM LINKS 

6890 PDKE 55296+40*(6+Z)+8-B,Fl 


<004> 

<055> 

< 153> 
<178> 
<067> 

< 184> 

< 124> 
<211 > 
< 010 > 
<015> 

< 131 > 
<252> 
<251 > 
<013> 

< 159> 
<045> 
<050> 
<034> 
<032> 
<0B0> 
<085> 
<0B7> 
<074> 

< 195> 

< 105> 

< 112 > 

< 117> 
<245> 

< 173> 

< 144> 
<054> 
<254> 

< 147> 
< 212 > 
<165> 
<245> 
<076> 
<028> 
< 212 > 
< 222 > 
<232> 
<156> 

<038> 
<251 > 
<250> 
<0B7> 

<024> 

<052> 

<052> 

<063> 

<191 > 
<0B7> 

<216> 
<051 > 
<076> 

< 126> 
<007> 
<239> 

< 144> 

< 15B> 

< 16B> 

< 17B> 
<015> 
<227> 
<051 > 
<082> 

< 19B> 
<228> 
<098> 
< 002 > 
< 012 > 
< 022 > 
<028> 
<06B> 
<243> 
<033> 
<007> 
<185> 
<027> 


118 


SONDERHEFT 11 










C 64 


MUSIK-KURS 


6900 S=(S-1) AND 7:BOTQ 6910SREM RECHTS <176> 

6910 PQKE 55296+40*(6+Z)+8-S,F2sREM AN <128> 

6915 RETURN <115> 

6920 REM <124> 

6925 REM <129> 

6930 REM <134> 

6935 AD=M0+24+Z <134> 

6940 PQKE AD,PEEK<AD) DR 2tS <005> 

6950 POKE 1024+40*<6+Z)+B-S,177sRETURN <096> 

6960 REM <164> 

6965 REM <169> 

6970 REM <174> 

6975 AD=M0+24+Z <174> 

6980 PQKE AD,PEEK(AD) AND (255-2tS> <253> 

6990 POKE 1024+40*(6+Z)+8-8,176sRETURN <00B> 

7000 REM <204> 

7005 REM <209> 

7010 REM <214> 

7015 M=6sPV=0sSYB CLsPRINT"«HOME,RVQFF>";F 

2* <017> 

7020 SYS PR,1,8,"A <1lSPACEJBtl1SPACE>C" <224> 

7025 PRINT Fl*; " C3SPACE> ,r£K.C.Cßß.Cßßß£ßßß.Wß. 

c c c ccc.c.cc.c.c^^jxc.' S" <130> 

7030 FQR 1=1 TO 8 <146> 

7035 SYS PR,2+1,1, F2*;CHR*(4B+I);Fl*" 2" <105> 

7040 SYS PR,2+I,38,"fi":NEXT <113> 

7045 SYS PR, 11,3, 91ICCll[lC-aaCJJ.CJ.tU;£DI^Q fi& 

nnnrncccccc g 11 <202> 

7050 SYS PR,12,4,F2*;"A-C 1-8" <089> 

7055 SYS PR,12,13,Fl*;"SOUND WAEHLEN" <163> 

7060 SYS PR,13,1,F2*;"+T2SPACEJA—C 1-8" <209> 

7065 SYS PR,13,13,F1*"S0UND ABSPEICHERN" <056> 

7070 SYS PR,14,1,F2*;"N" <104> 

7075 SYS PR,14,13,Fl*;"NAMEN EINBEBEN «RET 

URN)" <199> 

7080 FOR S=0 TO 2s FOR Z=0 TO 7 <144> 

7085 s SYS PR,3+Z,4+S*12,; <174> 

7090 s SYS NA,SO+107*(B*S+Z)+97 <057> 

7095 NEXTsNEXTsIF NS<0 THEN Z=0sS=0sRETURN <076> 
7100 Z=NS AND 7sB=INT(NS/B)sBOTO 7180 <141> 

7110 REM <058> , 

7115 REM <063> 

7120 X=A—65 sREM SPALTE 0,1,2 <248> 

7122 SYS PR,12,13,F2*;"{RVOFFJSOUND WAEHLE 

N" <249> 

7125 BET A*sIF A*="" THEN 7125 <194> 

7130 Y=ASC<A*)—49sREM ZEILE <1B4> 

7135 IF Y<0 OR Y>7 THEN 7142 <193> 

7140 BOSUB 7150sBOSUB 7400 <05B> 

7142 SYS PR,12,13,Fl*;"{RVOFFJSOUND WAEHLE 

N" <237> 

7144 RETURN <0BB> 

7146 REM <094> 

7150 REM <098> 

7155 NS=B*S+Z <096> 

7160 s SYS PR,3+Z,4+5*12,Fl»;"{RVOFFJ"; <193> 

7165 s SYS NA,SO+107*NB+97 <244> 

7170 REM <120> 

7175 S=Xs Z=YsNB=8*S+Z <224> 

71B0 s SYS PR,3+Z,4+S*12,F2*;"{RVOFFJ"; <223> 

7185 s SYS NA,SO+107*NB+97 <010> 

7190 RETURN <136> 

7200 REM <059> 

7205 REM <155> 

7210 SYS PR,13,13,F2*;"{RVOFFJSOUND ABSPEI 

CHERN" <07B> 

7215 BET A*sIF A*="" THEN 7215 <221> 

7220 X=ASC <A*)—65sREM SPALTE <026> 

7225 IF X<0 OR X>2 THEN 7250 <059> 

7230 BET A*sIF A*="" THEN 7230 <232> 

7235 Y=ASC(A*>-49s REM ZEILE <035> 

7240 IF Y<0 OR Y>7 THEN 7250 <220> 

7245 BOSUB 7150sBOSUB 7450sBOTO 7260 <111> 

7250 SYS PR,13,13,Fl*;"{RVOFFJSOUND ABSPEI 

CHERN" <0B6> 

7255 RETURN <201> 

7260 SYS PR,13,13,Fl*;"{RVOFFJSOUND ABSPEI 

CHERN" <096> 

7300 REM <250> 

7305 REM <255> 

7310 SYS PR,14,13,F2*;"NAMEN EINBEBEN (RET 

URN)" <212> 

7315 X=12*S+4sY=Z+3sAD=1024+40*Y+X <195> 

7320 BA=SO+107*NS+97s1=0 <17B> 

7325 POKE AD+I,PEEK(AD+I) OR 128 <097> 


7330 BET A*sIF A*="" THEN 7330 <140> 
7335 A=ASC(A*)sIF A<32 OR A>95 THEN 7370 <206> 
7340 REM <034> 
7345 SYS PR,Y,X+1,F2*;A*;sPOKE SA+I,A <242> 
7350 1=1+1 <221> 
7355 IF I>9 THEN I=9sB0T0 7325 <145> 
7360 IF I<0 THEN 1=0 <080> 
7365 BOTO 7325 <162> 
7370 IF A=29 THEN POKE AD+I,PEEK«AD+I) AND 

127sBOTO 7350 <064> 
7375 IF A=157 THEN POKE AD+I,PEEK(AD+I) AN 

D 127s1=1-1sBOTO 7355 <099> 
7380 IF A<>13 THEN 7330 <023> 
7385 POKE AD+I,PEEK(AD+I) AND 127 <024> 
7390 SYB PR,14,13,Fl*;"NAMEN EINBEBEN (RET 

URN)" <004> 
7395 RETURN <0B! > 
710a REM <094> 
7402 REM <096> 
7404 SA=SO+NS*107sSYS BE,SA <092> 
7406 FOR 1=0 TO 2 <233> 
7408 s AD=SA+7*I <060> 
7410 s BF(I)=UBR(AD+73) <102> 
7412 s X=BF(I>/17.0327/440 <229> 
7414 3 Y=LOB(X)/LOB(2) sREM X=2TY <077> 
7416 s Y=Y+4+9/12+49/1200 <211> 
7418 s 0(1)=INT(Y)s Y=(Y—0(I))*12 <063> 
7420 s T(I)=INT(Y) <191> 
7422 s OF(I)=INT((Y-T(I>)*100-48.5) <077> 
7424 s S(I> = (PEEK(AD+75)=1) <252> 
7426 s A*=CHR*(49+1)sBOSUB 3570 <157> 

7428 s C(I)=PEEK(AD+77) AND 254 <064> 

7429 s POKE 50334+I,C(I) <207> 

7430 s C1(I)=C(I> OR 1 <0B6> 
7432 s AD(I)=PEEK(AD+78) <239> 
7434 s SR(I)=PEEK(AD+79) <226> 
7436 NEXT I <154> 
743B RF=PEEK(SA+94) <166> 
7440 EB=(PEEK(SA+95)=1)3BOSUB 3740 <002> 
7442 SU=(PEEK(SA+96)=l)sBOSUB 3840 <204> 
7444 RETURN <136> 
7450 Rfcn <146> 
7452 REM <14B> 
7454 SA=SO+NS*107s SYS PU,SA <1B5> 
7456 FOR SN=0 TO 2 <0B2> 
7458 s AD=SA+7*SN <164> 
7460 s SYS DO,AD+73,BF(SN) <098> 
7462 s POKE AD+75,-S(SN) <205> 
7464 s POKE AD+77,C(SN). <012> 
7466 s POKE AD+78,AD(SN) <179> 
7468 S POKE AD+79,SR(SN) <110> 
7470 NEXT SN <240> 
7472 POKE SA+94,RF <028> 
7474 POKE SA+95,—EB <135> 
7476 POKE SA+96.-SU <17B> 
7478 RETURN <170> 
7500 REM <196> 
7505 REM <201> 
7510 REM <206> 
7515 M=7sPV=0sSYB CLsPOKE 157,0 <055> 
7520 PRINT Fl*;"{HOME,DOWN,SPACE>DISK" <094> 
7525 SYS PR,5,4,F2*;"Fl" <167> 
7530 SYS PR,5,7,Fl*;"SOUNDS LADEN" <165> 
7532 SYS PR,6,4,F2*;"F2" <239> 

7534 SYS PR,6,7,Fl*;"SONB{3SPACE JLADEN" <156> 

7535 BYS PR,7,4,F2*;"F3" <051> 
7540 BYS PR,7,7,Fl*;"SOUNDS ABSPEICHERN" <078> 
7545 RETURN <237> 
7600 REM <040> 
7605 REM <045> 
7610 SYS PR,5,7,F2»;"SOUNDS LADEN" <253> 
7615 SYS PR,10,4,Fl*;"DATEINAME "; <24B> 
7620 DN*="SOUNDS{14BPACEJ" <023> 
7625 BYS PR,10,16,DN* <234> 
7630 SYB PR,10,14,(sINPUT DN* <22B> 
7632 SYB 50198sBOSUB 2140s REM MOD. AUS <003> 
7635 OPEN 8,8,8,DN*+",P,R"sCLOSE 8 <165> 
7640 OPEN 1,8,15sINPUT#1,A,A*,X,YsCLOBE 1 <056> 
7645 SY8 PR,12,4,"{29SPACEJ" <153> 
7650 IF A=0 THEN 7660 <107> 
7655 BYS PR,12,3,A;A*;X;YsBOTO 7625 <0B6> 
7660 A=0sLOAD DN*,B,1 <255> 


Listing 7. Der »Sound-Editor« (Fortsetzung) 



SONDERHEFT 11 


119 










MUSIK-KURS 


C 64 


7665 

7670 

7675 

76B0 

76B5 

7700 

7705 

7710 

7715 

7720 

7725 

7730 

7735 

7740 

7745 

7750 

7755 

7760 

7765 

7770 

7775 

77B0 

77B5 

7790 

7795 

7800 

7B05 

7B10 

7815 

'7900 

7905 

7910 

7915 

7920 

7925 

7930 

7935 

7940 

7945 

7950 

7955 

7960 

7965 

7970 

7975 

7980 

7985 

7990 

8000 

8010 

8020 

B030 

8035 

8040 

8045 

8050 

8055 

8060 


SYS PR,5,7,Fl"SOUNDS LADEN" 

NS=—1:A=211 

SYS DO,56326,INT(6E7/(24*TE>) 

IF SR THEN SYS 51093«GOTO 1550 

SYS M8+1033s GOTO 1550 

REM 

REM 

SYS PR,7,7,F2* S "SOUNDS ABSPEICHERN" 
SYS PR,10,4,Fl*|"DATEINAME "j 
DN*="SOUNDS<14SPACE>" 

SYS PR,10,16,DN* 

SYS PR,10,14, f sINPUT DN* 

SYS 5019B8GDSUB 2140:REM MOD/SEQ AUS 
REM 

□PEN l,B,l,"@s"+DN* 

PÜKE 252,0sPOKE 253,144sREM *9000 
POKE 7B0,252sREM AKKU 
PDKE 781,8 sREM X-REG = *08 
POKE 782,154 s REM Y-REG = *9A 
SYS 65496 sREM KERNAL SAVE 
□LOSE 1 

□PEN 1,8,15sINPUTttl,A,A*,X,Ys CLDSE 1 

IF A=0 THEN 7795 

SYS PR,12,4,A;A*j X;YsGOTO 7725 

SYS PR ,12,4," {30SPACE > 11 

SYS PR,7,7,Fl*j"SOUNDS ABSPEICHERN" 

SYS DO,56326,INT<6E7/<24#TE)> 

IF SR THEN SYS 51093s RETURN 

SYS 50185sRETURNsREM NUR MOD. AN 

REM- 


8065 
B070 
8072 
8074 
8076 
8078 
8080 
Ö0B2 
8100 
8110 
8120 
8130 
8150 
8160 
B170 
Bl 80 
8190 
B200 
8220 
8230 
B240 
8250 
8260 
8280 
8290 
8310 


REM SONG LADEN 

SYS PR, 6 ,7,F2*;"SONGI3SPACEJLADEN" 
SYS PR,10,4,Fl*j"DATEINAME ", 

SYS PR,10,14,;sINPUT DN* 

SYS 50966sGOSUB 2140 
OPEN 8 ,B,B,DN*+",P,R"sCL 0 SE 8 
OPEN 1,8,15 sINPUT#1,A,A*,X,Y s CLOSE 1 
SYS PR,12,4,"I29SPACE>" 

IF A=0 THEN 7955 

SYS PR,12,3,A;A*j X;Ys GOTO 7920 

A=0sM=7.5sLOAD DN*,8,1 

SYS PR, 6 ,7,F1*;"SONG{3SPACE}LADEN" 

M=7 s SQ=—1 

SYS DO,56326,INT(6E7/(24*TE)) 

SYS DO,50310,USR(39432) 

SYS 51001 sREM SEQ/MOD START/INIT 

IF NOT SR THEN SYS 50966 

A=65sB0T0 1550 

REM 

REM 

REM 

PRINT"{CLR,12D0WN,7SPACE >"5 
PRINT"BITTE 30 SEKUNDEN WARTEN" 

REM 

REM 

FOR 1=0 TO 22 sREM KERNAL-GOBUB 
POKE B28+I,PEEK(43139+1)sNEXT 
FOR 1=0 TO 129s READ XsPOKE 851 + 1,XsNE 
XT 

POKE 7B5,169 s POKE 786,3sREM USR 

REM 

REM 

FOR 1=50211 TO 50291 
READ XsPOKE I.XsNEXT 
REM 
REM 

FOR 1=0 TO 11 s READ TN*(I)sNEXT 

REM 

REM 

READ A*s L=LEN(A*> 

ON L GOTO 8150,B220,8280,8310,8310 
REM 

A=ASC <A*> 

IF M>=0 THEN V7.(M,A)=ZNsBOTO 8120 
FOR 1=0 TO 8sV7.(I,A)=ZNsNEXT 
GOTO 8120 

IF LEFT* <A*,1)< >"M" THEN 8120 
REM 

IF LEFT*(A*,1)< >"M" THEN 8120 
A*=RIGHT*(A*,1) 

IF A*="A" THEN M=-l .-GOTO 8120 
M=VAL(A*> sGOTO 8120 

REM 

A=VAL(A* > s GOTO 8170 
REM 


<044> 

< 022 > 

< 222 > 

< 1B7> 

< 189> 

< 142> 

< 147> 
< 002 > 
<094> 
<125> 
<0B0> 
<074> 

< 174> 

< 1B2> 
<005> 
<233> 
<065> 
<054> 

< 179> 
< 111 > 
<166> 

< 19B> 
<015> 
<033> 
<049> 
<0B4> 
<09B> 
<098> 

< 183> 

< 146> 
<249> 
<030> 
<03B> 
<00B> 
<021 > 
<206> 
<097> 

< 196> 

< 171> 
<061 > 
<0B4> 
<074> 
<040> 
<009> 
<040> 

< 162> 
<038> 
<089> 
<18B> 

< 19B> 
<208> 

< 121 > 
<074> 
<22B> 
<233> 
<046> 
<216> 

<184> 

<025> 

< 002 > 

<004> 

< 011 > 

< 125> 
< 010 > 
< 012 > 
<052> 
<032> 
<042> 
< 222 > 
< 122 > 
<0B2> 

< 1B0> 

< 190> 
<072> 

< 136> 

< 151 > 
<059> 

< 181 > 
< 012 > 
< 220 > 
<252> 

< 119> 
<0B2> 

< 149> 


8320 IF A*="ENDE" THEN 8340 
B330 ZN=VAL(A*) sGOTO B120 
8340 REM 
B350 REM 

8360 A*="02W3ER5T6Y7U19O0PS-»£ T CHOME > s =" 

8370 FOR 1=0 TO 24 

8380 s A=ASC(MID*(A*,1+1,1)) 

8390 s TN7.(A)=I 

8400 s FOR J =0 TO 8 s V7.(J,A) =2000s NEXT 
8410 NEXT I 
8450 REM 
B455 REM 

B460 FOR 1=0 TO 24sTH(I)=2t(I/12)sNEXT 
8465 REM 
8470 REM 

8472 GS=828s GT=B57sPR=B69s D0=897s CL=959 

8474 NA=50229sGE=50245sPU=50276 

8480 SI=54272sM0=49152sFA=55296 

8482 S0=36864sCI=56320 

8484 F1*=CHR*(154)sFl=14 

8490 F2*=CHR*(5) sF2=l 

8495 KV*(0)="TRIAN "sKF*(0)=" NHNh " 

B500 KV*(1)="SAWUP "s KF*(1)=" KINL " 

8505 KV* (2) ="SAWDWN" s KF* ( 2 ) =" P) 1 BH " 

8510 KV*(3)="SQUARE"sKF*(3) = " OLQL " 

8515 MD*(0)="REBET" sMD*(1)»"RESET" 

8520 MD*(2)="HOLD " sMD*(3)="RUNt2SPACE>" 
8525 BL*(0)=""sBL*(1)=" "sBL*(2)="<2SPACE> 

II 

8530 BL*(3)="{3SPACE>"s BL*(4)="C4SPACE >" 
8535 BL*(5)="C5SPACE>"sBL*< 6 )="C 6 SPACE>" 
8540 REM 
8545 REM 

8550 FOR SN=0 TO 2 

8555 s POKE SI+7*SN+5,10 sAD(SN )=10 
8560 s POKE SI+7*SN+6,13BsSR(SN)=138 
8565 s O(SN)=3+SNs OF(SN)=0s T(SN)=0 
8570 : BF=440»2t(O(SN)—4+(T(SN)—9)/12+OF(S 
N)/1200) 

8572 s BF(SN)=BF*17.0327 

8575 s C(SN)=64 sCI(SN)=65 

8578 : B lIKE 50334+SN, C (SN) 

8580 s S(SN)=(SN=0) 

8505 s SYS DO,MO+7*SN+2,2048 sREM PW 
8590 s POKE MO+7*SN+4,0 sREM PORTA 
8595 NEXT SN 

8600 POKE SI+23,0sRF=0 sREM RES/FILT 

8605 SYS D0,M0+21,0 sREM FILTERFR. 

8610 POKE MO+23,15 sREM MOD/LAUT 

8615 FOR 1=24 TO 72 sREM KSV,LFO,EG AUS 

8620 s POKE MO+I, 0 s NEXT 

8625 EG=0 sREM EB ABKOPPELN 

8627 POKE 50303,0 sREM EG ABKOPPELN(SEQ) 

8630 SU=0 sREM SUSTAIN AUS 

8632 TE=120 sREM TEMPO 

8635 REM 

8640 REM 

8645 FOR NS=0 TO 23 
8650 s GOSUB 7450 
8655 s AD=BO+107*NS+97 

8660 I FOR I=AD TO AD+9sP0KE I,46sNEXT 
8665 NEXT NSsNS=0 
8700 REM 
8B70 REM 

0880 POKE 53280,14sPOKE 532B1.6 
8890 PRINT F1* j"<RVOFF }"5 s POKE 650,12B 
8900 GOSUB 4200 sREM BILD ZEILEN 15-23 
8910 SYS MO+1033sREM MODULATOR AKTIV 
8920 BQ=0sSM=0sSR=0sA=2sRETURN 
9000 REM 
9010 REM 
9020 REM 
9030 REM 

9060 DATA 032,0B9,003,076,174,167,032 
9070 DATA 253,174,032,138,173,032,247 
90B0 DATA 1B3.076,163, 168,032,253, 174 
9090 DATA 032,158,1B3,13B,072,032,253 
9100 DATA 174,032,158,1B3,138,168,104 
9110 DATA 170,024,032,240,255,032,253 
9120 DATA 174,076,160,170,032,253,174 
9130 DATA 032,138,173,032,247,183,165 
9140 DATA 020,133,158,165,021,133,159 
9150 DATA 032,253,174,032,138,173,032 
9160 DATA 247,183,160,000,120,165,020 
9170 DATA 145,158,200,165,021,145,15B 


<069> 

< 184> 

< 179> 

< 189> 
<074> 

< 172> 

< 114> 

< 124> 
<027 > 
<004> 
<130> 

< 135> 

< 114> 

< 145> 
<150> 
<051 > 

< 191 > 
<237 > 

< 174> 
< 002 > 
<025> 
<049> 
<21B> 

< 157> 
<218> 
<091 > 
<203> 

<243> 

<066> 

< 202 > 

< 220 > 

<225> 

<01B> 

<0B0> 

<229> 

<099> 

< 118> 
<20B> 
<016> 
<235> 

< 151 > 
<072> 

< 17B> 
<093> 
<049> 
< 101 > 
<158> 
<20B> 
<037> 

< 161 > 
<066> 
<204> 
<239> 
<059> 
<064> 
< 000 > 

< 190> 
< 000 > 

< 1B6> 
<097> 

< 124> 
<040> 
< 200 > 
<090> 
<004 > 
<239> 

< 10B> 

< 172> 

< 182> 
<192> 
< 202 > 
< 002 > 

< 116> 
<234> 
<030> 
< 110 > 
<249> 
<179> 
<247> 
<045> 
< 020 > 

< 107> 

< 187> 
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MUSIK-KURS 


91B0 DATA 0B8,096,032,247,183,160,000 

< 00 B> 


SPACE >2 •• 

<182> 

9190 DATA 120,177,020,133,099,200,177 

<251 > 

10250 

IF X AND 4 THEN SYS PR, 6 ,34,"IRVSON, 


9200 DATA 020,088,133,09B,162,144,056 

< 194> 


SPACE>3 " 

< 197> 

9210 DATA 076,073,188,169,032,162,000 

<247> 

10300 

AV=10500:SYS GS,AV:RETURN 

<051 > 

9220 DATA 157,000,004,157,000,005,202 

<080 > 

10400 

REM- 

<016> 

9230 DATA 20B,247,162,087,157,000,006 

<143> 

10410 

REM PARAMETERWAHL DURCH CURSOR 

< 10 B> 

9240 DATA 202,016,250,096 

<106> 

10420 

REM RECHTS 

<031 > 

9250 REM 

< 16B> 

10430 

AV=AV+100aIF AV>10900 THEN AV=10500 

<095> 

9260 REM 

< 17B> 

10440 

GOTO 10470 

<053> 

9270 DATA 032,253,174,032,13B,173,032 

<142> 

10450 

REM LINKS 

<154> 

9280 DATA 247,1B3,165,020,133,158,165 

<22B> 

10460 

AV=AV-100:IF AV<10500 THEN AV=10900 

<014> 

9290 DATA 021,133,159,096,032,035,196 

<029> 

10470 

FOR I=PB TO PB+BaPOKE I,F1:NEXT 

<125> 

9300 DATA 160,000,177,158,032,210,255 

9310 DATA 200,192,010,208,246,096,032 

< 194> 
<08B> 

104B0 

10500 

SYS BT,AV 

<057 > 

< 11B> 

REM-- 

9320 DATA 035,196,160,000,177,158,153 

< 129> 

10510 

REM RUN/STOP WAEHLEN 

<132> 

9330 DATA 000,192,200,192,073,208,246 

<052> 

10520 

PB=FA+245 

< 195> 

9340 DATA 177,158,153,183,211,200,192 

<1U> 

10530 

FOR I=PB TO PB+3:POKE I,F2:NEXT 

< 149> 

9350 DATA 094,208,246,177,158,141,023 

< 0 B 2 > 

10540 

PA=C1+12:PV=11000:RETURN 

< 170> 

9360 DATA 212,096,032,035,196,160,000 

<007> 

10600 

REM- 

< 21 B> 

9370 DATA 185,000,192,145,158,200,192 

<001 > 

10610 

REM TEMPO WAEHLEN 

< 139> 

9380 DATA 073,208,246,096 

<042> 

10620 

PB=FA+250 

<021 > 

9400 REM 

<062> 

10630 

FOR I~PB TO PB+3:POKE I,F2:NEXT 

<249> 

9410 REM 

<072> 

10640 

PA=CI+ 6 :PW=TE 

< 01 B> 

9420 DATA C ,C# ,D ,D« ,E ,F ,F# , 8 , G#, A, A#, H 

<211 > 

10650 

PM=500:P1 = 1:P2=10:PV=3400: RETURN 

< 012 > 

9500 REM 

< 164> 

10700 


<062> 

9510 REM 

< 174> 

10710 

REM MODUS WAEHLEN 

< 121 > 

9520 DATA MA, 4000, X , 3500, V, 3600,032 

< 135> 

10720 

PB=FA+256 

< 145> 

9530 DATA MA,3700,160,3800,8,9990,A 

< 130> 

10730 

FOR I=PB TO PB+3:POKE I,F2:NEXT 

<093> 

9540 DATA MA,2550,133,2560,134 

< 152> 

10740 

PA=50345: PW=PEEK(PA) 

< 020 > 

9550 DATA MA,2570,135,2580,136,4500,214 

<203> 

10750 

PV=11100:RETURN 

< 100 > 

9555 DATA MA,5500,L,6000,H,6500,K 

< 220 > 

10800 

REM- 

< 164> 

9560 DATA MA,5000,F,7000,211,7500,D 

< 144> 

10810 

REM SEQNR WAEHLEN 

<207> 

9565 DATA Ml,4654,145,4660,017 

< 124> 

10820 

PB=FA+262 

<233> 

9570 DATA Ml,4666,029,4680,157 

< 115> 

10B30 

FOR I=PB TO PB+2:POKE I,F2:NEXT 

< 187> 

95B0 DATA M2,5160,157,5145,029 

<205> 

10840 

PW=SE:Pl=l:P2=l:PM=1000 

<054> 

9600 DATA M3,5675,145,5690,017 

<137> 

10850 

PV=11200:RETURN 

<075> 

9610 DATA M3,5720,157,5705,029 

<24B> 

10900 

REM- 

< 00 B> 

9620 DATA M4,6410,157,6440,029 

<066> 

10910 

REM SOFT-EG WAEHLEN 

<203> 

9630 DATA M5,6830,145,6850,017 

< 117> 

10920 

PB=FA+26B 

< 101 > 

9640 DATA M5,6870,157,6890,029 

<124> 

10930 

FOR I=PB TO PB+ 8 :POKE I,F2:NEXT 

<079> 

9650 DATA M5,6935,133,134,6975,135,136 

<049> 

10940 

PA=50303:PV=11300:RETURN 

<124> 

9700 DATA M6,7110,A,B,C,7200,*-,7300,N 

< 181 > 

11000 

Rt. - 

< 10B> 

$750 DATA M7,7600,133,7700,134,7900,137 

<079> 

11010 

REM SEQUENCER RESET/STOP/RUN 

<231 > 

9800 DATA MB,10420,029,10450,157 

< 141 > 

11015 

IF NOT SQ THEN RETURN 

<095> 

9900 DATA ENDE 

<237> 

11020 

IF A<133 OR A>135 THEN RETURN 

<234> 

9990 REM 

<146> 

/oioas 

11030 

11040 

ON A—132 GOTO 11040,11060,11080 

REM RESET 

<107> 

< 175> 

lKJlLjloia rsfc.Pl— ——— —— — — — — — 


10010 REM UNTERMENUE SEQUENCER 

< 121 > 

11042 

IF SM THEN SYS 51116:RETURN 

< 197> 

10020 REM=====================“======== 

<046> 

11045 

SYS 51001 

<091 > 

10030 M=B:PV=0:SYB CLaPRINT"{HOME,DOWN}";F 


11050 

IF NOT SR THEN SYS 50966 

<055> 

1 *. 

<005> 

11055 

RETURN 

< 191 > 

10040 PRINT" SEQUENCER"; 

<039> 

11060 

REM STOP 

< 164> 

10045 IF NOT BQ THEN PRINT"{2SPACEJ(KEIN S 


11065 

SYS 50966:SYS PR, 6 ,5,F2*;"STOP" 

<00B> 

□NB VORHANDEN)" 

< 121 > 

11070 

SR=0:IF NOT SU THEN 2140 

<069> 

10050 SYS PR,4,10,"TEMPO MODUS SEQNR<2SPAC 


11075 

RETURN 

<211 > 

EISOFT-EB" 

<034> 

11080 

REM RUN 

<140> 

10060 SYS PR,5,4,“a££££'ff£££££W££e££ - ff£££££.f 


11085 

SYS 51093:SYS PR, 6 ,5,F2*;"RUN " 

< 165> 


< 175> 

11090 

SR=-1:RETURN 

<030> 

10070 SYS PR,6,4,"at4BPACE>aC5SPACE>a<:5SPA 


11100 

REM- 

< 210 > 

CE>at5SPACE>a 1I2BPACEJ2C2SPACE53 3" 

<069> 

11110 

REM SEQUENCER-MODUS (SONB/SEQ) 

< 1B5> 

10080 SYS PR, 7,4, " ?l?£££g.Q.P.P.g£CTJ.G.P.e.g£££.E£g 


11112 

IF NOT SQ THEN RETURN 

< 192> 


< 199> 

11115 

IF A=134 THEN 11130 

< 191 > 

10090 SYS PR,9,1,F2*;"F1";F1*;"<2SPACE>RES 


11120 

IF A-135 THEN 11150 

< 100 > 

ETI2SPACE}++<18SPACE>l" 

<211 > 

11125 

RETURN 

<005> 

10100 SYS PR,10,1, F2$;"F3";Fl#;"{2SPACEJST 
OP{4SPACE >+ {2BPACE >SONB{4SPACE >+ <7SP 


11130 

11135 

REM SONG-MODUS 

SM=0 aPOKE PA,0 

< 167> 
<025> 

ACE>2" 

< 178> 

11140 

SYS PR,6,16,F2*;"SONG" 

< 174> 

10110 SYS PR,U,1,F2*;"F5";F1*;"<2BPACE>RU 
NI5SPACE>-C2SPACE >SEQI5SPACE >— C7SPAC 

11145 

11150 

SYS PR, 6 ,22,"<5SPACE>":RETURN 

REM SEQUENZ-MODUS 

< 139> 
<203> 

E>3" 

<106> 

11155 

SM=-1aPOKE PA,1:SYS PR,6,16,"SEQ " 

< 122 > 

10120 SYS PR,12,1, F2#;"F7";F1#;"{9SPACE>— 

11160 

SYS PR,6,16,F2*;"SEQ " 

< 111 > 


<093> 

11165 

SE=(USR(50312)-USR(50310)>/3+l 

<1B6> 

10130 IF SR THEN 10150 

10140 SYS PR,6,5,"STOP":GOTO 10160 

<12B> 

< 172> 

11170 

SYS PR, 6 ,22,Fl*;RIGHT#(" "+STR*(BE), 
3) 

< 16B> 

10150 SYS PR, 6 ,5,"RUN " 

< 138> 

11175 

RETURN 

<055> 

10160 SYS PR, 6 ,11,RIGHT#(STR*(TE >,3) 

< 152> 

11200 

REM- 

<054> 

10170 IF SM THEN 10190 

<095> 

11210 

REM SEQUENZ-NUMMER 

< 21 B> 

10180 SYS PR,6,16,"SONG"s GOTO 10210 

<255> 

11220 

IF NOT SM THEN RETURN 

< 171 > 

10190 SYS PR,6,16,"SEQ " 

<005> 

11230 

IF PW=0 THEN PW=1:RETURN 

<0B3> 

10200 SYS PR,6,22,RIBHT*(" "+STR*(SE>,3) 

<16B> 

11240 

AD=USR(50310)+(PW-1)*3 

<009> 

10210 REM 

< 110 > 

11250 

IF USR(AD>=0 THEN PW=PW-1:RETURN 

< 167> 

10220 X=PEEK(50303) 

< 110 > 

11260 

SYS DO,50312,AD:SE=PW 

<002> 

10230 IF X AND 1 THEN SYS PR,6,28,"CRVSON, 





SPACE>1 " 

10240 IF X AND 2 THEN SYS PR,6,31,"<RVSON, 

<040> 

Listing 7. Der »Sound-Editor« (Fortsetzung) 
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11270 SYS DO,50314,USR(AD) 

112B0 SYS 51116 sREM NEXTSEQ 
11205 SYS PR,6,22,F2*sRIGHT*<" "+STR*<SE>, 
3) 

11290 RETURN 

11300 REM- 

11310 REM SEQUENCER SOFT—EG-STEUERUNB 
11320 X=PEEK(PA) 

11330 FOR 1=0 TO 2 

11340 s IF A<>133+1 THEN 11420 

11350 s Y=2tl 

11360 s IF (X AND Y> THEN 11400 
11370 5 X=X OR YiPOKE PA,X 
11380 a SYS PR,6,2B+3*I,F2*5"{RVSON}"!I+lr 
•• <LEFT,SPACE>" 

11390 s GOTO 11420 
11400 I X=X AND (255-Y):POKE PA,X 
11410 s SYS PR,6,28+3*1,F2$j1+1;"{LEFT.BPA 
CE>" 

11420 NEXT I»RETURN 

Listing 7. Der »Sound-Editor« (Schluß) 


< 1B5> 

c6dB 

s 

29 

0f 

c9 

0c 

90 

01 60 

0 a 

23 

< 1B9> 

c6e0 

: 

aa 

98 

4a 

4a 

4a 

4a aB 

bd 

c7 


c6eB 

: 

ac 

c4 

B5 

fe 

bd 

ab c4 

C0 

05 

<045> 

c6f 0 

s 

0e 

f0 

06 

46 

f B 

6a cS 

d0 

c9 

< 172> 

<156> 

c6f 8 

s 

f 6 

6c 

d3 

c4 

ae 

B5 c4 

9d 

17 

c700 

s 

00 

d4 

a5 

fe 

9d 

01 d4 

ae 

46 

c70B 

1 

83 

c4 

bd 

9e 

c4 

09 01 

ae 

26 

<066> 

c710 

3 

B5 

c4 

9d 

04 

d4 

60 a9 

00 

d6 

< 14B> 

c71B 

: 

Bd 

0f 

de 

a9 

02 

Bd 0d 

de 

14 

<093> 

c720 

s 

ad 

9e 

c4 

Bd 

00 

d4 Bd 

07 

ea 

<155> 

c72B 

3 

d4 

Bd 

0 e 

d4 

ad 

d7 c4 

Bd 

a9 

<032> 

c730 

: 

14 

03 

ad 

dB 

c4 

Bd 15 

03 

3f 

<058> 

<251 > 

c73B 

3 

60 

7B 

a5 

fe 

4B 

a5 ff 

48 

60 

C740 

8 

ad 

86 

c4 

Bd 

BB 

c4 ad 

B7 

BB 

c74B 

8 

C4 

Bd 

B9 

c4 

20 

ed c5 

90 

77 


c750 

8 

02 

b0 

le 

a9 

0B 

a2 49 

Bd 

3d 

<070> 

c758 

8 

05 

d4 

Be 

06 

d4 

Bd 0c 

d4 

bf 

< 153> 

c760 

3 

Be 

0d 

d4 

Bd 

13 

d4 Be 

14 

96 

<227> 

C76B 

8 

d4 

a9 

0f 

Bd 

IS 

d4 20 

d9 

e3 


c770 

8 

c4 

6B 

B5 

ff 

6B 

B5 fe 

5B 

29 

<250> 

<18B> 

c778 e 60 00 41 00 41 00 53 ff 

Listing 9. »Sequencer.Obj«, die 
Sequenzer-Maschinenroutine 

Ba 


Name s musik 


cB00 c950 


cB 00 : 

cB0B : 

c 810 ! 

cBlB : 
cB20 s 
CB28 s 
c830 ! 
c83B : 
c840 s 
cB4B : 
cB50 t 
cB5B : 
cB60 : 
cB68 B 
cB70 : 
cB7B : 
cB80 : 
cBBB : 
C890 : 
c898 : 
c8a0 : 
cBaB : 
cBb0 : 
cBbB : 
cBc0 : 
c8c8 s 
c 8 d 0 : 
cQdB i 
cBe0 : 
cBbB : 
cBf 0 l 
cBfB i 
c900 : 
c90B : 
c910 E 
c91B s 
c920 i 
C92B : 
c930 s 
c938 s 
c940 e 
c94B e 


15 cB 
00 a4 
cB 00 
cB 27 
00 60 
6d 93 
00 37 
61 ef 
24 Bf 
b9 b5 

Bf 0c 
ef 0c 
ba ba 

00 0 c 

b5 b6 
b3 b6 
b5 30 
bB ba 
bB bB 
61 ba 
93 9a 
dB cB 
cB cB 

0 c 61 

1B ca 
c3 1B 
bb cl 
bB h6 
Bf 4B 
00 ef 
61 Bf 

67 9a 
c5 1B 
0 c 61 

ab a5 
«3 al 
al 9b 
sf ef 
9B 96 
95 93 
60 ef 
60 Ba 


00 31 
cB 00 
00 00 
cB 60 
61 ef 
9a 93 
cB 69 
0 c ba 

0c 6d 

bS b9 
c3 24 
6d c3 
c2 1B 
61 b3 
b5 b3 
b5 b0 
ef 0c 
bb ba 
bb ba 
30 ef 
93 00 
1B 61 
c6 c6 
c6 cB 
0c cl 
c5 0c 
1B c3 
bB 1B 
79 b6 
cB 08 

60 ef 
aS aa 

61 ca 
a5 a6 
a3 ef 
a 0 ef 
3c ef 
Bf 00 
93 ef 
91 ef 
0c 93 
1B aa 


c8 00 

a4 cB 
00 lb 
61 ef 
48 ef 
Ba 93 
cB 9d 
24 ef 
ba b6 
1B 61 
ef 0c 
bb bb 
61 c 2 

b5 b6 
b5 6d 
b0 b5 
bB ba 

bB ba 

b5 b5 
00 0c 

aa cB 
ef 79 
cl 61 
ca cB 
c3 c5 
bb cl 
0c b6 

ba 00 

bl ab 
c9 2c 
ef ef 
aa b5 
ef ef 
aB a6 
a5 a3 
60 ef 
60 95 
0c 61 
96 95 
93 91 
91 Bb 
ef ef 


31 cB 
00 e9 
cB 21 
48 ef 
00 0 c 

9a 93 
cB 18 
0c ba 
b6 ba 
b9 4B 
c3 24 
c3 c2 
30 ef 
b5 b3 
b6 b3 
1B 61 
bb ba 
6d bb 
ba 18 
6d Ba 
bB cB 
dl dl 
cl 00 
c6 cB 
c3 cl 
c3 cl 
bB ba 
1B 61 
61 a6 
c9 1B 
ef 06 
ba ba 

ef 00 
a5 ef 

al ef 
0c a3 
1B b5 
95 96 
93 ef 
90 ef 
3c ef 
ef 00 


B2 

fl 

17 

49 

c3 

4f 

fB 

53 

be 

84 

71 
4f 
fB 
Bc 
6d 
e6 
90 

72 
0f 
Bc 
cb 
d2 
95 
df 
76 
e7 
b9 
eb 
74 
68 
a9 
24 
cl 
39 
4d 
af 
la 
Sa 
bb 

el 

54 

B7 


Listing 8. »Musik«, eine Tonfolge 
zum Testen des Sequenzers 


Name b sequencer.obj 


C4B0 c77a 


c4B0 

: 

4c 

39 

c7 

ff 

00 

00 

00 

ca 

c4BB 

8 

0C 

cB 

a4 

cB 

af 

cB 

C0 

cB 

c490 

8 

eB 

cB 

18 

1B 

18 

00 

00 

00 

c49B 

8 

00 

09 

47 

09 

00 

00 

20 

20 

c4a0 

8 

20 

01 

02 

04 

00 

00 

00 

00 

c4aB 

3 

00 

00 

01 

le 

B6 

1B 

Be 

Bb 

c4b0 

8 

96 

7e 

9f 

fa 

aB 

06 

b3 

ac 

c4bB 

3 

bd 

f 3 

cB 

e6 

d4 

Bf 

el 

fB 

c4c0 

: 

ee 

2e 

fd 

7d 

c6 

7d 

c6 

7d 


f0 

10 

67 

dl 

42 

27 

af 

cl 

63 


c4cB 

: 

c6 

7d 

c6 

7d 

c6 

7d 

c6 

7d 

lc 

c4d0 

s 

c6 

7d 

c6 

fc 

c6 

95 

c5 

31 

3B 

c4dB 

s 

ea 

ad 

14 

03 

Bd 

d7 

c4 

ad 

04 

c4e0 

8 

15 

03 

Bd 

dB 

c4 

a9 

le 

Bd 

22 

c4eB 

: 

14 

03 

a9 

c5 

Bd 

15 

03 

a9 

82 

c4f 0 


e0 

Bd 

06 

de 

a9 

2e 

Bd 

07 

04 

c4f B 

8 

de 

a9 

B2 

Bd 

0d 

de 

a9 

11 

7c 

c500 

3 

Bd 

0f 

de 

60 

ae 

B4 

c4 

bd 

f 6 

C50B 

8 

Bd 

c4 

85 

ff 

bd 

Bc 

c4 

B5 

b7 

c510 

8 

fe 

aB 

00 

bl 

f e 

fe 

Bc 

c4 

3B 

c51B 

: 

dB 

03 

f e 

Bd 

c4 

60 

ad 

0d 

fb 

C520 

8 

de 

4B 

29 

02 

d0 

03 

4c 

al 

45 

c528 

8 

c5 

a5 

f e 

48 

a5 

ff 

4B 

a5 

4f 

c530 


01 

29 

f e 

B5 

01 

ad 

0d 

de 

a 2 

c53B 

: 

a2 

0e 

Be 

85 

c4 

a 2 

04 

Be 

c4 

c540 

C54B 

8 

B4 

4d 

§1 £ 

3 

t31 

68 

dB 

c550 

: 

B4 

c4 

ce 

B4 

c4 

ad 

B5 

c4 

d4 

c55B 

: 

3B 

e9 

07 

Bd 

85 

c4 

4c 

47 

37 

c560 

8 

c5 

ad 

a7 

c4 

c9 

07 

dB 

0c 

ae 

c568 

8 

ad 

a9 

c4 

d0 

07 

20 

df 

C5 

bl 

C570 

3 

90 

c6 

b0 

le 

a 2 

00 

bd 

a4 

be 

C578 

8 

c4 

f0 

03 

20 

b3 

c5 

a2 

01 

6f 

C5B0 

8 

bd 

a4 

c4 

f0 

03 

20 

b3 

c3 

6a 

c5BB 

8 

a 2 

02 

bd 

a4 

c4 

f0 

03 

20 

4f 

C590 

S 

b3 

c5 

6c 

dS 

c4 

a5 

01 

.09 

Bb 

C59B 

8 

01 

65 

01 

6B 

B5 

ff 

6B 

B5 

ae 

c5a0 

8 

fe 

6B 

0d 

0d 

de 

29 

01 

f0 

b4 

c5aB 

8 

04 

5B 

6c 

d7 

c4 

68 

aB 

68 

fl 

c5b0 

8 

aa 

6B 

40 

Be 

B3 

c4 

Ba 

0 a 

0d 

c5bB 

8 

Bd 

84 

c4 

Ba 

0 a 

3B 

ed 

83 

lb 

c5c0 

8 

c4 

Bd 

B3 

c4 

ad 

Ba 

c4 

85 

92 

cScB 

8 

fe 

ad 

Bb 

c4 

B5 

ff 

ac 

B4 

2 c 

c5d0 

8 

c4 

bl 

f e 

99 

Bc 

c4 

cB 

bl 

d5 

c5dB 

8 

fe 

99 

Bc 

c4 

4c 

7d 

c6 

ad 

86 

c5e0 

8 

BB 

c4 

18 

69 

03 

Bd 

BS 

c4 

46 

c5eB 

3 

90 

03 

ee 

B9 

c4 

ad 

BB 

c4 

4c 

c5f 0 

8 

B5 

fe 

ad 

89 

c4 

B5 

ff 

a 0 

4b 

c5f B 

3 

00 

bl 

fe 

Bd 

Ba 

c4 

cB 

bl 

97 

u600 

8 

fe 

f0 

31 

Bd 

Bb 

c4 

B5 

ff 

69 

c 608 

8 

ad 

Ba 

c4 

85 

fe 

aB 

00 

bl 

34 

c6 10 

8 

fe 

99 

Bc 

c4 

cB 

C0 

06 

dB 

o3 

c 61 B 

: 

f 6 

a9 

00 

Bd 

9B 

c4 

Bd 

99 

ae 

c 620 

8 

c4 

Bd 

9a 

c4 

Bd 

a7 

c4 

a9 

66 

C62B 

3 

01 

Bd 

9b 

c4 

Bd 

9c 

c4 

Bd 

5b 

C630 

3 

9d 

c4 

1B 

60 

ad 

aa 

c4 

f0 

67 

c63B 

3 

01 

ad 

B6 

c4 

Bd 

8B 

c4 

ad 

e3 

c640 

3 

B7 

c4 

Bd 

B9 

c4 

4c 

ed 

c5 

b0 

c64B 

8 

20 

16 

c7 

38 

60 

ae 

B3 

c4 

7f 

c650 

8 

bd 

9B 

c4 

f0 

22 

da 

9B 

c4 

ad 

c65B 

8 

f0 

01 

60 

ad 

aB 

c4 

dB 

0b 

al 

c660 

8 

bd 

9e 

c4 

29 

fe 

aa 

B5 

c4 

cB 

c66B 

8 

9d 

04 

d4 

ae 

B3 

c4 

bd 

95 

93 

c670 

3 

c4 

fe 

0a 

9d 

9b 

c4 

60 

de 

02 

c67B 

8 

9b 

c4 

f0 

Bl 

60 

ae 

83 

c4 

e5 

c6B0 

3 

a9 

00 

9d 

a4 

c4 

20 

04 

c5 

0B 

c6BB 

3 

c9 

OB 

d0 

12 

ae 

B3 

c4 

ad 

3d 

C690 

8 

a7 

c4 

ld 

al 

c4 

Bd 

a7 

c4 

f 6 

c69B 

! 

a9 

01 

9d 

a4 

c4 

60 

10 

15 

77 

c6a0 

8 

c9 

fB 

90 

29 

29 

07 

Ba 

aa 

77 

c6aB 

8 

bd 

c3 

c4 

B5 

fe 

bd 

c4 

c4 

a3 

c 6 b 0 

8 

B5 

ff 

6c 

fe 

00 

c9 

61 

b0 

65 

c6bB 

8 

09 

ae 

B3 

c4 

9d 

92 

c4 

4c 

ac 

c 6 c 0 

3 

7d 

c6 

e9 

61 

ae 

B3 

c4 

9d 

9c 

c6c8 


95 

c4 

4c 

7d 

c6 

aB 

ae 

83 

f 5 

c 6 d 0 

3 

c4 

bd 

92 

c4 

9d 

9B 

c4 

98 

93 


Name 


kobold.song 



9a0B 9b7S 

9a08 


5f 

9b 

01 

61 

ef 

00 

00 

0a 

b4 

9a 10 

8 

9a 

0 a 

9a 

15 

9a 

0c 

6d 

93 

df 

9a 1B 

8 

9a 

93 

Ba 

93 

9a 

93 

00 

25 

21 

9a20 

8 

9a 

5f 

9a 

9B 

9a 

1B 

61 

ef 

f 3 

9a2B 

8 

0c 

61 

ba 

24 

61 

ef 

0c 

61 

a0 

9a30 

8 

ba 

24 

61 

ef 

0c 

6d 

ba 

b6 

d7 

9a3B 

8 

b6 

ba 

b9 

b5 

b5 

b9 

18 

79 

ed 

9a40 

: 

b9 

ef 

0C 

61 

c3 

24 

61 

ef 

e3 

9a4B 

8 

0c 

61 

c3 

24 

61 

ef 

0c 

6d 

lb 

9a50 

3 

c3 

bb 

bb 

c3 

c 2 

ba 

ba 

c2 

ca 

9a5B 

8 

1B 

61 

c2 

30 

61 

ef 

00 

0 c 

B5 

9a60 


61 

b3 

bS 

b6 

b5 

b3 

b5 

b6 

lc 

9a6B 


b5 

b3 

b5 

0c 

6d 

b6 

b3 

b3 

a8 

9a70 

3 

b6 

bS 

b0 

b0 

b5 

18 

79 

b5 

b0 

9a7B 

8 

0c 

6d 

Bf 

0C 

61 

bB 

ba 

bb 

f 6 

9aB0 

8 

ba 

bB 

ba 

bb 

ba 

bB 

ba 

0c 

31 

9aBB 

8 

6d 

bb 

bB 

bB 

bb 

ba 

b5 

b5 

ec 

9a90 

: 

ba 

18 

79 

ba 

0c 

6d 

ef 

00 

f8 

9a9B 


0c 

6d 

Ba 

93 

9a 

93 

00 

a5 

01 

9aa0 

3 

9a 

bB 

9a 

db 

9a 

0c 

6d 

ef 

5B 

9aaB 

3 

dl 

ei 

dl 

ef 

cB 

ef 

cB 

ef 

f 2 

9ab0 

3 

c6 

ei 

c6 

ef 

Cl 

ef 

cl 

00 

C0 

9abB 

8 

0c 

61 

c6 

cB 

ca 

cB 

c6 

cB 

df 

9ac0 

8 

ca 

ef 

cl 

c3 

c5 

c3 

cl 

c3 

74 

9acB 

8 

c5 

ef 

bb 

cl 

c3 

cl 

bb 

cl 

69 

9ad0 

3 

c3 

ef 

b6 

bB 

ba 

bB 

b6 

bB 

0d 

9adB 

8 

ba 

ef 

00 

1B 

61 

ef 

30 

61 

a6 

9ae0 

3 

b6 

ef 

bl 

ef 

ab 

ef 

a6 

1B 

fd 

9aeB 

3 

61 

Bf 

00 

fl 

9a 

0b 

9b 

35 

5a 

9af 0 

8 

9b 

1B 

61 

ef 

60 

61 

ef 

ef 

9e 

9af B 

8 

ef 

ef 

0 c 

61 

9a 

a5 

aa 

aa 

e5 

9b00 

8 

b5 

ba 

ba 

c5 

1B 

61 

ca 

4B 

c2 

9b 0B 

8 

61 

ef 

00 

0c 

61 

a3 

a6 

aB 

12 

9b 10 

8 

a6 

a5 

ef 

a6 

a5 

a3 

ef 

a5 

de 

9b 1B 

8 

a3 

al 

ef 

a3 

al 

a0 

ef 

60 

9c 

9b 20 

3 

61 

ef 

0c 

61 

a3 

al 

9b 

Bf 

3e 

9b2B 

8 

30 

61 

ef 

60 

61 

95 

1B 

61 

f 7 

9b30 

3 

b5 

4B 

61 

ef 

00 

0c 

61 

95 

71 

9b 3B 

3 

96 

9B 

96 

95 

ef 

96 

95 

93 

a4 

9b40 

3 

ef 

95 

93 

91 

ef 

93 

91 

90 

14 

9b4B 

8 

ef 

60 

61 

ef 

0 c 

61 

93 

91 

fb 

9b 50 

8 

Bb 

ef 

30 

61 

Bf 

60 

61 

B5 

9e 

9b5B 

8 

1B 

61 

a5 

48 

61 

ef 

00 

0f 

47 

9b60 

8 

9a 

00 

lf 

9a 

00 

lf 

9a 

00 

79 

9b6B 

3 

9f 

9a 

00 

9f 

9a 

00 

eb 

9a 

d7 

9b 70 

■ 

00 

00 

00 

00 

00 

00 

00 

00 

71 

Listing 10. 

. »Kobold.Song« 

, ein 


Beispiel-Musikstück zu Listing 9. 


Name 

8 

seq 

.erg.obj 



c739 cB55 

c739 

3 

7B 

a5 

fe 

48 

a5 

ff 

4B 

a9 

lb 

c741 

8 

ea 

a2 

02 

9d 

35 

c5 

9d 

a 2 

ee 

c749 

3 

c5 

bd 

92 

c7 

9d 

5b 

c6 

ca 

t0 

c751 

8 

10 

fl 

ad 

B6 

c4 

Bd 

BB 

c4 

fa 

c759 

8 

ad 

B7 

c4 

Bd 

89 

c4 

20 

ed 

CB 

c761 

8 

c5 

a9 

g2 

Bd 

d7 

c4 

a9 

c3 

37 


122 


SONDERHEFT 11 






















C 64 


MUSIK-KURS 


c769 

B 

Bd 

dB 

c4 

a9 

le 

Bd 

14 

03 

6d 

c771 

: 

a9 

c5 

Bd 

15 

03 

a9 

d7 

Bd 

fb 

c779 

x 

d3 

c4 

a9 

c7 

Bd 

d4 

c4 

a9 

f7 

c7Bl 

: 

BZ 

Bd 

0d 

de 

a9 

11 

Bd 

0f 

20 

c7B9 

i 

de 

6B 

B5 

ff 

6B 

B5 

io 

58 

5a 

C791 

X 

60 

4c 

be 

c7 

78 

a9 

1b 

Bd 

2B 

c799 

t 

14 

03 

a9 

c5 

Bd 

15 

03 

a9 

33 

c7al 

X 

B2 

Bd 

Md 

de 

a9 

11 

Bd 

0f 

40 

c7a9 

X 

de 

SB 

60 

78 

aS 

f o 

48 

aS 

97 

c7bl 

X 

ff 

4B 

20 

ed 

c5 

6B 

B5 

ff 

50 

c7b9 

X 

68 

85 

f e 

5B 

60 

ae 

B3 

c4 

c 2 

c7c 1 

X 

bd 

al 

c4 

2c 

7f 

c4 

f0 

08 

f 7 

c7c9 

X 

ad 

48 

C0 

29 

fe 

Bd 

48 

C0 

Bf 

c7d 1 

I 

ad 

aB 

c4 

4c 

5b 

c6 

ae 

B5 

6f 

c7d9 

X 

c4 

9d 

00 

c:0 

a5 

f B 

9d 

01 

4f 

c7ol 

X 

C0 

aS 

fb 

48 

a5 

fc 

4B 

a5 

2 a 

c7e9 

X 

fd 

4B 

B6 

fa 

20 

6a 

c2 

ao 

49 


c7f 1 

X 

83 

c4 

bd 

1B 

C0 

d0 

12 

ae 

Bl 

c7f 9 

3 

85 

c4 

bd 

05 

C0 

9d 

00 

d4 

93 

cB01 

3 

bd 

06 

C0 

9d 

01 

d4 

4c 

2 c 

e5 

CB09 

3 

cB 

20 

43 

c2 

ae 

B5 

c4 

bd 

b0 

cBll 

X 

06 

C0 

85 

fd 

20 

a6 

C0 

ae 

30 

cB19 

3 

85 

c4 

1B 

bd 

05 

C0 

65 

fb 

a2 

cB21 

X 

9d 

00 

d4 

bd 

06 

C0 

65 

fc 

al 

cB29 

3 

9d 

01 

d4 

ae 

83 

c4 

bd 

al 

ea 

cB31 

3 

c4 

2c 

7f 

c4 

f0 

0B 

ad 

4B 

la 

cB39 

X 

C0 

09 

01 

Bd 

4B 

C0 

bd 

9e 

2f 

cB41 

: 

c4 

09 

01 

ae 

B5 

c4 

9d 

04 

9d 

cB49 

3 

d4 

68 

B5 

fd 

6B 

B5 

fc 

68 

ea 

cB51 

3 

85 

fb 

60 

00 

0c 

c3 

24 

Bf 

3b 


Listing 11. »Seq.Erg.ObJ« (Schluß) 


Name : test.song 9a0B 9a5b 


7a0Q 

: 

4e 

9a 

01 

61 

ef 

00 

00 

15 

39 

9a 10 

3 

9a 

0 a 

9a 

0 a 

9a 

06 

67 

b0 

70 

9a 1B 

: 

b2 

b*l 

b5 

b7 

b9 

bb 

C0 

c 0 

B7 

9a20 

; 

ba 

bB 

b7 

b5 

b3 

b2 

b0 

00 

6e 

9a2B 


2 e 

9a 

3B 

9a 

43 

9a 

12 

67 

25 

9 a 30 

: 

C0 

C0 

C0 

bb 

4B 

79 

c 0 

00 

4b 

9a 3B 

: 

12 

67 

b7 

b9 

24 

6d 

b7 

4B 

40 

9a40 

s 

79 

b7 

00 

12 

67 

b4 

b5 

24 

12 

9a4B 

: 

6d 

b2 

48 

79 

b4 

00 

0f 

9a 

0c 

9a50 

X 

00 

0f 

9a 

00 

2B 

9a 

00 

00 

d6 

9a5B 

3 

00 

00 

00 

30 

61 

ef 

00 

0c 

0c 


Listing 12. »Test.Song«, zum Testen 
des Sequenzers 


1000 

REM **###*********#«**#*#*###***** 

<036> 

2280 GOTO 2500 sREM KEINE NOTE 

<089 > 

1010 

REM * 

# 

<041 > 

2300 R*=RIGHT«(A*,1)sO=VAL(R*> 

<204> 

1020 

REM * LESEPROGRAMM 

# 

<07B> 

2310 IF 0=0 AND R*<>"0" THEN 2420 

<008> 

1030 

REM * FUER SEQUENCER-DATEN 


<220> 

2320 IF 0>6 THEN 2420 

<005> 

1040 

REM * 

* 

<073> 

2330 IF L=2 THEN 3000 

<255> 

1050 

REM * ERZEUGT AUS DATA—ZEILEN 

* 

<101> 

2340 M*=MID*(A*,2,1> 

< 151 > 

1060 

REM * EINEN ABSOLUT LADBAREN 

* 

<205> 

2350 IF M*="#" THEN N=N+1:G0T0 3000 

<157> 

1070 

REM * DATENSATZ FUER SEQUENCER 

* 

<064> 

2360 IF M*="B" THEN N=N-lsGOTO 3000 

<087 > 

1080 

REM * 

# 

< 113> 

2380 F*="NUR "+L*+"#"+R*+" ODER "+L*+"B' 

+R 

1090 

REM * THOMAS KRAETZIG SEP 85 

# 

<000> 

* 

<039> 

1100 

REM * 

* 

<133> 

2390 F*=F*+" ODER "+L*+R*+" MOEGLICH" 

<005> 

1110 

REM ****************************** 

< 14B> 

2400 GOTO 5000 

<0B6> 

1111 

REM 


< 157> 

2420 F*="OKTAVBEREICH 0-6" 

<030> 

1112 

REM SPEICHERENDE HERUNTERSETZEN 


<060> 

2430 GOTO 5000 

< 116> 

1115 

REM 


< 161 > 

2500 REM 

<020> 

1117 

POKE 56,144 


<238> 

2510 REM NACH / ODER - SUCHEN 

< 112> 

1120 

REM 


< 166> 

2520 REM 

<040> 

1130 

REM KONSTANTEN UND 


<096> 

2530 M*=MID*(A*,2,1) 

<0B5> 

1140 

REM VARIABLEN MIT VORBESETZUNGEN 


< 1B7> 

2540 IF M*< >"/" AND M*< >"-" THEN 2560 

<096> 

1150 

REM 


< 196> 

2550 R*=RIGHT*(A*,L-2>:GOTO 2600 

<003> 

1160 

DIM SF (200) : REM SEQUENZFOLGELISTE 

<159> 

2560 M*=MID*(A*,3,1> 

<121> 

1170 

DIM SA(200) :REM SEGUENZADRESSENL. 

<002> 

2570 IF “•;<>"/" AND M*<>"-" THEN 5000 

< 136> 

1180 

DIM TA(3) !REM TRACKADRESSEN 


<010> 

2580 L*=LEFT*(A*,2):R*=RIGUT*(A*,L-3) 

< 122> 

1190 

REM NOTENNAMEN 


< 103> 

2600 REM 

< 122> 

1200 

NN*="CCDDEFFGGAAH" 


< 191 > 

2610 REM ZAEHLER UND NENNER UNTERSUCHEN 

< 155> 

1210 

DN*="" :REM DATEINAME 


<064> 

2620 REM 

<142> 

1220 

S=1 :REM AKTUELLE SEQUENZ 

<217> 

2630 Z=VAL(L*> 

<007 > 

1230 

T=1 :REM AKTUELLER TRACK 


< 157> 

2640 IF Z>0 AND Z<99 THEN 2670 

<177> 

1240 

AD=0 :REM ALLG. ADRESSE 


< 119> 

2650 F*=“ZAEHLER-BEREICH 1 BIS 99" 

<044> 

1250 

SA=39432 s REM *9A08 


<062> 

2660 GOTO 5000 

<092> 

1260 

Q=96 :REM QUANTISIERUNG 


<248> 

2670 N=VAL(R*> 

< 128> 

1270 

R=0.5 5 REM GATE ON/LAENGE 


<170> 

2680 IF N>0 OR M*="-" THEN 2710 

<103> 

1280 

NL=l/4 :REM NOTENLAENGE 


< 191 > 

2690 F*=“NENNER MUSS GROESSER 0 SEIN" 

<200> 

1290 

L=0 : REM STRINGLAENGE 


<031 > 

2700 GOTO 5000 

< 132> 

1300 

SV=12*4096 sREM SAVE-ROUTINE 


<214> 

2710 IF M*="/" THEN 3200 sREM ZEIT 

<20B> 

1500 

REM - 


<096> 

2720 IF M*="-" THEN 3400 sREM ON/OFF 

< 139> 

1510 

REM PROGRAMMSTART 


< 141 > 

^1 1 AV 

2730 GOTO 5000 

3000 RFM - 

<162> 

<072> 

1520 

1530 

REM — — - - -*“ 

REM SAVE-MASgHXNENPRÜBRAMM 


<107> 

3010 REM NOTE (TONNUMMER N OKTAVE 0) 

< 197> 

1540 

FQR 1=0 TO 17 


< 137> 

3020 REM - 

<092> 

1550 

READ X B POKE BV+I.XsNEXT I 


< 129> 

3030 IF N=0 THEN N=12s0=0-1 

< 157> 

2020 

REM 


<04B> 

3040 IF N=13 THEN N=i s0=0+1 

< 113> 

2030 

REM DUMMY-TRACK ERZEUGEN 


<040> 

3050 POKE AD,128+16*0+N—1s AD=AD+1 

<051 > 

2040 

AD=SA+2 


< 153> 

3060 GDTO 2110 

<006> 

2050 

POKE AD ,1 5POKE AD+1,97 


<172> 

3100 REM - 

< 174> 

2060 

POKE AD+2,239 : POKE AD+3,0 


<094> 

3110 REM PAUSE 

<050> 

2070 

H0=INT(AD/256)lL0=AD-256*H0 


< 191 > 

3120 REM - 

< 194> 

2080 

AD=AD+4sA*=" " 


<215> 

3130 POKE AD,239IAD=AD+1sGOTO 2110 

<214> 

2100 

REM NAECHSTES DATUM LESEN 


<042> 

3200 REM - 

<01B> 

2110 

PRINT" “ |A4 5 3 READ M 


<201 > 

3210 REM ZEIT (NOTENDAUER) 

<178> 

2120 

L=LEN(A4)iL*=LEFT*(A*,1) 


<039> 

3220 REM - 

<03ö> 

2150 

IF A*="P" THEN 3100 


< 197> 

3230 T=INT(Q*Z/N> sREM GESAMTZEIT 

<089> 

2160 

IF A*="PAUSE" THEN 3100 


<10B> 

3240 AN=INT(R*Q*Z/N)s REM GATE-ON-ZEIT 

<099> 

2165 

IF A#="TRACK" THEN 3B00 


<20B> 

3250 OF=T—AN sREM GATE-OFF-ZEIT 

<093> 

2170 

IF A4="SEQUENZ" THEN 4000 


<0B0> 

3260 IF AN<=96 THEN 3290 

<041 > 

2175 

IF A4="SEQUENZFOLGE " THEN 3600 


<018> 

3270 F*="GATE-ON-ZEIT ZU GROBS" 

< 154> 

2190 

IF A*="ENDE" THEN 4300 


< 16B> 

3280 GOTO 5000 

<204> 

2200 

REM 


<230> 

3290 IF OF<=30 THEN 3320 

< 19B> 

2210 

REM NACH NOTENNAMEN SUCHEN 


< 184> 

3300 F*="GATE—OFF—ZEIT ZU GROSS" 

<1B5> 

2220 

REM 


<250> 



2230 

IF L=1 THEN 5000 


< 122 > 



2240 

IF L>3 THEN 2500 


<056> 



2250 

N=1 


< 187> 



2260 

IF L*=MID*CNN*,N,1> THEN 2300 


<081 > 



2270 

N=N+1 : IF N<13 THEN 2260 


<062> 

Listing 13. Das Leseprogramm für Sequenzer-Daten 
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3310 BOTO 5000 <234> 

3320 POKE AD,AN:AD=AD+1 <24B> 

3330 POKE AD,OF+97:AD=AD+1 <0B1> 

3340 BOTO 2110 <034> 

3400 REM- <220> 

3410 REM VERHAELTNIS BÄTE—ON/BESAMTZEIT <120> 
3420 REM (Z/N « BÄTE ON/BATE-OFF) <103> 

3430 REM- <250> 

3440 R=Z/<Z+N)> BOTO 2110 <166> 

3600 REM- <166> 

3610 REM BEQUENZFOLBE <021> 

3620 REM- <1B6> 

3630 PRINT:PRINT:AS=0 <10B> 

3640 PRINT" ";A*;:READ M : A= INT(VAL< M )) <146> 

3650 IF A=0 THEN 3670 <173> 

3660 SF(AS)=A:AS=AB-t-l:ßOTO 3640 <001 > 

3670 IF A#<>"0" THEN 3690 <032> 

36B0 PRINT" 0" :READ A*:BOTO 2120 <053> 

3690 F*="LISTE MUSS MIT 0 ABBESCHLOBSEN SE 

IN" <133> 

3700 BOTO 5000 <116> 

3B00 REM- < 110 > 

3B10 REM TRACK <160> 

3B20 REM-- < 130> 

3B30 PRINT:PRINT:PRINT A*; <201> 

3840 READ A*:A=INT<VAL<A*>) <075> 

3850 IF A>=1 AND A<=3 THEN 3BB0 <057> 

3B60 F*="NUR 1,2,3 ZULAESBIB" <050> 

3870 BOTO 5000 <032> 

3BB0 PRINT A:T=A <047> 

3890 IF NS THEN NB=0:BOTO 3910 <0B9> 

3900 POKE AD,0:AD=AD+1 <054> 

3910 HI=INT(AD/256):L0=AD-256*HI <074> 

3920 POKE SA(S)+(T-1)*2,L0 <012> 

3930 POKE BA(S)+(T—1)*2+1,HI <167> 

3940 READ A*:BOTO 2120 <003> 

4000 REM- <056> 

4010 REM SEQUENZ <023> 

4020 REM- <076> 

4030 PRINT:PRINT:PRINT:PRINT A»; <250> 

4040 READ A*:A=INT(VAL<A*>) <019> 

4050 IF A>=1 AND A<=200 THEN 40B0 <043> 

4060 F*="NUR 1-200 ZULAESSIB" <223> 

4070 BOTO 5000 <232> 

4080 PRINT A:S=A <215> 

4090 POKE AD,0:AD=AD+1:NS=-1:SA(S)=AD <15?> 

4100 REM TRACK-ZEIBER AUF DUMMY-TRACK <03S> 

4110 REM INITIALISIEREN <2U2> 

4120 POKE AD ,L0:POKE AD+1,H0 <0S3> 

4130 POKE AD+2,L0:POKE AD+3.H0 <144> 

4140 POKE AD+4,L0:POKE AD+5.H0 <02B> 

4150 AD=AD +6 <10B> 

4160 READ A*:BOTO 2120 <225> 

4300 REM- <102> 

4310 REM ENDE <027> 

4320 REM SEQUENZFOLBELISTE AUFBAUEN <0B1> 

4330 REM- < 132> 

4340 PRINT:PRINT A* <021> 

4350 POKE AD,0:AD=AD+1 <250> 

4360 HI=INT(AD/256):L0=AD-256*HI <016> 

4370 POKE SA,LO:POKE SA+l.HI <135> 

43B0 FOR 1=0 TO AS-1 <246> 

4390 : X=SA(SF(I)):IF X>0 THEN 4410 <163> 

4400 : PRINT"SEQUENZ";I;"NICHT DEFINIERT": 

BOTO 4420 <177> 

4410 : HI=INT(X/256):LO=X—256*HI <073> 

4420 : POKE AD+3*I,L0 <045> 

4430 : POKE AD+3*I+1,HI <129> 

4440 : POKE AD+3*I+2,0 <062> 

4450 NEXT I <216> 

4460 FOR 1=0 TO 2:P0KE AD+3*AS+I,0:NEXT <212> 
4470 AD=AD+3*AS+3 <179> 

4500 REM <244> 

4510 REM BEREICH SA-AD AUF DISK <0B2> 

4520 REM <00B> 

4530 INPUT"ABSPEICHERN (J/N) ";A* <211> 

4540 IF A*<>"J" THEN END <123> 

4550 INPUT"DATEINAME<9SPACE>";DN* <164> 

4560 AH=INT(SA/256):AL=SA-256*AH <079> 

4570 EH=INT(AD/256):EL=AD-256*EH <061> 

4580 OPEN 1,8,1,DN$ <135> 

4590 POKE 252,AL:POKE 253,AH <15B> 

4600 POKE 780,252 <119> 


4610 POKE 781,EL:POKE 782,EH <040> 

4620 SYS SV:CLOSE 1 <176> 

4630 END <060> 

5000 REM- <040> 

5010 REM FEHLER <140> 

5020 REM--- <060> 

5030 PRINT:PRINT <156> 

5040 PRINT"FEHLERHAFTES DATUM: ";A* <023> 

5050 IF F*<>"" THEN PRINT F* <192> 

5060 PRINT. M- .F*="":BOTO 2110 <151> 

7000 REM- < 0OB> 

7010 REM SAVE-ROUTINE <202> 

7020 REM- <02B> 

7030 DATA 072,165,001,041,254,133,001 <250> 

7040 DATA 104,032,216,255,165,001,009 <191> 

7050 DATA 001,133,001,096 <214> 

8000 REM- .<248> 

8010 REM MUSIKSTUECK <253> 

Q020 REM (EDVARD BRIEB KOBOLD) <056> 

8030 REM- <022> 

8100 DATA SEQUENZ,1 <058> 

8110 DATA TRACK,3 <240> 

8120 DATA 1—1,1/4,EB1,HB1,EB1,HB0 <171> 

B130 DATA EB1,HB1,EB1 <121> 

8140 REM <072> 

8200 DATA SEQUENZ,2 <055> 

B210 DATA TRACK,1 <145> 

8220 DATA 1-0,1/4,P,1/8,HB3,3/B,P <13B> 

8230 DATA 1/B,HB3,3/B,P,1-1,1/4 <092> 

8240 DATA HB3,BB3,BB3,HB3,A3,F3,F3,A3 <231> 

8250 DATA 1/2,A3,P,1-0 <236> 

8260 DATA 1/8,EB4,3/8,P,1/8.EB4,3/8,P <107> 

8270 DATA 1-1,1/4,EB4,CB4,CB4,EB4 <130> 

B2B0 DATA D4,HB3,HB3,D4,1-0,1/4,D4 <067> 

8290 DATA 1/2,P <098> 

8300 DATA TRACK,2 <236> 

8310 DATA 1—0,1/8,EB3,F3 <174> 

8320 DATA BB3,F3,EB3,F3,BB3,F3,EB3,F3 <136> 

8330 DATA 1-1,1/4,BB3,EB3,EB3,BB3 <173> 

8340 DATA F3,C3,C3,F3,1/2,F3,1/4,P <0B4> 

8350 DATA 1-0,1/B,AB3,HB3 <002> 

8360 CB4,HB3,AB3,HB3 <137> 

8370 DATA CB4,HB3,AB3,HB3,1-1,1/4 <199> 

8380 DATA CB4,AB3,AB3,CB4,HB3,F3,F3,HB3 <132> 

8390 DATA 1/2,HB3,1/4,P <137> 

8400 DATA TRACK,3 <0B1> 

8410 DATA 1—1,1/4,HB0,EB1,HB1,EB1 <057> 

8420 REM <003> 

8430 DATA SEQUENZ,3 <033> 

8440 DATA TRACK,1 <119> 

8450 DATA 1-1,1/4,P <063> 

8460 DATA DB5,P,DB5,P,AB4,P,AB4,P <14B> 

8470 DATA BB4,P,BB4,P,DB4,P,DB4 <170> 

8480 DATA TRACK,2 <161> 

8490 DATA 1-0,1/B <029> 

8500 DATA BB4,AB4,HB4,AB4,BB4,AB4,HB4,P <102> 

8510 DATA DB4,EB4,F4,EB4,DB4,EB4,F4,P <200> 

8520 DATA CB4,DB4,EB4,DB4,CB4,DB4,EB4,P <144> 

8530 DATA BB3,AB3,HB3,AB3,BB3,AB3,HB3,P <254> 

8540 DATA TRACK,3 <162> 

8550 DATA 1-0,1/4,P,1/2 <079> 

8560 DATA BB3,P,DB3,P,CB3,P,BB2,1/4,P <105> 

8570 REM <250> 

B600 DATA SEQUENZ,4 <074> 

8610 DATA TRACK,1 <22B> 

8620 DATA 1-0,1/4,P,1/1,P,P,P,P,1/8 <028> 

8630 DATA HB1,F2,HB2,HB2,F3,HB3,HB3,F4 <125> 

8640 DATA 1/4,HB4,3/4,P <222> 

8650 DATA TRACK,2 <014> 

8660 DATA 1-0,1/8,F2,BB2,AB2,BB2,F2,P <126> 

8670 DATA BB2,F2,EB2,P,F2,EB2,DB2,P <UB> 

8680 DATA EB2,DB2,C2,P,1/1,P,1/B <14B> 

8690 DATA EB2,DB2,CB2,P,1/2,P <1B3> 

8700 DATA 1/1,Fl,1/4,F4,3/4,P <015> 

B710 DATA TRACK,3 <078> 

8720 DATA 1-0,1/8,Fl,BB1,AB1,BB1,F1,P <146> 

8730 DATA BB1,F1,EB1,P,F1,EB1,DB1,P <095> 

8740 DATA EB1,DB1,C1,P,1/1,P,1/8 <160> 

8750 DATA EB1,DB1,CB1,P,1/2,P <179> 

8760 DATA 1/I,F0,1/4,F2,3/4,P <075> 

8800 REM <226> 

8810 DATA SEQUENZFOLBE,1,2,2,3,3,4,0 <110> 

8820 DATA ENDE <173> 


Listing 13. Das Leseprogramm für Sequenzer-Daten (Schluß) 
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MUSIK 


MIDI - Wie von 
Geisterhand... 

Kein Mensch in der Nähe, und trotzdem spielt ein 
Synthesizer, wie von Geisterhand bedient, ein 
Musikstück vor. Ist das Hexerei? Nein, hier ist ein 
MIDI-System im Einsatz. Was es damit auf sich 
hat, erfahren Sie im folgenden Artikel. 

D as Wort »MIDI« macht in letzter Zeit immer häufiger die 
Runde unter den Computeranwendern. Was jedoch hat 
es damit auf sich? Mit MIDI wird eine serielle Computer- 
Schnittstelle bezeichnet, die das Übertragen von Musikdaten 
beim Einsatz von Synthesizern ermöglicht. Der folgende Arti¬ 
kel ist jedoch auch für die Nichtmusiker interessant, da man 
MIDI nicht nur für Musik sondern auch für die Übertragung 
von Daten zwischen mehreren Computern verwenden kann. 
Denn auch die »Musikdaten« sind nur ganz normale Bytes, 
und deshalb kann man die MIDI-Schnittstelle auch für andere 
Anwendungen benutzen, wie wir noch sehen werden. 

Bevor wir aber anfangen, möchten wir einen kleinen Über¬ 
blick über die Themen geben, die in diesem Artikel behandelt 
werden. Wir werden MIDI ganz allgemein erklären und die 
Möglichkeiten aufzeigen, die sich durch die Verwendung von 
MIDI ergeben. Außerdem erfahren Sie Wissenswertes über 
die Betriebsarten und Voraussetzungen für den Betrieb 
eines MIDI-Systems 

MIDI - Was ist das? 


Aber nun starten wir unser erstes Thema: Was ist MIDI über¬ 
haupt? Nun, MIDI ist eine Abkürzung für »Musical Instrument 
Digital Interface«, also zu deutsch sinngemäß »Digitale 
Schnittstelle für Musikinstrumente«. 

Viele von Ihnen werden MIDI wahrscheinlich immer im 
Zusammenhang mit Synthesizern gehört haben. Dafür ist es 
auch von den Herstellern der Synthesizer erdacht worden. 
MIDI dient also hauptsächlich zur Verbindung von Tastenin¬ 
strumenten untereinander. Mittlerweile gibt es aber auch 
schon eine Reihe anderer Geräte, die auch MIDI »verstehen«, 
wie zum Beispiel Verstärker, Mischpulte, Hall- und Echoge¬ 
räte und neuerdings sogar Gitarren, die aber nur MIDI-Daten 
senden können. 

Als dann vor einigen Jahren der C 64 auftauchte und bald 
in vielen Haushalten stand, kamen die ersten Programme auf 
den Markt, die mit einem entsprechenden Interface die MIDI- 
Daten senden und empfangen konnten. Denn wer kann bes¬ 
ser mit digitalen Daten (also Bits und Bytes) umgehen als ein 
Computer? 


So entstanden nach und nach immer mehr MIDI-Program- 
me für den C 64, und heute ist der Markt schon fast unüber¬ 
schaubar geworden. Es gibt mittlerweile eine ganze Reihe 
von Computern, die mit MIDI-Interface »auf die Welt« gekom¬ 
men sind. So zum Beispiel die ST-Serie von Atari und der 
MSX-Computer von Yamaha. Für andere Computer, wie zum 
Beispiel die »kleinen« Ataris, den IBM-PC (und Kompatible), 
Sinclair und Schneider und den C64/CI28 muß ein MIDI- 
Interface nachträglich angeschafft werden. 

Wenn man diese Zeilen so liest, kommt man eigentlich 
zwangsläufig auf die Idee: »Wenn die Computer alle MIDI- 
fähig sind, dann müßte man sie doch auch miteinander ver¬ 
binden können?« Nun, man kann. Es wäre doch nicht 
schlecht, wenn ich mit meinem Nachbarn, der einen 
Schneider-Computer sein eigen nennt, und meinem C64 
»Schiffe versenken« spielen könnte, via Computer natürlich. 
Er auf seinem Schneider, ich auf meinem C 64, beide Compu¬ 
ter über MIDI gekoppelt, um die Koordinaten, Treffer und 
Blindgänger auszutauschen. Oder man tippt einen Text auf 
seinem C64 ein und überträgt den Text dann später über 
MIDI an einen IBM-PC. Hier werden die Daten dann aufberei¬ 
tet, um anschließend gedruckt zu werden. Solche und ähnli¬ 
che Anwendungen sind dank MIDI ohne weiteres möglich, da 
die Datenübertragungsparameter von MIDI genormt sind. 

In der Schwesterzeitschrift des 64'er Magazins, Computer 
Persönlich, Ausgabe 9/1986, Seite 11, ist schon eine profes¬ 
sionelle Anwendung beschrieben, die MIDI benutzt, aber 
nicht um Musikdaten zu übertragen. Hier werden außerhalb 
des Computers Meß-, Steuer- und Regelprozesse über MIDI 
gesteuert und gelesen. 

Wer sich für die genauen Übertragungskriterien von MIDI 
interessiert, wird diese in Tabelle 1 finden. 

Ko»»'Tiuiiikation unter Synthesizern 


Kommen wir nun zu der Frage, warum MIDI überhaupt ent¬ 
wickelt wurde. Nun, es gab auch schon vor der MIDI-Zeit die 
Möglichkeit Synthesizer untereinander zu verbinden. Aber 
jeder Hersteller entwickelte sein eigenes Konzept, nur das 
vertrug sich leider nicht mit denen der anderen Anbieter. 
Durch den sehr schnellen Einzug der Mikroelektronik und der 
Digitaltechnik in die Synthesizer einigten sich vor circa vier 
Jahren die Hersteller auf ein einheitliches digitales Konzept 
- MIDI. 

Nun war es endlich möglich, den Synthesizer der Firma A 
mit dem der Firma B und/oder Firma C (und so weiter) zu ver¬ 
binden. Und siehe da - die Synthesizer »verstanden« sich 
(Bild 1). Auf gleiche Art und Weise können auch ein Synthe- 


Übertragungsrate 

31250 Blt/s 

Datenbits 

8 

Stopp-Bits 

2 

Parität 

keine 


Tabelle 1. Ein paar technische Daten zur MIDI-Schnlttstelle 



Bild 1. So können zwei Synthesizer miteinander vernetzt werden 
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sizer mit einem Computer oder mehrere Synthesizer mit oder 
ohne Computer miteinander verbunden werden (Bild 2, 3 
und 4). 

In den Abbildungen tauchen jetzt die ersten MIDI- 
spezifischen Ausdrücke auf, die wir nun näher erläutern wer¬ 
den. Wie man aus den Abbildungen unschwer erkennen 
kann, gibt es je Instrument einen Ausgang (MIDI-OUT), einen 
Eingang (MIDI-IN) und bei einigen Geräten noch einen dritten 
Anschluß (MIDI-THRU). 

Es stellt sich die Frage: Warum gibt es nicht nur einen 
Anschluß für alles? Auch das ist leicht erklärt. Durch die Auf¬ 
teilung in einen separaten Ein- und Ausgang sind sehr kom¬ 
plexe MIDI-Konfigurationen möglich (Bild 5), die sich bei 
einem Gesamtanschluß nur mit Verteilern machen ließen und 
auch das nur mit Einschränkungen. 

Nun zu den Anschlüssen selbst. Als erstes haben wir MIDI¬ 
IN. Über diesen Anschluß werden die MIDI-Daten empfan¬ 
gen, die dann entsprechend ihrer jeweiligen Bedeutung von 
dem Instrument verarbeitet werden. Als zweites gibt es MIDI¬ 
OUT. Alle MIDI-Daten, die von dem Instrument erzeugt wer¬ 
den, werden hierauf die Reise geschickt. Hier gilt es beson¬ 
ders zu beachten, daß nur die vom Instrument erzeugten 
MIDI-Daten gesendet werden und nicht die über MIDI-IN 
erhaltenen Daten. Hierfür gibt es den dritten Anschluß: MIDI- 
THRU. Dieser Anschluß dient dazu, alle über MIDI-IN einge¬ 


henden Daten wieder auszugeben. Also anders gesagt: Alle 
über MIDI-IN empfangenen Daten werden quasi sofort auf 
den MIDI-THRU-Anschluß durchgeschleift, so daß man hier 
weitere Synthesizer anschließen kann. Aber warum »quasi 
sofort«? 

Es hat sich in der Praxis leider herausgestellt, daß doch 
kleine Zeitverzögerungen im Millisekundenbereich auftre- 
ten. Das führt dazu, daß bei großen MIDI-Anlagen mit vielen 
Synthesizern in Reihe doch schon hörbare Zeitverzögerun¬ 
gen auftreten, bis das letzte Instrument die MIDI-Daten erhal¬ 
ten hat und spielt. Dieses Problem führte zu der Entwicklung 
der sogenannten MIDI-Boxen. Diese Boxen haben nur einen 
Eingang, aber mehrere Ausgänge. Durch Zwischenschaltung 
dieser Boxen sind die Instrumente nicht mehr in Reihe, son¬ 
dern parallel geschaltet (Bild 6). Eine weitere Lösung war die, 
daß die MIDI-Interfaces nicht mehr nur einen Ausgang hatten 
(MIDI-OUT), sondern mehrere. Von jedem dieser MIDI-OUTs 
geht man dann jeweils in ein Instrument. 

Klar wurde bisher eigentlich nur, daß Daten zwischen den 
Synthesizern übertragen werden, nur was für welche? Die 
Synthesizer erzeugen zum Beispiel die MIDI-Daten, wenn 
eine Taste gedrückt wurde und auch wenn diese wieder los¬ 
gelassen wird oder wenn eine andere Stimme programmiert 
oder die Lautstärke geändert wird. 


Die beiden melstverkauften MIDI-Interfaces 

C-LAB MIDI-Interface 
1 x MIDI-IN 
3x MIDI-OUT 

mittels eines Umschalters lassen sich die MIDI-OUTs in MIDI- 
THRUs umschalten und ein eventuell gesetzter Interrupt im Inter¬ 
face wird ausgeschaltet. 

Preis ca. DM 150,- 

Steinberg MINI-MIDI-Interface 
1 x MIDI-IN 
3 x MIDI-OUT 
Preis ca. DM 150,- 


Tabelle 2. Zwei durchaus empfehlenswerte MIDI-Interfaces 



Bild 2. Ein Synthesizer kann sogar von einem Computer 
gesteuert werden. Hierbei erübrigt sich dann der Musiker, 
der ein Tasteninstrument beherrscht. 


Zum einen Ohr 'rein... 


Wir möchten jetzt auf die Abbildungen zu sprechen kommen. 
Wichtig ist dabei, daß Sie sich immer vor Augen halten, daß 
ein Synthesizer fast alles, was auf ihm gemacht wird, mit Hilfe 
von Byrn- Todes durch die MIDI-OUT-Buchse ausgibt. 

in Bild 1 sind zum Beispiel zwei Synthesizer miteinander 
gekoppelt. Wenn man nun auf dem Synthesizer 1 spielt, 
spielt Synthesizer 2 dasselbe synchron mit und umgekehrt. 
Für den Synthesizer 2 sind also alle Bytes, die von Synthe¬ 
sizer 1 kommen, als Befehle zu verstehen. Vereinfacht wird 
die ganze Sache dadurch, daß ein Befehlscode immer gleich¬ 
zeitig auch einem Zustandscode entspricht. Das heißt auf 
deutsch: Wird auf einem Synthesizer eine Taste gedrückt, so 
gibt er einen Code heraus. Dieser Code entspricht genau 
dem Befehl, der den Synthesizer zu einem simulierten 
Tastendruck veranlassen würde, wenn er das entsprechende 
Kommando durch die MIDI-IN-Buchse erhalten würde. Im 
MIDI-Sprachgebrauch heißt das steuernde Instrument (das 
kann auch ein Computer sein) »Master« (das ist der Herr und 
Meister, der das Sagen hat). Das gesteuerte Instrument oder 
Gerät heißt »Slave« (das ist der Sklave, der das tun muß, was 
ihm gesagt wird). In unserem Beispiel ist der Synthesizer 1 
unser Master und der Synthesizer 2 unser Slave. 

In Bild 2 ist der Synthesizer mit dem Computer gekoppelt. 
Auch hier kann sowohl der Computer als auch der Synthe¬ 
sizer Master beziehungsweise Slave sein. Dies ist die Stan¬ 
dardkonfiguration, um mit einem Programm die MIDI-Daten 




Bild 3. Auch mehrere Synthesizer lassen sich untereinander verbinden 
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Bild 4. Der Computer Ist bei mehreren Synthesizern durchaus In der Lage, ein ganzes Orchester zu ersetzen 



Bild 5. Synthesizer »im Kreis« geschaltet 


aufzuzeichnen. Später könnten dann die MIDI-Daten vom 
Computer wiedergegeben werden, so daß der Synthesizer 
genau das spielt, was vorher auf ihm gespielt worden ist. 

Die Möglichkeiten und Abhängigkeiten in Bild 3 sind schon 
etwas komplexer. Gehen wir sie mal der Reihe nach durch. 
Was passiert, wenn ich auf Synthesizer 1 spiele? Die MIDI- 
Daten werden vom Synthesizer 1 über MIDI-OUT zum Syn¬ 
thesizer 2 MIDI-IN geschickt. Der Synthesizer 2 spielt und 
die MIDI-Daten werden über MIDI-THRU zum MIDI-IN des 
Synthesizer 3 gesendet, der dann auch spielt. Es spielen 
also alle drei Synthesizer. 

Spielt man auf Synthesizer 2, spielt nur Synthesizer 1 mit. 
Warum nur Synthesizer 1 und nicht auch Synthesizer 3? Erin¬ 
nern wir uns: In einem Synthesizer erzeugte MIDI-Daten wer¬ 
den nur über MIDI-OUT gesendet, nicht aber über MIDI- 
THRU! Bleibt jetzt noch Synthesizer 3. Da hier MIDI-OUT 
nicht angeschlossen ist, spielt man diesen Synthesizer allein, 
ohne daß einer der anderen mitspielt. 


Ähnlich verhältes sich auch in Bild 4. Hier werden die MIDI- 
Daten von Synthesizer 1 direkt zum Computer geschickt. Nur 
die MIDI-Daten, die vom Computer kommen, werden auf allen 
drei Synthesizern empfangen. Dies ist der typische Aufbau 
einer MIDI-Anlage, wenn man mit einem »Tonband-Programm« 
die MIDI-Dfcuen aufnimmt, um sie dann später von diesem Pro¬ 
gramm wieder abspielen zu lassen. In diesem zuletzt genann¬ 
ten Fall fungiert der Computer als Master und die drei Synthe¬ 
sizer als Slaves. 

In Bild 5 ist eine MIDI-Anlage zu sehen, die man gelegent¬ 
lich auf der Bühne einsetzt. Die Besonderheit ist hier: spielt 
man Synthesizer 1, spielt Synthesizer 2 mit. Spielt man Syn¬ 
thesizer 2, spielt Synthesizer 3 mit und spielt man Synthe¬ 
sizer 3, so spielt nur Synthesizer 1 mit. 

Die auf der Bühne am häufigsten vorhandene Anlage ist in 
Bild 6 zu sehen. Hier gibt es nur einen Synthesizer (Synthe¬ 
sizer 1), der alle anderen ansteuert. 

Noch eine kleine Bemerkung für alle, die sich schon mit 



Bild 6. Professioneller Bühnenaufbau mit einer MIDI-Box 
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MIDI beschäftigt haben: Wir sind bei allen Beispielen davon 
ausgegangen, daß alle Synthesizer auf Kanal 1 eingestellt 
waren und der eingestellte MIDI-Mode nicht der MONO- 
Mode war. Diejenigen, die nun auch wissen möchten, was 
sich hinter diesen Begriffen verbirgt, müssen wir auf später 
vertrösten. Dort werden wir alles noch ausführlich behan¬ 
deln. 

Der Computer wird musikalisch 


Jetzt werden wir das MIDI-Interface unter die Lupe nehmen. 
Ohne dieses Interface ist es nicht möglich, mit dem 
C64/CI28 MIDI-Daten zu empfangen oder zu senden. 

Das MIDI-Interface wird in der Regel am Expansions-Port 
betrieben. Um nämlich überhaupt MIDI-Daten senden und 
empfangen zu können, braucht man für den C64 und CI28 
einen Hardware-Zusatz. Es gibt davon mittlerweile eine 
ganze Anzahl am Markt zu kaufen, die aber fast alle zueinan¬ 
der kompatibel sind und mit den gängigsten Programmen lau¬ 
fen. In Tabelle 2 haben wir die beiden meistverkauften MIDI- 
Interfaces kurz vorgestellt. 

Nun einige Worte zum MIDI-Interface selbst. Es dient, wie 
schon gesagt, der Datenübertragung von einem Computer 
nach außen. Die Übertragungsgeschwindigkeit beträgt dabei 
31250 Bit/s. Also erheblich schneller als unsere gute alte 
1541, die nur mit circa 2400 Bit/s überträgt. Das Herz des 
Interface besteht aus dem ACIA 6850. ACIA heißt »Asyn- 
chronous Communication Interface Adapter«, zu deutsch 
etwa »Schnittsteilen-Adapter für asynchrone Datenübermitt¬ 
lung«. Dieser Chip hat die Aufgabe, die parallel eingehenden 
Daten vom Computer in ein serielles Format umzuwandeln. 

Bevor das Interface für die Datenübertragung benutzt wer¬ 
den kann, muß es natürlich an den Computer angeschlossen 
werden. Dazu müssen Sie den C64 ausschalten, das Inter¬ 
face in den Modulport stecken und den Computer wieder ein¬ 
schalten. An dieser Stelle muß noch darauf hingewiesen wer¬ 
den, daß aus den Anfängen der MIDI-Zeit noch Interfaces exi¬ 
stieren, die an den Userport angeschlossen werden. Dies 
sind allerdings Exoten und können von den meisten (circa 99 
Prozent) am Markt erhältlichen Programmen nicht angespro¬ 
chen werden. Wir werden daher hier nur auf das »Modulport- 


Das Status-Register 

Bit 0 : Receive Data Register full (RDR) 

Bit 1 . Transmit Data Register empty (TDR) 

Bit 2 : Data Carrier Detect (DCD) 

Bit 3 : Clear to send (CTS) 

Bit 4 : Framing Error (FE) 

Bit 5 : Receiver overrun (OVRN) 

Bit 6 : Parlty Error (PE) 

Bit 7 : Interrupt Request (IRQ) 


Bei diesem Register sind die ersten beiden Bits für MIDI-Programme 
besonders wichtig: 

Das RDR-Bit wird dann auf 1 gesetzt, wenn das Receive Data Regi¬ 
ster voll Ist. Dann wurde ein vollständiges Datenbyte empfangen. 
Wird dieses Datenbyte gelesen, so wird das RDR-Bit wieder auf 0 
gesetzt, um anzuzeigen, daß der Inhalt des Receive Data Registers 
nun nicht mehr gültig Ist. 

Das TDR-Blt wird dann auf 1 gesetzt, wenn alles zur Übertragung 
eines Datenbyte fertig ist. Wird ein Datenbyte in das Transmit Data 
Register geschrieben, so wird dieses Bit auf 0 gesetzt, um anzuzei¬ 
gen, daß jetzt mit der Übertragung begonnen wurde und daß kein 
neues Datenbyte in das Transmit Data Register geschrieben werden 
darf. Sobald das Datenbyte fertig gesendet wurde, wird das TDR-Blt 
wieder auf 1 gesetzt. 


Tabelle 4. Diese Informationen erhält man beim Auslesen 
des Status-Registers 


MIDI-Interface« eingehen. Um nun nach erfolgreichem 
Anschluß an den C64 das Interface in Betrieb zu nehmen, 
muß es noch initialisiert werden. Der ACIA 6850 ist nämlich 
sehr vielseitig und kann die parallel eingehenden Daten in 
verschiedenen Formaten seriell ausgeben, beziehungs¬ 
weise einiesen. 

Wir werden jetzt gemeinsam alle Möglichkeiten des Inter¬ 
faces kennenlernen, wobei wir nicht auf alles eingehen kön¬ 
nen, was mit dem Interface möglich wäre. 

Der im Interface eingebaute ACIA 6850 hat vier Register, 
mit denen die Datenübertragung abgewickelt wird. Von die¬ 
sen vier Registern können zwei nur gelesen (Read only) und 
in die anderen zwei kann nur geschrieben werden (Write 
only). 


Das Control-Register 

Bit 0 : Counter Divlde Select (CRO) 

Bit 1 : Counter Divlde Select (CR1) 

Bit 2 : Word Select 1 (CR2) 

Bit 3 : Word Select 2 (CR3) 

Bit 4 : Word Select 3 (CR4) 

Bit 5 : Transmit Control 1 (CR5) 

Bit 6 : Transmit Control 2 (CR6) 

Bit 7 : Receive Interrupt Enable (CR7) 


Die Counter Dlvide Select Bits haben 2 Funktionen: 

1. Sie bestimmen die Geschwindigkeit des Taktes, mit dem der ACIA 
6850 arbeitet. Hierzu kann der vorgegebene Takt durch 1, 16 oder 
64 geteilt werden. Für MIDI-Empfangs- und Sendezwecke muß der 
Teiler 64 eingestellt werden. 

2. Mit diesen Bits kann man auch einen Master Reset auslösen, 
nachdem das Interface inaktiv ist. 

CR1 CRO Funktion 

0 0 Divide Ratio 1 

Ö Divide Ratio 16 

1 0 Divide Ratio 64 

1 1 Master Reset 


Mit den Word Select Bits werden Wortlänge, Parität und Anzahl der 
Stopp-Bits eingestellt. MIDI-Standard ist eine Wortlänge von 8 Bit, 
kein Parity-Check und 2 Stopp-Bits. 


CR4 

CR3 

CR2 

Wortlänge 

Parität 

Stopp-Bits 

0 

0 

0 

7 Bit 

gerade 

2 

0 

0 

1 

7 Bit 

ungerade 

2 

0 

1 

0 

7 Bit 

gerade 

1 

0 

1 

1 

7 Bit 

ungerade 

1 

1 

0 

0 

8 Bit 

keine 

2 (MIDI) 

1 

0 

1 

8 Bit 

keine 

1 

1 

1 

0 

8 Bit 

gerade 

1 

1 

1 

1 

8 Bit 

ungerade 

1 


Mit den Transmit Control Bits kann eingestellt werden, ob das TDR- 
Bit des Status-Registers einen Interrupt (IRQ) auslöst. Weiterhin 
kann der Request to send Ausgang gesetzt werden, Diese Leitung 
wird jedoch für MIDI nicht genutzt, so daß für uns nur das CR5 Inte¬ 
ressant ist. 

CR5 Funktion 

0 Es wird bei Ausgang eines Bytes kein IRQ ausgelöst. 

1 Es wird bei Ausgang eines Bytes ein IRQ ausgelöst. 

Mit dem Receive Interrupt Enable Bit kann eingestellt werden, ob 
das RDR-Bit des Status-Registers einen IRQ auslöst. 

CR7 Funktion 

0 Es wird bei Ausgang eines Bytes kein IRQ ausgelöst. 

1 Es wird bei Ausgang eines Bytes ein IRQ ausgelöst. 

Wenn das TDR-Bit des Status-Registers gesetzt ist, kann man das 
Datenbyte in das Transmit-Data-Register schreiben. Darauf wird das 
TDR-Bit gelöscht und bleibt so lange gelöscht, bis die Übertragung 
beendet ist. 


Tabelle 3. Die Belegung des Control-Registers beim 
ACIA 6850 
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Write-only-Register sind das Control-Register (CR) und 
das Transmit-Data-Register (TDR). Die Read-only-Register 
sind das Status-Register (SR) und das Receive-Data-Regi- 
ster (RDR). 

Der ACIA 


Die Funktion zweier Register dürfte anhand ihrer Namen 
schon zu erraten sein. In das TDR schreibt man das zu sen¬ 
dende Byte. Im RDR ist das zuletzt empfangene Byte zu fin¬ 
den und kann von dort ausgelesen werden. Aber wofür sind 
die beiden anderen Register? Wie schon weiter oben kurz 
bemerkt, kann der ACIA 6850 die Daten auf verschiedene 
Arten senden und empfangen. Um nun diese Parameter ein¬ 
zustellen, gibt es das Control-Register. Im CR haben alle acht 
Bit eine bestimmte Bedeutung. In Tabelle 3 ist die genaue 
Erklärung und Funktion dieser Bits zu finden. 

Bleibt als letztes nur noch das Status-Register. Dieses 
Register dient zum Erkennen, ob ein Byte angekommen ist, 
beziehungsweise ob das zu sendende Byte vollständig über¬ 
tragen wurde. In Tabelle 4 wurden die Erläuterungen zu den 
einzelnen Bits des SR aufgeführt. 

Für MIDI sind nur das Bit 0 und das Bit 1 von Bedeutung. 
Alle anderen können wir außer Betracht lassen. Das Bit 0 wird 
dann auf 1 gesetzt, wenn alle Bits vollständig im RDR stehen. 
Solange dieses Bit auf Null steht, kann der Inhalt im RDR nicht 
als vollständiges Datenbyte gewertet werden. Durch Abfrage 
dieses Bits kann also getestet werden, ob ein Byte vollstän¬ 
dig angekommen ist. Kommen wir zum Bit 1 des SR. Dieses 
Bit wiederum wird dann auf 1 gesetzt, wenn das in das TDR 
geschriebene Byte vollständig übertragen wurde. 

Auf diese Art ist es bequem möglich, eine komplette 
Schnittstelle zu programmieren, mit der Daten sowohl gesen¬ 
det als auch empfangen werden können. 

Wir haben bislang festgestellt, daß alle Daten über ein ein¬ 
ziges Kabel übertragen werden. In einem Musikstück gibt es 
aber mehrere Instrumente, zum Beispiel Schlagzeug, Baß 
und Synthesizer. Um diese Instrumente über MIDI getrennt 
anzusteuern, werden verschiedene Kanäle definiert. Zum 
Beispiel senden wir auf Kanal 1 die Schlagzeug-Daten, auf 
Kanal 2 die Baß-Daten und auf Kanal 3 die Synthesizer- 
Daten. Die Zuordnung der Kanäle erfolgt dabei softwaremä¬ 
ßig. In den MIDI-Daten steht, zu welchem Kanal die Daten 
gehören, und die Synthesizer oder auch die Schlagzeug- 
Computer können auf einen MIDI-Kanal eingestellt werden. 
Wenn jetzt Daten ankommen, werden nur die Daten verarbei¬ 
tet, die dem eingestellten Kanal entsprechen. 


In den MIDI-Daten werden 4 Bit, also ein halbes Byte, frei¬ 
gehalten, in denen die MIDI-Kanalnummer eingesetzt wird. 
Da nur 4 Bit dafür vorgesehen sind, läßt sich leicht ausrech¬ 
nen, wieviele Kanäle es insgesamt geben kann. Wenn alle 4 
Bit gleich 1 sind, entspricht dies der Dezimalzahl 15. Das 
bedeutet, daß es insgesamt 16 MIDI-Kanäle gibt, von Null bis 
15. Im allgemeinen Sprachgebrauch sagt man aber, daß es 
die MIDI-Kanäle 1 bis 16 gibt. 

Der MIDI-Kanal ist also so etwas wie eine Geräteadresse. 

Wir geben den Daten eine Nummer mit (die Kanalnummer) 
und nur die Instrumente, die auf den entsprechenden Kanal 
eingestellt sind, verarbeiten die Daten. Alle Daten, die für 
einen anderen MIDI-Kanal gedacht sind, werden von diesem 
Instrument ignoriert. Wenn sich an diesem Instrument eine 
MIDI-THRU-Buchse befindet, werden aber alle (!) Daten 
durchgeschleift, auch die, die nicht für dieses Instrument 
gedacht sind. 


Aus eins mach 16 


Damit nun alles so abläuft wie gerade geschildert, muß am 
Instrument der POLY-Mode eingestellt sein. Damit wären wir 
nun bei den MIDI-Betriebsarten. Von diesen MIDI-Modi gibt 
es drei: den OMNI-Mode, den POLY-Mode und den MONO- 
Mode. Was hat es nun mit diesen Betriebsarten auf sich? 

Im OMNI-Mode wird keine Kanaltrennung der Daten im 
Instrument vorgenommen. Das heißt, daß alle ankommenden 
MIDI-Daten verarbeitet werden, egal auf welchem Kanal sie 
gesendet wurden. Diese Betriebsart ist also in einem großen 
MIDI-Equipment nicht so passend, denn wir möchten ja, daß 
ein Instrument nur die für ihn bestimmten Daten verarbeitet 
und nicht a!! Q . 

Dafür gibt es den POLY-Mode. Das Instrument verarbeitet 
nur die für ihn bestimmten MIDI-Daten. 

Bleibt nun als letztes nur noch der MONO-Mode. In dieser 
Betriebsart kann jeder Stimme eines Synthesizers ein eige¬ 
ner MIDI-Kanal zugeordnet werden. Das hat große Vorteile, 
wie wir gleich sehen werden. Nehmen wir einmal an, wir hät¬ 
ten einen 6stimmigen Synthesizer, der im MONO-Mode 
arbeiten kann. Die erste und zweite Stimme ordnen wir Kanal 
1 zu. Die Stimmen 3 bis 5 legen wir auf Kanal 2 und die sech¬ 
ste Stimme auf Kanal 3. Auf dem Kanal 1 übertragen wir die 
Baß-, auf Kanal 2 die Piano- und auf Kanal 3 die Melodie- 
Daten. An diesem Beispiel kann man sehen, welche Vorteile 
der MONO-Mode bietet. Wir brauchen nur einen Synthesi¬ 
zer, um mehrere Instrumente spielen zu lassen. 
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Ergänzen C^DK 

■Atvt iu m CI . 


Sie jetzt Ihre 


-Sammlung 


Schaffen Sie sich ein interessantes Nachschlagewerk und gleichzeitig eil 
wertvolles Archiv! 


Kennen Sie alle Ausgaben von 64’er? Suchen Sie einen ganz bestimmten Testbericht? Oder haben Sie einen Teil 
eines interessanten Kurses versäumt? Suchen Sie nach einer speziellen Anwendung? 

Damit Sie jetzt fehlende Hefte mit »Ihrem« Artikel nachbestellen können, finden Sie auf diesen Seiten eine 
Zusammenstellung aller wesentlichen Artikel der Ausgaben 01 bis 12/85. 

Und so kommen Sie schnell an die noch lieferbaren Ausgaben: Prüfen Sie, welche Ausgabe in Ihrer Sammlung 
noch fehlt, oder welches Thema Sie interessiert. Tragen Sie die Nummer dieser Ausgabe und das Erscheinungs¬ 
jahr (z.R 2/85) auf dem Bestellabschnitt der hier eingehefteten Bestell-Zahlkarte ein. Die ausgefüllte Zahlkarte ein¬ 
fach heraustrennen und Rechnungsbetrag beim nächsten Postamt einzahlen. Ihre Bestellung wird nach Zahlungs¬ 
eingang umgehend zur Auslieferung gebracht. 
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Grafik 

Dh> Vidoochip Register don C 64 

02 

10/US 

Uound 

Der S1D Chip soinn Register und Piogrammlorung 

02 

11/66 

Biteichor 

Die Gpelchorbelogung don C 64 

00 

I2/H5 

AbentouorlÖBungon 



Losungen 

Dalino Ouonl Losung 

00 

01/Bö 


Guncho Krill Encluntor ist golönt 

44 

01/85 


Infocom-OehelmnlM# golUftnf» 

40 

03/63 


Don RJitnols Lotung Amaron 

148 

06/60 


Aclivmon Advonturnn entschleiert (Mtndnhadow, 

30 

13/83 


Tracer Sanction) 




Eurokal - ich hab'nl 

37 

I2/8Ö 


Unungon «u Hitchhlkor's Guide und Soicoror 

39 

12/88 

Spiolc-Tosts 



007 

Jarnos Bond - A View Io o Kill 

156 

09/85 

Abontouot 

Abontouorpakol 1 

4B 

08/83 


Shadowfiro 

146 

09/65 


The Ouom - mit C 64 auf Gucho nach Drachen 

47 

01/63 

Actlon 

Hexenküche 

G0 

07/BO 


Manier of the Lamp« 

40 

07/65 


Roscuo on rractalus 

1511 

10/88 


Stollar 7 

49 

W/85 

Construction 

Mall Order Monntori 

49 

09/86 

Set 





Racnig Destruclion Ser 

50 

O0/B5 

Geschick- 

AirairaJopedlcua Robustun 

50 

08/85 

lichkclt 





Boulder Dash II 

169 

10/83 


Cryxttl Canllns 

50 

07/63 


Grlbbly's Day out 

14B 

09/65 


Rock'n Doll 

48 

08/85 


Thing on a Spring 

159 

10/05 


Tom i Zaga 

48 

01/85 

Pjoudo- 

Roland'r. Rat Raco 

49 

06/03 

Advenlutea 





Fourth Piotocol und Frnnkio g I.H. 

162 

11/05 


Stichwort 

Titel 

Seite 

Ausgabe 

Renner 

Dlo Renner I960: Momtvoiknuflo Spiele 

34 

12/HS 

Simulation 

Elite 

140 

09/05 


Jump Jot 

148 

09/63 


Super Huoy Hubschraubcnnmulator 

49 

07/65 

Sport 

Boxipiole Frank Bruno’n D t Barry McGulgan 
Champions B 

40 

12/85 


Handkantencchlag por Joystick Karateka * Explo- 
ding Fist 

103 

H/89 


Nick Fi Ido Playa the Open (Golf) 

159 

10/65 


Rallye Gpeedway 

49 

07/65 


SJapnhot (Euhockoy) 

5t) 

07/03 


Summet Garnen II 

140 

09/88 


Woild Seiles Baoeball 

49 

07/85 

Diversen 

Now York City und Air Support 

145 

06/83 


Hardware-Tips und Bauanleitungen 


Audlo/VMoo Mil 5 Mark su neuen Dimensionen (Stereoanlage 34 06/88 

Am C 64) 



Ein Monitor Ist genug (RGB-f Componlte an C 128) 

10 

10/83 

C 16 

Alte Dausetto am C 16 

31 

04/88 


Alter Joystick am C 10 

36 

05/83 

Eingabe¬ 

geräte 

Der Hexer - Zosatttastatur für den MSE 

48 

10/89 

EPROM 

EPROMo im Expansion-Port 

46 

10/89 

Floppy/Dau¬ 

EPROM-Trann — DiO Sunrr-Etwoihmrng 

Daa 64’er EPROM-Piogrammiorgoiät, Tbil 1 
Diskettenlaufwerk 1541 selbst justiert 

42 

44 

32 

10/8S 

1B/BS 

10/BS 

se tto 

Dlo Data so tto streikt nie wieder (Anpassung dos 
Tbnkopfn) 


10/08 

lEC-Bus 

Auf «u neuen Wellen- lEC-Bus Im Solbntbau 
(»Fohlortoufol 10/85) 

44 

07/65 

Joystick 

Joystick tm Solbntbau 

33 

03/88 


Dauerfeuer-Adapter 

40 

06/05 

RS232/V.24 

Das 30-Mark-lnterface (Solbntbau RS232) 

29 

03/88 


Genau betrachlot: Die RS332/V.24-Schnittstelle 

60 

05/85 

Dlverees 

Uvorport Display 

36 

Ofi/83 


Reset-Taster für alle Tille (• Fohlen. 9/BS) 

130 

06/88 


Aus eins mach vier (abst unfreie Betriebssystem- 

41 

07/88 


umsc Haltung) 


Hardware-Grundlagen 


Computer 

Was bringt derC 126? 

28 

Il/OS 

Dntckor 

Wolchor Druckor ist der Richtige? (Grundlagen) 

IS 

oa/as 


Hammnrworko — wio funktionieren Typenrad- 
drucker 

32 

06/08 


Die Alternativen: Thermo-, TlntonstiaMdrucker 
i Plotter 

24 

07/88 

Eingabe¬ 

geräte 

Vorstoht Sie Ihr Compulor? (Wio funktionieren 
Eingabegeräte) 

44 

00/03 

Floppy 

Floppy odor Datasette? 

120 

00/83 

Monltoro 

Wie funktionieren olo. was ist beim Kauf tu beachion» 

16 

12/85 


Das Kabel aum Monitor Wolcha Normen gibt es? 

28 

I2/B3 

Peripherie 

OrafikoingabegerJt: Wie funkllonieron sie? 

30 

00/83 


Hardware-Tosls 


Compulor 

Generationswechsel: Ttost C 10 

16 

01/65 


Erster ausführlicher Ttost C 126 PC (Toll 1) 

10 

00/83 


Ernler ausfUhiliclior Ttout C 136. PC (T^ll 3) 

17 

07/Hfl 

DFÜ 


32 

07/63 

Druckor 

Votgleich: Druckor unter 700 Mark (Tbsta und 
Marktubonicht) 

10 

03/05 


TVaala und MarbtUbontcht Typenraddrucker 

35 

00/66 


TVrat: Brolher EP 44 

27 

07/68 


Orolhtr TC 600 

110 

08/88 


Hltoman C t 

IM 

09/05 


Panasonic KX-PIOOI 

134 

09/86 


Sur SO IOC 

133 

09/65 


Molchon CPÜ0X - wio hBtton Slo'a denn gern? 

28 

10/85 


Oohotmlip. Der Rn DP 165 

34 

10/83 


Epson 0X60 - einer für alle 

20 

10/03 


MI’S 009 - ein Drucker fllr alle Gelegenheiten? 

40 

1/1*3 


Epson JX-B0 das violforbigo Druck-Genie 

36 

11/63 


Epson FX 65 nouo Roforonx 

42 

11/05 


3P 1600 VC - SupenUr mH Haken 

41 

11/65 


Der NEC-P2 - das fernöstliche Wunder 

159 

13/05 


DMPG9 — eine solide Sache 

103 

12/60 


Da» Doppollebon des Joyatick-Purtu: lOer TasUturen 

50 

09/05 


Joystick»: Ttost und MarktUbermcht (• leldortoufol 

19 

11/00 


12/63) 

Ea gehl auch andern- Ughtpons und Trackballs 

22 

11/05 

EPROMor 

1 risch gebrannt ist halb geopoichort (EPROM 
Programmiergeräte im Töel) 

30 

07/88 


OuickByts II — das Kraftpaket 

14 

10/0!) 

Floppy/Dula 

Tuibo-rioppien, «weite Generation: Speeddoa plus 

26 

10/65 

setle 

» Prologlc DOS 

Daa gioflo Rennen: Schnelle Bandlaufwerke 

37 

10/63 


FIoppieB) 

Cul gekauft tat halb gospolchort (Marktilberatcht 
Disketten) 

38 

10/88 

Grafik 

Dio Vrdeoworksu» (Digitttor-Ttosl) 

32 

05/85 


Digitalbilder mtl C 64 PrlnlTtochnlk Dlgitifor 

24 

0I/B3 

Interface 

Hardware-Interface gam woich: Tto« EC 64 

23 

01/85 


Guto Connoctronn - Übersicht SchnltUtellon 

21 

03/65 


Card/Pitnt .6 - Daa Alltound-Intoifaco 

20 

03/63 


Das Wieoemann-Centionlcs-lntoifaco 

18 

03/63 


Stichwort 

Tflal 

Solls 

Ausgali. 


Erat oin IEC-Bui Öffnet TUr und Tbr 
(♦re hielt.4/0-68) 

24 

03/1 

Moni tote 

MarkfUbeisicht: Monochromo Monltoro 

30 

12/1 

Musik 

Trommel Wirbel Teil Digital Drums 

43 

00/1 


Dlo Muslkhardwaro aum C 64 

17 

09/e 

Roboter 

Roboter selbst gebaut (Fischortochnik) 

107 

10/P 

Scanner 

Go lernt Ihr Druckor lösen 

30 

ofl/e 

Spaichor 

Spoichoituning VC 20. Ttost 64 KByte Karto 

20 

01/8 

Stouern 

Flottes TUrmchon: MEA-Intorfaco 

llfi 

08/B 

Kurse 




Assembler 

Assembler ist keine Alchimie. Ttoil 6 

142 

01/B 


Assembler ist keine Alchimie, Ttoil 7 

124 

03/B 


Assembler tot keine Alchimie. Teil 9 

136 

05/8 


Assembler ist komo Alchimie. Ttoil 10 

137 

07/8 


Assembler ist keine Alchimie, TV.il II 

120 

00/0 


Assembler lat keine Alchimie. Ttoil 13 

109 

09/0 


Assembler ist koine Alchtnue, Tel! 13 (Schluß) 

143 

10/8 

C 128 

Entdeckungsreise duch den C 126 

43 

12/8 

Effektives 

Müllabfuhr im Computer Garbaae Collection. 

122 

01/8 

Programio- 

Ttoil 1 



ron 

Finden mir 5yBtom. eine neuartige Suchmcthodo. 

148 

03/8 


TelI3 

Sortieren mit dem Computer. TOil 2 

ISO 

05/B 


Sortieren mit dem Computer. TV»iI 3 

124 

06/a 


Sortreten mit dem Computer. Teil 4 

IM 

08/6 


Sortieren mit dem Computer, Tbil 5 

124 

D9/Ü 


Sortioron mit dom Computer, TOU 6 (Schluß) 

150 

13/0 

Extern 

C 64 extern - Der Weg nach draußen. Teil 1 

144 

08/61 


C 64 extern — Der Weg nach draußen. Teil 2 

122 

09/3' 


C64extom —Der Weg nach draußon.Teil3(SchluB) 

129 

10/fli 

nopp/ 

In die Gohoimnisso der Floppy eingetauchr, Ttoil 4 

140 

01/6: 


ln die Geheimniae der Floppy oingotaucht. TOil 5 

130 

03/81 


In dio Geheimnis# der Hoppy olngniaucht. Teil 6 

145 

05/01 


ln die Geheimnisse der Floppy eingetauchr. Ttoil 7 
(Schluß) 

116 

06/BI 


Directory-Manipulationen 1 

140 

06/6! 

Floppy 

Diieciory-Manrpuidiionen H 

163 

10/B 1 

Grafik 

Ihres 3-10 neue Baulc-Defehle. Tbil 2 

136 

03/6.' 


Hiros 3 — Grafikkunr Anwendung, Teil 3 (Schluß) 

132 

00/6! 


Sprites ohne Coholmninao 

40 

00/8: 


Stroiteüge durch dib Oraflkwe», Ttoil 1 

103 

09/Bi 


Strolfiüge durch dio Grafikweit, TBil 2 

149 

11/61 

Legaleren 

Logelolcn. Ttoil 1 

143 

07/01 


Logeloion. Teil 2 

136 

00/81 


Logeloton, Ttoil 3 (Schluß) 

1)5 

09/8! 

Mu.lk 

Dom Klang auf der Spur, Teil 2 

136 

01/01 


Dem Klang auf der Spur, Ttoil 4 

131 

04/01 


Dom Klang auf der Spur, Ttoil 8 

152 

05/8! 


Dom Klang auf dor 5pur, Ttoil 7 

133 

07/6! 


Dem Klang auf dor Spur, TOil B 

133 

00/61 


Dem Klang auf dor Spur, Ttoil 9 

126 

10/6! 


Dom Klung auf dor Spur, Ttoil 10 (Schluß) 

167 

Il/Ot 

Speicher 

Memory Map mit WundorvoischUgon. Ttoil 3 

126 

01/BI 


Memory Map mit WandorvorechUgen, Ttoil r. 

144 

03/W 


Memory Map mit WandervonrchlUgon. Ttoil 7 

130 

06/llf 



140 

07/66 


Momory Map mit Wamlervoischlllgon, Ttoil 0 

139 

08/06 


Memory Map mit WandervotschUgen. Ttoil 10 

112 

00/66 


Momory Mop mit WandorvonrchUgcn. Ttoil 11 

133 

10/BE 


Momory Map mit WundervonchUgen. Ttoil 12 

148 

11/00 


Momory Map mit WandorvorechUgon. Ttoil 13 

140 

12/Bll 

Sprachen 

BaliO Ut out - es lobe Forth 

43 

01/65 

VC 20 

Dor gliUorno VC 20. Ttoil 4 

130 

01/65 


Der glSsorne VC 20. Toll 6(8ohluß) 

153 

03/63 

Software-Tips 



C 128 

Freie Fragen und Antworten «um C 126 

14 

00/05 


Fragon und Antwoiton «um I28«i 

20 

10/05 


Fragen und Antworten rum l3Bor 

40 

12/05 

Diucknr 

DorMPSBOa lernt Deutsch 

31) 

03/115 


Centronics Intorfaco für joden Bedarf 

76 

07/03 

Ttoxtvoraihoi- 

Software Corner - profetulonollo Programme 

174 

12/RS 

lung 

richtig alngoeeUl (ViMwrito-Tips) 



Tips A Trick* 

Auloboot beim C 04 

66 

03/65 


Vuiblndunyifioundllch(ParaIlelnchnl(t»te)lo des VC 20) 91 

03/88 


Undnßnletto Opcodeo dos 0902 

114 

03/00 


Dutch POKEs «um Erfolg (Splelu POKEs) 

63 

03/03 


Tipsund Erwaiioriingon tu Hi-Eddl und Simonn Basic 

69 

03/83 


Baslc-Befehle Im Griff 

70 

03/06 


Durch POKEo mm Erfolg Spiele POKEs 

70 

00/nr, 


liumitierlo Eingabe 

140 

OG/BÜ 


Hl-Ttoxt (Ttoxt in Hiros) 

70 

06/05 


Verbotene Variablen 

00 

09/B3 


Verschiedene Routinen für AnfSngor und Profio 
(.Fohlortoufol 13/85) 

Bll 

11/88 


Dor Trick mit dom Joystick (Joystickabfrage) 

24 

11/65 


Verschiedene Tips für Anfänger und rotlge- 
aohnttene 

106 

13/65 

Software-Grundlagen 



Assembler 

Awemblor? Ansemblerl (Einführung) 

33 

01/83 

DFÜ 

Der erste Konttkl mit DFÜ 

40 

00/88 


Die Nette der Pb«: Bt*. Dstox-P. Tolobox 

46 

00/6S 


DFÜ - Was tat das? 

44 

00/85 


Mailbox für Anfänger 

30 

07/85 





















Stichwort 

Titel 

Seite 

Abgabe 

Datoi 

Dio wichtigsten Begriffe dei Datelveiwaltung 

43 

05/85 


Datc-iveiwaltung ist nicht gleich Datenbank 

44 

05/85 


Datoiveiwaltung: WasSio boim Kauf beachten oollton 

40 

05/85 

Drucker 

Hardcopy leicht gemacht (wio programmiert nun 
lUidcopios) 

3« 

09/83 

EPROM 

Wio sage Ich e* melnom EPROM? (EPROM- 
Gnindlagon) 

35 

07/85 

»unktionon 

Funktionen (Ui Anlangiu 

104 

03/H3 

Lernen 

Booaoi lomon mit dom Computer 

166 

10/55 

Musik 

Klnngpioginmmliuung Ohne Ballast 

10 

00/OS 

Spiolo 

Taktik- und Strategiesplele 

48 

03/85 


Play by Mail und Play by Modem 

153 

00/06 

Sprachen 

Sprachen fui Computer. TVul 2 

40 

05/115 

Ifextveiarbol- 

Von der Schrelbmascluno »um Tbxtayaiom 

34 

03/85 


tung 


Stichwort Titel Seile Ausgabe 


Tbatvoraibol- Homeword - Tbxtveraibeiiung au Hause 

36 

03/85 

tung Tbtl-Ifext — Flexibilität ist Ttumpf 

SB 

03/B3 

Protext — Toxtprofi mit 00 Zeichen 

133 

05/85 

'Automat Pluu kontra Vitawnto 

132 

00/85 

DorProiBhammorflbsl SurtVsxter) 

135 

09/85 

Papotclip — ausdrücklich gut 

44 

11/85 


So machen's andere 



Semmeln 

Semmeteervice mit dem C 64 

147 

06/85 

Sport 

Commodoro Sportsorvico: Hoimcomputoi rut 
Turniorauowaiiung 

167 

07/85 

Hilfe 

Computer für Behinderte 

IBS 

12/83 


Listings zum Abtippen 

Anwendung 


OUdKluinv 

MllO 

dfO 

Datoi 

Drucker 


Etiuellor 

Hoppy 


Sprachen 

Textverarbei- 

tung 


Tranxfot 

Unter¬ 

programm«» 


Del C 64 ala Handballltalnni (AdM) 

52 

01/88 

Ligatab - ohne Oiganuaüon kein Tbi (LdM) 

50 

03/63 


52 

03/113 

(AdM) 



Weißt du, wieviel Steinlein liehen (Sternkarte) 

62 

03/83 

(AdM)(♦Fehlen. 0/83) 



HauihaltibuchfUhning (AdM) 

na 

07/118 


52 

08/06 

olektionlkei (AdM) 



Puifungofragon (AdM) 

03 

09/118 

Fit In Latein mit dom C 64 (AdM) 

52 

10/05 

LyilkMaeohlno (AdM) 

52 

11/85 

Hypra-l'latoa(UIM) 

50 

11/05 

Der ChomloAaaiBtont (AdM) 

62 

12/03 

SMON Teil 3 Ohne guten Weilu gehl on nichl 

CU 

01/05 

Hypra-Aaa (LdM) 

51 

07/85 

Nouqb vom DMON <. Fohloiteutel 11/05) 

07 

10/83 

Hoaaaemblei au Hynra Axn( t FoMoitoufol 12/05) 

07 

11/83 

Crglniungen xu Hypia Am (bedingte Verxwetgungen) 90 

11/83 

Tips & Tnckn Bum SMON (inkluilvo Dlskmomloi) 

100 

12/03 

Auflhmng Wnubowoib BlldschirmDeite 

1511 

09/83 

Diel TbpPiogrammo 



TViminalpiogramm der Spitronklaeso 

149 

07/05 

(> Fnhlniloufnl 10/08) 



SMU - Der MaAkongeneratoi (LdM) 

50 

12/85 

Ht-Eddl-Druckonoutlnon 

69 

05/83 

C 64 Schreiboillng - Drucken wie gemalt 

54 

10/83 

Koalablldor Tarbhaidcopy auf Epson JX 50 

39 

11/83 

Die nächsten 14 aus d. Eln/.oilerwnttbowoib 

157 

01/85 

Hypra Load mal 4 (. Fehlo.teufol 3/83) 

82 

01/83 

Dukoltonmonlloi 

B3 

00/83 

DUk Deaigner 

70 

09/85 

Herzoperation (Hypra Load * Hypra-Asa t DOS8.I » 

104 

11/88 

Cenlronico) 



VI«-r I'ioudo-VIC» mit 32 Sputen 

70 

01/83 

Hl-Eddi: Zeichen- und Malproggiamm (LdM) 

50 

01/88 

ElektiotochnlnchcB Zclchnon mit dom VC 20 

71 

03/85 

Mini Grafik VC 20, Gtaflkhilfe 

69 

03/83 

Trickfilm mit dom C 61: Bewegte SD-Grafik (LdM) 

31 

03/83 

(♦Fehleitnufol 0/85) 



Kurvonplotton mit Hardcopy auf dem C 16 

68 

00/85 

Doppelte Grafikauflöiung für C I2Ö 

33 

11/85 

Bilder aus einet andeion Dimonsion (Apfolmannchon) 80 

11/85 

V1C — das intelligente Programm 

173 

05/85 

(Wettbewerbssieger) 



Sound Maclune (• Fehleitoufel 10/85) 

33 

09/83 

Sound Master (Basic-Erwoiterung) 

31 

09/85 

0810 - Dio Suche nach dei Piojc isor 

70 

03/65 

Samurai (Strategiespiel) 

72 

06/83 

Schach demCG4:Schachprogramm xum Ablippen 

72 

00/63 


51 

09/65 

Zeichensatssctolllng (1WM) 



Pac-Man unlei dei Lupe 

76 

10/65 

Block Oul 

84 

II/B5 

Seekiieg per Tblefon (Schiffo vornonken per Modem) 

82 

12/85 

Die Scioll-Maachine - D Fenster sur Spielewelt 

62 

06/65 

(LdM) ( t Felüert. 11/85) 



Tiny Förth Compiler (LdM) (4Fohlort. 9/05) 

61 

08/ÖS 

Hypra-Tbxt (1/JM) (• Fchtertoufol 11/85) 

50 

10/85 

DruckMcho - Hypn-ltui. Ibi! 2 

71 

11/HS 

Große Buchnüben 

59 

01/85 

Heniote für Unterprogrammo 

«0 

01/85 

Paiamotortiborgabc an fdaachinnnsprachopiogiammo 08 

01/85 

CureoiBteuorung leicht gemacht 

06 

02/06 

22 Read Error — Theorie und Praxis 

41 

03/B5 

Floppy-Listor (+ Fohlortoufol 4/05) 

02 

03/05 

UnOGCioon beim VC 20 

83 

05/05 

C 16: Help und Ttace verbessert 

84 

03/83 

Otdnung lat das halbe Leben (Directory Sortor) 

77 

03/06 

Dokumentationnhilfe, Croas Foforanc-LUlo C 04 

155 

DO/115 

(Wettbewerb) 



Ptoßt mit dem C 64: CeiSterteuerung ubor 

76 

M/03 

Userport (« Fohlarteufol 9/113) 



Fonstor-Dofohlo für den C 16 

84 

07/05 

EloktronlBche Meikxettel 

03 

07/06 

Hie Compacter 

83 

07/86 

Rr.MKiUor (• rohlorioufol 9/85) 

78 

07/05 


74 

07/05 

Komfortable Ein-/Auogabetouüne 

77 

07/85 


00 

00/65 

Dei Bllmap-Compancler (HiRqi-BiIdoi kompiimleren) 

81 

08/Ü5 

Hypra-Save 

70 

00/65 

•Piocodure’ - odor doi C 04 kann lomon 

70 

00/05 

Aiifgnwlckolt - UatlngacrolUng für VC 20 

63 

09/05 

Ptogrammgonoralor für den C 84 

66 

10/08 

Croia-Ref optimiort 

63 

10/05 

Kploletiainer Spriinkill 

Hfl 

11/88 

Tipp Utility 

09 

12/05 

Der EPROM-Aulomal (wio man Modulo macht) 

90 

13/(13 

BO Zelchon Grafik für den C 128 

78 

12/08 

Hyper Scroon (Spiltoa auf dom BUdeohlimnnd) 

76 

12/05 

Der C 54 als PET. PETSimuUloi 

07 

01/118 

rotmitterio Eingabe 

Iflfl 

01/85 


Softwaro-Tosts 




Aaaemblet Im Tbut TVill 1 

34 

01/83 

Basic- 

OBaolc - Allna drin 

2(1 

01/03 

Erweiterung 

Macro Bawc. Die Unlorptogtamm Dlblloihok 

137 

06/83 


Darf o# etwas mehr nein’ - Tont BujinoosBanic 

120 

00/113 


Das Intelloctool 

138 

09/83 


Formel G4: Dan Multltalont 

15(1 

13/83 

DIU 

Ibinunalpioarammn: übnrelcht 

42 

06/85 

Datei 

Varglolchaioit - 7 Datelverwallungon auf oinon Blick 110 

07/05 


Aufgeräumt mit Malnflle II 

157 

10/83 

Grafik 

Malen auf dem Bildschirm (Malprogramme) 

34 

00/03 


Orafikpiogratnmo auf einen Blick. MarktUboraicht 

311 

00/05 


Vorglolchstest: Grafik-Erweiterungen 

37 

09/05 

Lernen 

Gofllearnlng — die weiche Wolle doo Lernens 

40 

01/03 


Vokabeltrainlng mit dem Computer 

39 

03/83 


Markt Ob# reicht: Lemsoftwaro 

160 

10/03 

Musik 

Musik lur den C 64. Übersicht MuAikxoliwaio 

20 

09/05 


Tho Music Syriern - Zwei auf einen Schlag 

16» 

12/85 

üprachon 

Logo — dio Spracho für Einalelgoi 

135 

03/83 


Dor Ada TialrimjDkiirs auf dem C 64 

139 

03/88 


Promal — die neuo Spracho Mi Profia? 

124 

07/88 


Forth wlrta mH MÄTForth 64 

120 

07/85 


Was lolslot Pilot? 

121 

05/85 


Pascal für ProHs (Piofi-Pascal) 

122 

00/85 


Supor-Fotth 64 

144 

00/85 


C - die profoBaipnello Programmiorapracho für 

140 

09/85 


den C 64 

Basic 7.0 - Das Eupotbanic dot C 128 

18 

10/85 



151 

10/85 


Turbo-Pascal auf dem C 128 

30 

11/83 


Die Ausgaben 
2/85 und 4/85 
sind bereits vergriffen 
und nicht mehr lieferbar! 


Am besten gleich 
mitbestellen: 

Die praktischen 
64'er-Sammelboxen 



laßt in eine der praktisdien 
lamme! boxen! 


Am besten gleich 
mitbestellen! 

Für alle Leser, die »64’er« regel¬ 
mäßig kaufen, sammeln oder im 
Abonnement beziehen, gibt es 
jetzt ein interessantes Ser¬ 
vice-Angebot: die 64'er-Sam- 
melbox! 

Mit dieser Sammelbox bringen 
Sie nicht nur Ordnung in Ihre 
wertvollen Hefte, sondern schaf¬ 
fen sich gleichzeitig ein interes¬ 
santes und attraktives Nach¬ 
schlagewerk. 

Übrigens: Die Sammelbox ist 
nicht nur ein praktisches Aufbe¬ 
wahrungsmittel: Sie eignet sich 
auch hervorragend als Ge¬ 
schenk für Freunde und Be¬ 
kannte zu vielen Anlässen. 


Auch die bisher 
erschienenen Sonderhefte 
können Sie 
jetzt direkt bestellen: 


SONDERHEFT 01/84: TICS & TRICKS 

Unentbehrliche Anwendunqslistinqs tür C 64 und 
VC 20. 


SONDERHEFT 02/85: ABENTEUERSPIELE I 

Fesselnde Advontures mit zahlreichen Lösungen und 
einem Programmierkurs. 

SONDERHEFT 03/85: SPIELE 

HolBe Listings liir Spiolo-Fans und eine große 
Marklüberslcht. 


SONDERHEFT 04/85: 6RAFIK * DRUCKER 

Von der 3D Darstoliung bis zur Hardcopy-Routine. 

SONDERHEFT 05/85: FlOPPT/DATASEnE 

Soll-Tirols zum komfortablen und noch schnelleren 
Betrieb von Floppy und Datasette. 

SONDERHEFT 0&/85: AUSGEWÜHUE SUPER-IISTINGS 

Ibp-Themen aus 64 'er bringt eine Auswahl der besten 
64 er Programme. 

SONDERHEFT 07/85: ANWINDUNOEN/DFtl 

Leistungsfähige Programme für professionelle 
Anwendungen und Datenfernübertragung. 

SONDERHEFT 08/85: ASSEMBLER 

Assembler-Know-how für Anfänger und Fort¬ 
geschrittene. 

SONDERHEFT 01/86: PC 128 

Komplotte Beschreibungen von C 128 und C 128 D 
und passendem Zubehör. Die Unterschiede zum C 64. 


SONDERHEFT 02/86: TIPS 8 TRICKS 

Super-Listings, ausführliche Grundlagen und die 
basten Tips&Tricks und Einzeller aus 64'er. 

SONDERHEFT 03/86: C16, CII6, »C20 UND PLUS 4 

Umfassende Grundlagen und aktuelle Informationen 
zu C16, C116, VC20 und Plus 4. _ 

SONDERHEFT 04/86: ABENTEUERSPIELE 2 

Auf 160 Seiten alles Uber das Programmieren von 
Abenteuerspielen und Super-Listings zum Abtippen. 

SONDERHEFT 05/86: C64-GRUNDWISSEN 

Für alle Einsteiqer umfassende Grundlagen und Hilfe¬ 
stellungen rund um den C64. 

SONDERHEFT 06/86: GRAFIK 

Grafikprogrammierung des C64, C128 und C128 im 
C64-Modus. Dreidimensional konstruieren mit 
» Giga-CADs. 

SONDERHEFT 07/86: PEEKi UND POKEi 

Einlührungskurs in die wichtigsten Speicherstellen für 
C64, C16 und C128. Über30Seiten Tips&Tricks. 

SONDERHEFT 08/86: PLUS/4 UND C16 

Ausführliche Kurse für schnelle Programme auf C16 und 
Plus/4 in Maschinensprache und Basic mit Grafik¬ 
befehlen. 


SONDERHEFT 09: FLOPPT 8 DATEIVERWALTUNG 

Die effiziente Datenverwaltung fürEinsteiger und Profis. 

SONDERHEFT 10/86: C 128 II 

Entscheidendes Know-how für Anfänger und Fortge¬ 
schrittene auf ihrem Weg zum Profi. 


Tragen Sie die Nummer des gewünschten 
Sonderheftes (z.B. 08/85) auf dem Bestellab¬ 
schnitt der hier eingehefteten Bestell-Zahlkar- 
te ein. 

















































MUSIK 


C 64, C128 


Wir möchten jetzt die MIDI-Betriebsarten noch etwas 
genauer erklären, um die Zusammenhänge noch zu präzisie¬ 
ren. Am Instrument kann man häufig nur zwischen OMNI ON 
und OMNI OFF wählen. OMNI ON bedeutet immer, daß keine 
Kanaltrennung im Instrument vorgenommen wird. Im Gegen¬ 
satz zu OMNI OFF, hier werden immer nur die Daten verarbei¬ 
tet, die auf dem richtigen MIDI-Kanal ankommen. Die MIDI- 
Modes POLY und MONO sind immer im Zusammenhang mit 
der OMNI-Einstellung zu sehen. Es gibt daher vier Möglich¬ 
keiten: 

Orchester aus »Silicon Valley« 


1) OMNI ON - POLY-Mode 

2) OMNI ON - MONO-Mode 

3) OMNI OFF - POLY-Mode 

4) OMNI OFF - MONO-Mode 

Ist der Synthesizer in Mode 1, so werden alle ankommen- 
den MIDI-Daten verarbeitet. Das heißt aber nicht, daß aus 
einem ßstimmigen Synthesizer nun ein zehn- oder noch 
mehrstimmiger Synthesizer wird. Es werden nur so viele 
MIDI-Daten angenommen, wie der Synthesizer in der Lage ist 
zu verarbeiten. 

Der Mode 2 kommt in der Praxis nicht vor. Denn das würde 
bedeuten, daß der Synthesizer zwar alle MIDI-Daten anneh¬ 
men würde, aber er wäre nur monophon, das heißt es würde 
nur ein Ton zur Zeit gespielt werden. 


Der häufigste in der Praxis vorkommende Mode ist der 
Mode 3. Der Synthesizer ist polyphon und er nimmt nur die 
MIDI-Daten an, die auf dem Kanal ankommen, auf den er ein¬ 
gestellt ist. 

Es gibt leider nur sehr wenige Synthesizer, die den Mode 4 
beherrschen. In diesem Mode ist zwar jeder Kanal nur mono¬ 
phon, aber da der Synthesizer mehrstimmig ist, kann jeder 
Stimme ein Kanal zugeordnet werden. So wie er hier be¬ 
schrieben worden ist, ist es die genaue Definition des Mode 
4. Es gibt jedoch eine Erweiterung dieses Modes. Seit kurzer 
Zeit existieren Synthesizer und Expander (das sind Synthe¬ 
sizer ohne Tastatur), die im sogenannten erweiterten MONO- 
Mode arbeiten. Wir wollen uns aber mit diesen Sonderformen 
nicht mehr befassen. 

Soviel zu MIDI-Systemen. Wie Sie sehen, kann mit einem 
Computer und mehreren Synthesizern ein sehr komplexes 
System aufgebaut werden. Hiermit können zum Beispiel 
schwierige Musikpassagen ohne Probleme in den Computer 
eingetippt und dann von einem angeschlossenen Synthesi¬ 
zer fehlerfrei gespielt werden. Oder es kann ein einziger 
Musiker ein ganzes Orchester programmieren und spielen 
lassen, ohne auch nur einen Finger zu rühren. Der Kreativität 
sind mit MIDI keine Grenzen gesetzt. Vielleicht hat Sie der 
Artikel so richtig auf den Geschmack gebracht, den Einstieg 
in MIDI selber zu wagen. 


(M. Reukauff/ks) 
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Partnervermittlung - 
der elektronische Heiratsmarkt 


Das hier vorgestellte 
Programm sucht aus 
einer Vielzahl ver¬ 
schiedener Personen¬ 
daten die optimalen 
Partner heraus. 

Ob Sie nun in größe¬ 
rem Maßstab künftige 
Ehepartner vermitteln 
möchten, oder unser 
Programm »Partnerver¬ 
mittlung« für Veran¬ 
staltungen oder Par¬ 
ties verwenden, wollen 
wir Ihrer Einstellung 
hierzu überlassen. 
Sicher ist jedoch, daß 
Sie eine Menge Spaß 
daran haben werden. 



D as Programm »Partnervermittlung« (Listing 1) entstand 
aus der Idee, auf einem Schulfest ein »professionelles« 
Partnervermittlungsbüro für alle Schüler einzurichten. 
Da diese Idee viel Anklang fand, wurde dieses Programm 
ständig verbessert. Die erste Version brauchte für eine Datei¬ 
auswertung noch die achtfache Zeit. Nach einigen Verbesse¬ 
rungen, dem Compilieren und dem Anfügen einiger Maschi¬ 
nenspracheroutinen, entstand diese ausgereifte Version, die 
in ihrer Arbeitsgeschwindigkeit anderen Datenbanken kaum 
nachsteht. 

Zur Planung: 

Obwohl dieses Programm ursprünglich für ein Schulfest 
konzipiert wurde, kann es natürlich auch zu anderen Gele¬ 
genheiten eingesetzt werden. Jeder Einsatz der Partnerver¬ 
mittlung bedarf jedoch einer sorgfältigen Vorbereitung, die 
sich nach der Art der Verwendung richtet. Sollten Sie den 
Einsatz für größere Feste oder Veranstaltungen planen, bleibt 
zu bedenken, daß die Auswertung der Datei erhebliche Zeit 
in Anspruch nimmt. Auch das Eingeben der Personendaten 
dauert seine Zeit. Deshalb sollten Sie sich überlegen, ob die 
fertig ausgewerteten Listen bereits zu der Veranstaltung vor¬ 
liegen sollen oder ob erst bei der Veranstaltung die Daten der 
zu vermittelnden Personen aufgenommen werden. Wenn Sie 
bereits die fertige Auswertung präsentieren wollen, sollten 
Sie unbedingt rechtzeitig vorher mit der Aufnahme von Ver¬ 
mittlungsgesuchen beginnen. Dazu verteilen Sie am besten 
Zettel, auf denen jeder seine persönlichen Daten und Wün¬ 
sche aufschreiben und ankreuzen kann. Wenn Sie eine pri¬ 
vate Vermittlung durchführen, dann sollte auf dem Fragebo¬ 
gen natürlich auch die Adresse der Person stehen. Auf alle 
Fälle muß auf dem Bogen ein Hinweis darauf gegeben wer¬ 


den, daß die Abgabe des Zettels als Einverständniserklärung 
für die elektronische Datenspeicherung gilt, denn solche 
Angaben sind »personenbezogene Daten«, die nur mit Ein¬ 
verständnis gespeichert werden dürfen. Um schnell be¬ 
stimmte Zettel wiederfinden zu können, kennzeichnen Sie 
nach dem Eintippen der Daten den Zettel am besten mit der 
Datensatznummer der Person. 

Das Partnervermittlungssystem ist auf eine Datenbank mit 
Direktzugriff aufgebaut (relative Datei), deren Größe nach 
Anwenderwunsch gewählt werden kann. Dabei ist die maxi¬ 
male Datensatzanzahl auf 1000 Datensätze begrenzt. Zu 
klein gewählte Dateien lassen sich erweitern, ohne dafür 
extra eine neue Datei zu eröffnen. Zur Datenbearbeitung wer¬ 
den »intelligente« Eingabemasken verwendet, die Fehler ver¬ 
meiden und die Eingabezeit verkürzen helfen. Häufig auftau¬ 
chende Eingaben, zum Beispiel verschiedene Augenfarben, 
können durch einfachen Tastendruck abgerufen werden. 
Nachträgliches Löschen oder Ändern der Datensätze ist 
durch Eingabe der Datensatznummer oder des Personen¬ 
namens und des Geschlechts leicht und schnell möglich. Der 
Direktzugriff und die Verwaltung der Datensätze erfolgt über 
drei Indexdateien, die am Ende dieses Artikels genau 
beschrieben werden. Der Benutzer kann sich mit dem Pro¬ 
gramm auch geschlechtsspezifische Listen nach verschie¬ 
denen Auswahlkriterien erstellen lassen und sie später ande¬ 
ren Listen oder der Hauptdatei zur Partnervermittlung zuord¬ 
nen. Die Partnerzuweisung bei der Auswertung dauert für 
zwölf Personen (zwölf Personendaten werden parallel verar¬ 
beitet) bei der Zuordnung von 150 möglichen Partnern etwa 
21 Minuten. Diese Zeit erscheint lang, doch man bedenke, 
daß dafür 1800 Datensatzvergleiche nach jeweils 76 Krite- 


SONDERHEFT 11 


133 









































ANWENDUNG 


C 64 


rien (also insgesamt 136800 Vergleiche) durchgeführt wer¬ 
den müssen. Ein Mensch würde dafür mindestens 40 Stun¬ 
den benötigen (ohne Pause und Ermüdungserscheinungen). 

Möchte man also eine Datei mit 150 weiblichen und 150 
männlichen Personen für alle weiblichen Personen auswer¬ 
ten, so dauert die Erstellung der Partnerliste etwa viereinhalb 
Stunden. Das Programm kann in dieser Zeit unbeaufsichtigt 
laufen, Sie können folglich die Zwischenzeit für andere Dinge 
nutzen. 

In der Partnerliste werden einer Person jeweils die fünf 
gegengeschlechtlichen Partner zugeordnet, die den Wün¬ 
schen der Person am meisten entsprechen, Zusätzlich wird 
die wahrscheinliche »Wirkung« der eigenen Person auf die 
fünf ermittelten Traumpartner errechnet. 

Die Verarbeitungsgeschwindigkeit des Programms kann 
durch Verwendung eines Diskbeschleunigungssystems wei¬ 
ter gesteigert werden. 

Zur Arbeitsweise 


Wenn Sie dieses Programm benutzen, werden Sie sich 
bestimmt einmal fragen, wie es die vielen Informationen über 
die Personen bewertet und mit anderen Daten vergleicht, 
denn das Ergebnis einer Computer-Partnervermittlung hängt 
in entscheidendem Maß von der Bewertung von Informatio¬ 
nen ab. Das Alter der Person ist beispielsweise eine sehr 
wichtige Information, denn es wird mehr Bedeutung haben, 
auf die richtige Altersgruppe, als auf die richtige Haarfarbe zu 
bestehen. Daher hat für die Auswertung das Alter relativ zu 
den anderen Wünschen das größte Gewicht. Und für Leute, 
die es genau wissen wollen: Das Programm errechnet die 
relative prozentuale Altersabweichung vom Wunschalter und 
gibt für geringe prozentuale Abweichungen die höchsten 
Punktzahlen. Warum denn eigentlich prozentuale Abwei¬ 
chung? - Ganz einfach: Wenn man beispielsweise für einen 
älteren Menschen einen Partner sucht, ist eine Abweichung 
von fünf Jahren vom Wunschalter nicht so schlimm, als wenn 
man einem 13jährigen eine 18jährige Freundin »andrehen« 
möchte. 

Die Beurteilung der anderen Kriterien erfolgt auf ähnliche 
Weise, wie oben beschrieben. Trotzdem kann es manchmal 
zu merkwürdigen Partnervorschlägen kommen. In diesem 
Fall gibt eg wahrscheinlich keinen oder nur wenige Personen 
mit der richtigen Größe oder aus der richtigen Altersgruppe; 
dann gewinnen die anderen Kriterien an Gewicht und die 
Auswertung richtet sich mehr nach den Interessen und 
Eigenschaften der Personen. Deshalb sollten für eine realisti¬ 
sche Auswertung auch genügend Personen aus einer 
bestimmten Altersgruppe zur Verfügung stehen. 

Bitte machen Sie vor Verwendung dieses Programmes 
eine Kopie dieses Programmes auf eine separate Diskette, 
um bei eventuellen Beschädigungen der Originaldiskette 
nicht in Schwierigkeiten zu kommen und ausreichend Spei¬ 
cherplatz zur Verfügung zu haben. Das Kopieren des Pro¬ 
grammes auf eine andere Diskette erreichen Sie am einfach¬ 
sten, indem Sie es mit »LOAD "Partner",8« einladen und 
gleich mit »SAVE " Partner" ,8« abspeichern. Sie sollten auch 
von Ihrer Datendiskette regelmäßig Sicherheitskopien anle- 
gen (mit einem Programm zum Kopieren einer kompletten 
Diskettenseite), um sich bei Datenverlust das ärgerliche und 
zeitaufwendige neue Eintippen der Datei zu ersparen. Wäh¬ 
rend des Programmbetriebs sollten Sie nie das angeschlos¬ 
sene Diskettenlaufwerk ausschalten oder die von Ihnen ver¬ 
wendete Datendiskette entnehmen. Aus Geschwindigkeits¬ 
gründen wurde auf eine Sicherheitskontrolle beim Anspre¬ 
chen des Diskettenlaufwerks verzichtet; ist es also nicht 
angeschlossen oder abgeschaltet, »verabschiedet« sich das 
Programm. 


Bei einer Dateiauswertung mit Ausdruck der Ergebnisse 
übergeht das Programm automatisch einen Ausdruck, wenn 
kein aktiver Drucker angeschlossen ist. Es können Drucker 
mit der Gerätenummer »4« verwendet werden, die Sekundär¬ 
adresse kann im Programm von Ihnen selber gewählt werden 
(siehe hierzu »Listen ausgeben«). 

Wenn Sie Änderungen an der Partnerdatei vorgenommen 
haben, so sollten Sie auf keinen Fall vergessen, die Indexda¬ 
teien mit dem Befehl aus dem Hauptmenü zu sichern, da 
sonst beim nächsten Laden der Datei die alten Indexdateien 
verwendet werden. Immer wenn Ihre Indexdateien in Gefahr 
sind, werden Sie daraufhingewiesen. Haben Sie keine Ände¬ 
rungen vorgenommen, können Sie die Frage »Indexdatei 
gesichert (J/N)?« guten Gewissens mit < J> beantworten. 

laden und Starten 


1) Schalten Sie Ihren C 64, den Bildschirm und das Disket¬ 
tenlaufwerk ein. 

2) Legen Sie die Programmdiskette in das Diskettenlauf¬ 
werk, geben Sie »LOAD " Partner * ,8« ein und drücken Sie die 

< RETURN >-Taste. Nun wird das Programm geladen. 

3) Nach dem Laden des Programms erscheint die Meldung 
»READY.« auf dem Bildschirm. Jetzt geben Sie bitte »RUN« 
ein und drücken wieder < RETURN >. Daraufhin erscheint 
auf dem Bildschirm ein Bild mit dem Titel des Programms. 

4) Warten Sie etwa 20 Sekunden, bis unten auf dem Bild¬ 
schirm die Meldung »Tastendruck« erscheint. Das Programm 
ist nun betriebsbereit und wartet auf einen beliebigen Tasten¬ 
druck von Ihnen. Wenn Sie eine Taste gedrückt haben, wird 
das Hauptmenü sichtbar und Sie können mit Ihrer Arbeit 
beginnen. 

5) Voir.! .auptmenü aus können Sie die auf dem Bildschirm 
angezeigten Funktionen durch das Drücken der entspre¬ 
chenden Funktionstaste auswählen. Haben Sie eine Funk¬ 
tion ausgewählt, so wird sie ausgeführt, oder es erscheintein 
neues Menü mit weiteren Funktionen. In welchem Menü Sie 
sich befinden, wird in der Statuszeile am oberen Bildrand 
angezeigt. Hier erscheint auch immer eine Meldung, die Aus¬ 
kunft über das gibt, was das Programm von Ihnen erwartet 
(zum Beispiel »Warten Eingabe«, »Warten Tastendruck«) oder 
was es gerade tut (zum Beispiel »Speichern Daten«), In die¬ 
sem oberen Bildschirmbereich werden auch Ergebnisse, Ab¬ 
läufe und Fehler angezeigt sowie Eingaben für bestimmte 
Funktionen angenommen, doch darüber später mehr. 

6) Wollen Sie die Arbeit mit dem Programm beenden, so 
wählen Sie den Menüpunkt <F8> »Arbeit beenden«. Damit 
sie nach Änderungen in Ihrer Datei nicht vergessen, die 
Indexdateien zu sichern, erfolgt eine Sicherheitsabfrage. 
Haben Sie keine Änderungen vorgenommen oder schon die 
Indexdateien mit der Funktion <F2> des Hauptmenüs gesi¬ 
chert, so antworten Sie mit < J>. Antworten Sie jedoch mit 

< N >, so kehrt das Programm in das Hauptmenü zurück und 
Sie können mit der Funktion <F2> die Indexdateien 
sichern. 

Anlegen einer Datei 


1) Bevor Sie eine neue Datei anlegen, formatieren Sie vom 
Diskettenmenü aus eine Diskette. Um Ihre Datenbestände 
nicht zu gefährden und immer genug Platz für neue Listen 
und Daten zu haben, sollen Sie die Diskette nur für Ihre Datei 
und eventuell von Ihnen später angelegte Listen nutzen. 
Nach ausgiebiger Arbeit mit der Datei und den Listen sollten 
Sie die Diskette durch den VALIDATE-Befehl vom Disketten¬ 
menü aus aufräumen, um alle nicht benutzten Blöcke der Dis¬ 
kette wieder freizugeben. Dazu noch eine Anmerkung: Beim 
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Laden der Directory wird immer der rechnerisch freie Spei¬ 
cherplatz auf der Diskette angegeben. Die angegebene 
Anzahl freier Blöcke erhält man manchmal nur dann, wenn 
man wie oben beschrieben die Diskette aufräumt. Um also 
sicherzugehen, daß die freien Blöcke wirklich ansprechbar 
sind, unbedingt mit dem VALIDATE-Befehl arbeiten! 

2) Suchen Sie nun die Karteiverwaltung auf und legen Sie 
die leere und formatierte Diskette in Ihr Diskettenlaufwerk 
ein. 

3) Wählen Sie die Option »neue Datei anlegen« aus. Es 
erscheint oben im Statusbereich die Frage »Index gesi¬ 
chert?«; wenn Sie mit <N> antworten, springt das Pro¬ 
gramm zurück in die Karteiverwaltung und erzeugt keine 
Datei. Drücken Sie jedoch <J>, so werden Sie nach der 
Anzahl der gewünschten Datensätze Ihrer neuen Datei 
gefragt. Die maximale Anzahl beträgt 999. Wählen Sie lieber 
eine zu geringe Datensatzzahl, als eine zu große, denn eine 
zu kleine Datei können Sie später noch vergrößern, aber eine 
zu große Datei nicht mehr verkleinern. Der Vorteil einer klei¬ 
neren Datei ist eine geringere Wartezeit beim Speichern und 
Lesen der Indexdateien. 

4) Haben Sie Ihre Eingabe gemacht, so drücken Sie 
< RETURN >. Jetzt ist das Programm erst einmal mit dem 
Anlegen der Datei beschäftigt. Dieser Vorgang kann nach der 
Anzahl der Datensätze bis zu einigen Minuten beanspru¬ 
chen. 

5) Ist der Vorgang abgeschlossen, können Sie mit < F5 > 
die Option »Datei laden« anwählen und die neu erzeugte Datei 
bearbeiten. Vor der Beendigung der Arbeit mit dem Pro¬ 
gramm sollten Sie die Indexdateien mit < F2 > vom Haupt¬ 
menü aus sichern. Haben Sie keine Veränderungen vorge¬ 
nommen, ist die Sicherung nicht notwendig. 

6) Sollte Ihre Datei einmal zu klein geworden sein, so kön¬ 
nen Sie sie ohne Probleme erweitern. Sorgen Sie vorher 
dafür, daß die Indexdateien auf dem neuesten Stand sind. 

7) Nun wählen Sie die Option »neue Datei anlegen« an und 
geben die neue Datensatzanzahl an. Ist die angegebene 
Anzahl nicht größer als die bereits vorhandene Kapazität, so 
kehrt das Programm ohne Änderung in die Karteiverwaltung 
zurück; ansonsten werden sowohl die Datei als auch die 
Indexdateien vergrößert. 

8) Wollen Sie nun mit der Datei Weiterarbeiten, so laden Sie 
unbedingt die nun vergrößerte Datei mit <F5>, bevor Sie 
Weiterarbeiten, dann haben Sie den neuen Platz für weitere 
Einträge zur Verfügung. 

Um neue Einträge in eine bestehende Datei einfügen zu 
können, muß die Datei geladen sein. Dies können Sie an der 
Anzeige im Statusbereich erkennen. Hier wird entweder 
nichts angezeigt (wenn weder eine Liste noch Datei geladen 
ist) oder »Datei« für eine geladene Datei. Laden Sie eine Liste, 
erscheint die Meldung »Liste: Listenname«. Zu den Listen 
jedoch später mehr! 

Ausfüllen der Felder 


Haben Sie die Datei geladen, drücken Sie < Fl > in der Kar¬ 
teiverwaltung und wählen so die Option »neuer Eintrag« an. 
Es erscheint auf Ihrem Bildschirm die erste der zwei Formu¬ 
larseiten für einen Dateieintrag. Auf dieser ersten Seite sind 
verschiedene Angaben über Hobbys und Eigenschaften »an¬ 
zukreuzen«. In der oberen rechten Ecke des Formulars wird 
die Datensatznummer des neuen Eintrags angezeigt. Sie gibt 
Auskunft darüber, an welcher Stelle in der Datei der Daten¬ 
satzabgelegtwird. Beim Ausdruck von Listen erscheintauch 
diese Nummer. Wenn Sie die Zettel, die Sie für die Vermitt¬ 
lung ausfüllen ließen, mit der Datensatznummer kennzeich¬ 
nen und sie in dieser Reihenfolge ablegen, so können Sie die 
Zettel später schneller wiederfinden. 


Die Felder des Formulars müssen von Ihnen nach den Anga¬ 
ben der Partnervermittlung ausgefüllt werden. Existieren zu 
einer Kathegorie zwei Felder, so wird in das erste die Angabe 
zur eigenen Person eingetragen . In das zweite Feld kommt 
die Angabe über den Wunsch der Person. Zum Beispiel wird 
in dem ersten Feld der Kategorie »Alter« das Alter der Person, 
die den Zettel ausgefüllt hat, eingetragen und in das zweite 
Feld das Wunschalter seines Traumpartners. Die Angaben 
des Alters und der Größe müssen in vollen Dezimalzahlen 
erfolgen. In das Feld mit dem Namen »Geschlecht« muß für 
männliche Personen < M > und für weibliche Personen ein 
<W> eingetragen werden. Das Feld »Klasse« enthielt bei 
der Vermittlung in der Schule die Angabe über die Klassen¬ 
stufe der Person. Dieses Feld wird bei der Auswertung nicht 
beachtet, aber zur Identifizierung der Person mit ausgegeben. 
Sie können dieses Feld nach eigenen Vorstellungen nutzen. 
Am besten ist es zur Identifizierung der Person geeignet, 
dazu können Sie nach eigenen Wünschen einen Code ent¬ 
werfen oder eine andere Information über die Person mit auf¬ 
nehmen. 


Editorbefehle 

< DEL> - Benutzen Sie diese Taste, um in einem Feld das 
zuletzt stehende Zeichen oder die ganze Eingabe zu 
löschen. 

< RETURN > oder <CRSR down> - Der Cursor springt 
in das nächste Eingabefeld unterhalb des zuletzt gewählten 
Feldes. 

<SHIFT+RETURN > oder <CRSR up>- Der Cursor 
begibt sich in das nächste Feld oberhalb des jetzigen. Mit den 
vier obigen Befehlen kann auch eine Seite umgeblättert wer¬ 
den, wenn sich das nächste Feld auf der anderen Seite des 
Formulars befindet. 

<HQME> - Der Cursor springt an den Anfang der Seite 
oder aui der zweiten Seite an den Anfang eines Eingabe¬ 
blocks. 

<SHIFT+HOME> - Der Cursor springt an das Ende der 
Seite oder das Ende eines Eingabeblocks. 

< Pfeil nach links > - Die Dateneingabe wird beendet. Sie 
werden gefragt, ob Sie den erstellten Datensatz speichern 
wollen. 

Eingabehilfen 

Um Ihnen die Eingabe häufig auftretender Angaben zu 
ersparen, sind für die Felder »Körperbau«, »Haarfarbe«, 
»Haarlänge«, »Augenfarbe« und »Kleidung« die möglichen 
Eingaben schon vordefiniert und über einen Tastendruck zu 
erreichen. Hier eine Liste der Kriterien: 


Körperbau: 
1 - dünn 

2- zierlich 

3- schlank 

4- normal 

5- kräftig 

6- mollig 

7- dick 


Haarfarbe: 

1 - blond 

2- schwarz 

3- braun 

4- rot 


Haarlänge: 
1 - kurz 

2- normal 

3- lang 

4- grün 


Augenfarbe: 
1 - blau 

2- braun 

3- grau 

4- modern 


Kleidung: 

1 - normal 

2- sportlich 

3- konservativ 


Zusätzlich steht in diesen Feldern noch die Funktion < 0 > 
(egal) zur Verfügung. Ist es beispielsweise gleichgültig, wel¬ 
che Augenfarbe der gesuchte Partner hat, so trägt man in das 
zweite Feld vom Typ »Augenfarbe« mit dem Drücken der Taste 
<0> egal ein. 

Auf der zweiten Förmularseite befinden sich 64 Felder, von 
denen zwei jeweils einem Bereich zugeordnet sind. Die Fel¬ 
der werden durch Drücken der »»«-Taste »angekreuzt«. Um 
eine ordnungsgemäße Auswertung zu erreichen, sollten in 
jeder der vier Spalten genau fünf Felder angekreuzt werden. 
Die Felder der ersten und zweiten Spalte geben Auskunft 
über die Eigenschaften der Person und des gesuchten Part¬ 
ners. In der ersten Spalte sollten die fünf am besten auf die 
Person zutreffenden Felder angekreuzt werden. In der zwei- 
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ten Spalte die fünf am meisten gewünschten Eigenschaften. 
Die Spalten drei und vier geben die Interessensgebiete an 
(die dritte Spalte die eigenen und die vierte die gewünsch¬ 
ten). Beim Bearbeiten dieser Felder kontrolliert das Pro¬ 
gramm nicht, ob Sie ordnungsgemäß jeweils genau fünf Fel¬ 
der aus einer Spalte angekreuzt haben, deshalb sollten Sie 
selbständig darauf achtgeben. Bei den Vergleichen der 
Datensätze für eine Vermittlung wird nur dann eine vollstän¬ 
dige Übereinstimmung der Eigenschaften, die gewünscht 
wurden und die vorhanden sind, zu einer Trefferzahl von 
100 Prozent führen, wenn diese Regel eingehalten wurde. 
Sie können aber auch die Zahl der anzukreuzenden Felder 
verändern, nur wird sich dann die maximal erreichbare Pro¬ 
zentzahl für die Übereinstimmung der Datensätze verändern. 
Da jedes angekreuzte Feld der zweiten Seite 3,5 Prozent¬ 
punkte zählt, steigt die erreichbare Prozentzahl für das 
Ankreuzen von zum Beispiel sechs Feldern pro Spalte auf bis 
zu 114 Prozent an. 

Wollen Sie in einem Formular ein angekreuztes Feld 
löschen, so bewegen Sie den Cursor auf das Feld und 
drücken die < SPACE >-Taste. Haben Sie einen Datensatz 
fertig ausgefüllt, so drücken Sie die <Pfeil-nach-links>- 
Taste. Sie werden nun gefragt, ob Sie den Datensatz spei¬ 
chern wollen. Ist dies der Fall, so drücken Sie < J> und der 
C64 speichert den Datensatz an der richtigen Stelle ab. Je 
mehr Datensätze eine Datei enthält, desto länger kann der 
Einsortiervorgang dauern. Sollten Sie bei der Eingabe des 
Datensatzes eine notwendige Information vergessen oder 
falsch angegeben haben, wird das Programm Sie vor dem 
Speichervorgang darauf aufmerksam machen. Sie erhalten 
dann Gelegenheit, die Eingaben zu ergänzen oder zu berich¬ 
tigen. 

Suchen 

Um eine Person aus der Datei zu suchen, gibt es zwei Mög¬ 
lichkeiten. Laden Sie zuerst die Datei und rufen Sie die Option 
»Eintrag suchen« aus der Karteiverwaltung auf. Im Statusbe¬ 
reich erscheint eine Anzeige, die Sie nach der Datensatz¬ 
nummer der gesuchten Person fragt. Die Datensatznummer 
wird bei der Eingabe eines neuen Datensatzes immer rechts 
oben angezeigt. Zusätzlich wird die Datensatznummer auch 
auf den von Ihnen mit diesem Programm erstellten vollständi¬ 
gen Teilnehmerlisten mit ausgegeben. Die Nummer ist die 
Zahl vor dem Namen in der Personenliste. Wenn Sie die Num¬ 
mer aus der Liste wissen, geben Sie sie ein und drücken 
< RETURN >. Über die Angabe der Datensatznummer las¬ 
sen sich Personen wesentlich schneller finden, da das Pro¬ 
gramm mit der Datensatznummer direkt auf den Datensatz 
zugreifen kann. Somit entfällt der Suchvorgang in der ganzen 
Datei. Wenn Sie die Datensatznummer nicht wissen, drücken 
Sie < RETURN >, ohne etwas eingegeben zu haben. Nun 
werden Sie nach dem Namen der Person, die Sie suchen, 
gefragt. Geben Sie den Namen der Person ein. Achten Sie 
darauf, daß Sie den Namen genauso schreiben, wie Sie ihn 
in die Datei geschrieben haben, sonst kann das Programm 
die Person nicht finden. Nach der Eingabe des Namens folgt 
wie üblich < RETURN >. Jetzt geben Sie bitte das Ge¬ 
schlecht der Person durch <W> oder <M> an. Sind alle 
Eingaben abgeschlossen, beginnt das Programm mit der 
Suche nach der Person. Wird sie nicht gefunden, erscheint 
die entsprechende Fehlermeldung, sonst wird das Formular 
der Person dargestellt. Sie können das Formular neu bearbei¬ 
ten und Änderungen vornehmen. 

Bearbeiten 

Sind die Änderungen abgeschlossen oder wollen Sie zum 
Beispiel ein neues Formular betrachten, so drücken Sie die 
Pfeiltaste wie bei der Eingabe eines neuen Datensatzes. 
Allerdings stehen Ihnen nun andere Optionen zur Verfügung: 

< S > - Drücken Sie < S >, so können Sie den dargestell¬ 


ten Datensatz speichern und damit auch Änderungen über¬ 
nehmen. 

< L> - Drücken Sie < L>, so wird der aktuelle Datensatz 
aus der Datei gelöscht. Gehen Sie also vorsichtig mit dieser 
Funktion um! 

< + > - Mit < + > können Sie innerhalb der Datei weiter¬ 
blättern, um sich andere Datensätze anzusehen. War der 
zuletzt gewählte Datensatz männlich, so wird in der männli¬ 
chen Liste geblättert, entsprechendes gilt bei den Frauen. 

<-> - Diese Funktion blättert in der Datei zurück. 

<Pfeil-nach-oben> - Durch das Drücken dieser Taste 
gelangen Sie in den Bearbeitungsmodus, das heißt, Sie kön¬ 
nen den aktuellen Datensatz bearbeiten. 

<Pfeil-nach-links> -Sie kehren in die Karteiverwaltung 
zurück. 

Auswerten der Daten 


Listen ausgeben 

Wenn Sie sich einmal das Inhaltsverzeichnis Ihrer fertig ein¬ 
gerichteten Datendiskette anschauen, werden Sie sicherlich 
die vier Einträge für Ihre Datei entdeckt haben. Zwei der Ein¬ 
träge (»w.index« und »m.index«) enthalten die alphabetisch 
sortierten Listen der Teilnehmer, »w.index« die weiblichen 
und »m.index« die männlichen. Um einen Überblick über die 
Teilnehmer zu gewinnen wäre es interessant, diese Listen 
anzusehen oder auszudrucken. Natürlich wird Ihnen auch 
dieses ermöglicht. Ist eine Datei geladen, so suchen Sie das 
Hauptmenü auf und wählen mit <F3>die Option »Listen 
ausgeben«. Hier wird Ihnen angeboten, die Liste auf dem 
Bildschirm oder einem Drucker auszugeben. Mit < Fl > kön¬ 
nen Sie zwischen diesen Möglichkeiten wählen. Das jeweils 
angezeinte Ausgabemedium wird für die Ausgabe benutzt. 
Ebenso Können Sie mit der Option < F2 > entscheiden, ob 
Sie eine Liste der weiblichen oder männlichen Kandidaten 
ausgeben möchten. Mit < F3 > starten Sie die Listenerstel¬ 
lung bei dem ersten Listenelement. Die ganze Liste wird aus¬ 
gegeben. Wollen Sie ab einem bestimmten Listenelement 
starten, so wählen Sie <F5>. Anschließend geben Sie die 
Nummer des ersten Listenelements an. Wenn Sie zum Bei¬ 
spiel 10 angeben, startet die Liste bei der Person »Nummer 
10« (die erste Person hat die Nummer 01). Wollen Sie die 
Listenerstellung vorzeitig abbrechen, so drücken Sie die 
< Pfeil-nach-links > -Taste. 

Wenn Sie für die Ansteuerung Ihres Druckers eine andere 
Sekundäradresse benötigen, so betätigen Sie die <S>- 
Taste und geben die neue Adresse vor. Die Liste enthält die 
wichtigsten Informationen über die Personen. Die erste Zahl 
ist die laufende Nummer in der Liste, die zweite Zahl die 
Datensatznummer der Person. Über die Datensatznummer 
kann der Datensatz in der Karteiverwaltung schneller gela¬ 
den werden. Dann folgen Name, die Information im Feld 
»Klasse« und das Alter der Person. 

Listen erstellen 

Haben Sie eine Datei oder eine Liste geladen, können Sie 
aus den darin enthaltenen Datensätzen bestimmte, mit von 
Ihnen gewählten Eigenschaften, aussuchen und damit eine 
neue Liste erzeugen. So können Sie beispielsweise alle blon¬ 
den und blauäugigen Männer suchen und in eine neue Liste 
schreiben lassen. Wählen Sie dazu bitte die Option »Listen 
erzeugen«. Es erscheint das Ihnen schon bekannte Formular 
eines Datensatzes. Die Kriterien, nach denen Sie suchen 
wollen, tragen sie nach gewohnter Art in das Formular ein. 
Wichtig ist, daß Sie das Feld »Geschlecht« beim Ausfüllen 
nicht vergessen, denn sonst weiß das Programm nicht, ob es 
alle weiblichen oder männlichen Personen untersuchen soll. 

Wenn Sie zum Beispiel alle schlanken Frauen, die einen 
blonden Mann wünschen, suchen, dann tragen Sie in das 
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Feld »Geschlecht« ein <W> und in den vorderen Teil des 
Feldes »Körperbau« »schlank« ein. Die blauen Augen werden 
gesucht und deshalb in den zweiten Teil des Feldes »Augen¬ 
farbe« eingetragen. Nach diesem Verfahren können alle Infor¬ 
mationen gesucht werden. Sollten Sie versehentlich ein Feld 
mit vorgefertigten Antworten (zum Beispiel »Haarfarbe«) als 
Kriterium aktiviert haben, so desaktivieren Sie das Feld mit 
»0« (egal). 

Verlassen Sie das Formular mit <Pfeil-nach-links> und 
geben Sie den Namen Ihrer neuen Liste an. Das Programm 
durchsucht dann alle gleichgeschlechtlichen Datensätze 
nach Ihren Kriterien und verzeichnet die entsprechenden 
Datensätze in der Liste. Sie können den Suchvorgang mitver¬ 
folgen, da der momentan bearbeitete Datensatz in der linken 
oberen Bildschirmecke angezeigt wird. Entspricht er Ihren 
Kriterien, so wird er mit einem Stern < * > versehen. Auch 
hier kann der Suchvorgang vorzeitig durch <Pfeil-nach- 
links > unterbrochen werden. Sie können Ihre Listen für eine 
Auswertung von der Karteiverwaltung aus mit der Option 
»Liste laden« laden. Es erscheint im Statusbereich die Mel¬ 
dung »Liste: Listenname«. Wenn Sie zum Beispiel eine weibli¬ 
che Liste laden, wird die alte weibliche Liste überschrieben, 
doch die männliche Liste bleibt erhalten. Die männliche Liste 
könnte nun ebenfalls noch durch andere überschrieben und 
auf diese Weise zur Partnerneuauswertung benutzt werden. 

WICHTIG: Die Indexlisten der Datei sind keine normalen 
Listen und dürfen nicht als solche geladen werden! Wollen 
Sie die Indexlisten wieder laden, so laden Sie mit < F5 > die 
Datei. 

Dateiauswertung 

Das eigentliche Ziel des Programmes ist es, Ihnen die müh¬ 
same Auswertungsarbeit zu erleichtern beziehungsweise 
diese überhaupt zu ermöglichen. Schon bei 20 Personen, 
die Sie nach über 70 Kriterien möglichst optimal zuordnen 
wollen, werden Sie sehr bald feststellen, daß dies »per Kopf 
und Hand« fast unmöglich ist. Mit diesem Programm ist die 
Auswertung kinderleicht: 

Haben Sie die auszuwertenden Listen oder die Datei gela¬ 
den, so wählen Sie aus dem Hauptmenü die Option »Datei¬ 
auswertung« an. Hier steht Ihnen -wie in der Listenerstellung 
- die Wahl des Ausgabegerätes (Bildschirm/Drucker), der 
Sekundäradresse und des Geschlechtes frei. Wählen Sie 
den Drucker, so sollten Sie nicht vergessen, ihn auch einzu¬ 
schalten, sonst werden die Daten zwar auf dem Bildschirm 
ausgegeben, aber nicht gedruckt! Sie können, wie auch in 
der Listenerstellung, mit dem Auswerten bei der ersten Per¬ 
son oder ab einer bestimmten Person beginnen. In einem 
Arbeitsdurchgang werden die nächsten zwölf Personen der 
aktuellen Liste bearbeitet und Ihnen die fünf optimalsten Part¬ 
ner zugewiesen. Allerdings können die Partner nur dann wirk¬ 


lich optimal sein, wenn eine ausreichend große Auswahl vor¬ 
handen ist. Die Eigenschaften und Wünsche werden mit allen 
gegengeschlechtlichen Personen abgeglichen, und das Maß 
der Übereinstimmung wird durch eine Zahl zwischen 0 und 
100 ausgedrückt. Bei der Auswertung werden die Ranglisten 
der Vermittlung auf dem Bildschirm dargestellt. Jeweils drei 
Datensätze mit Ihren Ranglisten passen auf einen Bildschirm, 
deshalb gibt es insgesamt vier Bildschirme, zwischen denen 
Sie mit den Funktionstasten wählen können (< Fl >/ < F3 > / 
<F5> und <F7> für die Bildschirme 1-4). Ist die Auswer¬ 
tung in Betrieb, dauert die Umschaltung etwas länger. 

Darstellungsweise für eine Rangliste der Auswertung: 


Name 

Klasse 

Alter 

Größe 


Paul Muster 

10a 

16 

182 


Nr. Name 

Klasse 

Alter 

Treffer 

Resonanz 

1 Hannelore X. 

9b 

15 

78% 

69% 

2 Petra Testper. 

9b 

15 

72% 

70% 

3 Melanie Z. 

9c 

16 

70% 

67% 

4 Angela A. 

10c 

16 

68% 

59% 

5 Maren 

9a 

15 

65% 

60% 


Treffer 

Die Trefferprozentzahl gibt an, in welchem Maß die Person 
den Ansprüchen der suchenden Person genügt. Prozentan¬ 
gaben über 70 Prozent sind ein Zeichen dafür, daß die Perso¬ 
nen recht gut zusammenpassen. Erscheinen keine ausrei¬ 
chend hohen Werte, so sind keine Personen vorhanden, die 
den geforderten Ansprüchen genügen. 

Resonai.- 

Die Resonanz ist wichtig, um beurteilen zu können, ob die 
suchende Person auch den Ansprüchen der ihr vermittelten 
Person entspricht. Zum Beispiel eine Person, die zu 89 Pro¬ 
zent den angegebenen Wünschen entspricht, kann umge¬ 
kehrt eine Resonanz von nur 39 Prozent abgeben, also von 
dem Vermittlungsvorschlag nicht begeistert sein . In diesem 
Fall wäre ein Paar mit weniger Trefferprozenten (75 Prozent), 
aber höherer Resonanz (72 Prozent) wahrscheinlich viel har¬ 
monischer. 

Erstellen der Vermittlungslisten 

Wie oben beschrieben, können Sie die Vermittlungslisten 
auf dem Bildschirm oder dem Drucker erstellen. Wollen Sie 
den Durchlauf unterbrechen, so drücken Sie <Pfeil-nach- 
links >. Nachdem der aktuelle Datensatz fertig verglichen 
wurde, erscheint der Statusbereich mit dem Zustand, in dem 
er sich beim Anhalten der Auswertung befunden hat. 
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Sie können zwischen den vier Seiten weiterhin mit den 
Funktionstasten umschalten und sich die Rangliste genauer 
betrachten. 

Wenn Sie die Auswertung fortsetzen wollen, drücken Sie 
dazu bitte eine beliebige Taste, außer den Funktionstasten 
und < Pfeil-nach-links>. Die Auswertung wird mit den näch¬ 
sten zwölf Teilnehmern fortgesetzt, die durch die < Pfeil- 
nach-links>-Taste abgebrochene Auswertung der letzten 
zwölf Teilnehmer wird nicht zuende geführt. Wollen Sie die 
Auswertung verlassen, dann drücken Sie <Pfeil-nach- 
links >. Sie gelangen dann in das Menü der Dateiauswertung 
zurück. 

Verwendung von Listen 

Bei der Dateiauswertung ist es unwichtig, ob Sie die Teil¬ 
nehmer der Datei, der Datei und einer Liste oder zweier eige¬ 
ner Listen zuordnen. Auf diese Weise kann man gezielt Listen 
erstellen und untereinander oder mit der Datei auswerten. 
Haben Sie beispielsweise die Datei geladen und anschlie¬ 
ßend eine weibliche Liste mit dem Kriterium »blaue Augen« 
erzeugt und dazugeladen, so bleibt die männliche Liste der 
Datei erhalten und Sie können gezielt blauäugige Frauen 
vermitteln. Dies funktioniert natürlich auch mit zwei Listen, 
zum Beispiel eine weibliche Liste mit dem Kriterium »schlank« 
und eine männliche Liste mit dem Kriterium »suche schlank«. 
Auf diese Weise läßt sich Zeit bei der Suche nach Partnern 
sparen. 

Weitere Möglichkeiten 

Wenn Sie aus dem Hauptmenü die Option »Floppy Kom¬ 
mando« wählen, gelangen Sie in das Diskettenmenü, wel¬ 
ches Ihnen die Arbeit mit der Diskette erleichtern soll: 
Directory 

Sie können mit < Fl > das Inhaltsverzeichnis der im Lauf¬ 
werk befindlichen Diskette auf dem Bildschirm ausgegeben 
lassen. Die angegebene Zahl der freien Blöcke auf der Dis¬ 
kette bezieht sich auf die physikalisch vorhandene Anzahl der 
freien Blöcke, diese muß nicht immer mit der momentan ver¬ 
fügbaren Anzahl übereinstimmen. Durch einen VALIDATE- 
Befehl (»V«) werden alle ungenutzten Blöcke freigegebenen 
und die Zahl der als frei verzeichneten Blöcke stimmt wieder 
mit der Anzahl der physikalisch vorhandenen überein. 
Disk-Befehle 

Mit <F3> können Sie alle erlaubten Diskettenbefehle 
senden. 

Wer die in der Datei abgelegten Daten auch für andere 
Anwendungen, (wie zum Beispiel eine statistische Auswer¬ 
tung) benötigt, den dürfte sicherlich interessieren, wie er mit 
einem eigenen Programm auf alle Informationen der Daten¬ 
bank zugreifen kann. 

Die Daten sind wie folgt aufzuschlüsseln: 


Datensatzlänge 

108 Byte 


Namensfeld 

20 Byte 01-20 


Geschlecht 

1 Byte 21 

-erlaubt sind <W> und <M> 

Klasse 

3 Byte 22-24 

-Inhalt beliebig 

eigenes Alter 

2 Byte 25-26 

-Inhalt 00 bis 99 

gewünschtes 

2 Byte 27-28 


eigene Größe 

3 Byte 29-31 

-Inhalt: dreistellige Dezimalzahl 

gewünschte 

3 Byte 32-34 


Felder für 
Äußerlichkeiten 

1 .Byte 

eigene Angabe 


2.Byte 

gesuchte Angabe 

Körperbau 

2 Byte 35,36 


Haarfarbe 

2 Byte 37,38 

Nummer der gewählten Funktion 

Haarlänge 

2 Byte 39,40 

de9 Feldes an: etwa 0=egal 

Augenfarbe 

2 Byte 41,42 

oder Feld »Augenfarbe« 1=blau 

Kleidung 

2 Byte 43,44 


Felder für 
Eigenschaften 

1 .Byte 

eigene Eigenschaft und 


2. Byte 

Interessen 

gesuchte Eigenschaft 


Eigenschaften: 

höflich 

45,46 

Interessen: 

Schule/Arbeit 

77,78 

hilfsbereit 

47,48 

Haushalt 

79,80 

charmant 

49,50 

Kirche 

81,82 

humorvoll 

51,52 

Kinder 

83,84 

zärtlich 

53,54 

Politik 

85,86 

romantisch 

55,56 

Kunst/Kultur 

87,88 

intelligent 

57,58 

Musik 

89,90 

selbstbewußt 

59,60 

Basteln/Malen 

91,92 

ehrgeizig 

61,62 

Sport 

93,94 

ernsthaft 

63,64 

Tanzen/Parties 

95,98 

treu 

65,66 

Kochen 

97,98 

ehrlich 

67,68 

Lesen 

99,100 

tolerant 

69,70 

Technik 

101,102 

häuslich 

71,72 

Haustiere 

103,104 

bescheiden 

73,74 

Natur 

105,106 

spendabel 

75,76 

Reisen 

107,108 


Nicht angekreuzte Felder enthalten eine »0« und die ange¬ 
kreuzten Felder sind in ihrem Byte mit einer »1« gekennzeich¬ 
net. 

Aufbau der Indexdateien 

Nun wissen Sie schon, wie Sie die Informationen der ein¬ 
zelnen Datensätze wiederfinden und rekonstruieren können. 
Doch die Datensätze stehen unsortiert in der relativen Datei 
und Sie wissen nicht, wie viele Datensätze in der Datei enthal¬ 
ten sind. Wo welche Datensätze stehen und welche belegt 
sind, ist aus den Indexdateien zu entnehmen. Es gibt insge¬ 
samt drei Indexdateien: 

rel.liste 

In dieser Datei sind alle Datensätze mit einem Eintrag ver¬ 
zeichnet. Der erste Wert enthält die Anzahl der Datensätze, 
für die cC;. Datei derzeit maximal dimensioniert ist. Danach 
folgt das Verzeichnis der Datensätze in der Reihenfolge, die 
auch in der relativen Datei eingehalten ist. Der erste verzeich- 
nete Datensatz entspricht dem Eintrag Nummer 0 aus der 
relativen Datei, der zweite dem Eintrag Nummer 1 und so wei¬ 
ter. Ist ein Datensatz der relativen Datei belegt, so steht eine 
»1« in dem entsprechenden Eintrag der Indexdatei. Ist der 
Datensatz von Ihnen noch nicht belegt oder schon wieder 
gelöscht worden, so wird er mit einer »0« in der Indexdatei 
gekennzeichnet. Über die Datei »rel.liste« können Sie also 
feststellen, welcher Datensatz belegt und auf wieviele Sätze 
die Datei ausgelegt worden ist. 
w.index/m.lndex 

Die Indexdateien sind nach dem Geschlecht getrennte und 
alphabetisch aufsteigend sortierte Listen, in denen die jewei¬ 
lige Datensatznummer des entsprechenden Datensatzes 
verzeichnet ist. Der erste Wert der Dateien entspricht der 
Anzahl der verzeichneten Datensätze. Bei 125 weiblichen 
Datensätzen wäre also der erste Wert von »w.index« =125. 
Die nachfolgenden Werte entsprechen der Datensatznum¬ 
mer des entsprechenden Datensatzes. Die von Ihnen selbst 
erzeugten Listen unterscheiden sich dadurch, daß der erste 
Wert der Liste nicht die Anzahl der Einträge enthält, sondern 
eine »0« für eine weibliche Liste oder eine »1« für eine männ¬ 
liche. 

Mit diesen Informationen und etwas Erfahrung im Program¬ 
mieren können Sie leicht auch durch eigene Programme auf 
die Datei zugreifen. Sie sollten sich dazu eventuell noch 
genauer mit der Floppy-Programmierung beschäftigen. Tips 
hierzu finden Sie im Bedienungshandbuch der Floppy (Kapi¬ 
tel 6,7 und 8). Bevor Sie mit sonstigen Programmen auf die 
Datei zugreifen, fertigen Sie bitte sicherheitshalber eine 
Kopie der Datendiskette. 

An dieser Stelle bleibt eigentlich nur noch, viel Spaß und 
Erfolg bei der »Arbeit« zu wünschen. 

(Hans-Peter Traub/bj) 
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4c39 X 48 d2 35 13 43 74 db fa d7 

4c4I x 46 dd 7e de 25 0e 22 87 4c 

4c49 x el 6a d3 dB 5b a5 13 c7 2e 

4c51 x p3 20 43 56 4a 3f 9c 5b aB 

4c59 l dB cB 66 32 55 9f af 4d 21 

4c61 l 57 e8 de 3a 99 4e f6 31 f5 

4c69 x 73 f4 26 4f B2 91 9e 82 fe 

4c71 x 46 64 ce cb 99 3d 75 d7 lf 

4c79 x 10 85 c5 52 21 94 a8 29 b3 

4cBl x 13 C0 15 29 2e a3 c4 17 a0 

4c89 x 91 9b 5a 3a 94 a4 19 4B 29 

4c91 x 5b c7 c9 3a f5 a3 0d b2 a0 

4c99 x 00 6d bf B5 d3 lb 62 Bl 93 

4cal x b6 f6 9d 3d f2 00 69 la ea 

4ca9 x bf bd lb ld d7 93 53 62 dd 

4cbl x el 84 33 37 cS 59 fa e3 63 

4cb9 x 6c fd 15 87 b9 03 56 7e 64 

4ccl x el 86 af fc 79 83 63 c9 46 

4cc9 l a9 bl 03 6f 92 bf bd 65 e2 

4cdl l c3 11 b7 51 7b 20 36 37 35 

4cd9 x c5 5a de 51 ab 0d B2 9e 17 

4cel x el Bd d4 5e 18 0d B4 2b de 

4ce9 x ca 35 61 b0 55 9c 30 36 24 

4cf1 I c3 61 15 9c 6e 63 4e be f6 

4cf9 x fc 0b 88 59 ea 44 f0 32 cl 
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4dl9 x Bc el le fd 77 ef ca b6 6d 
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4d39 x fl cB 41 lc a8 2f c7 20 cb 

4d41 x a8 e5 41 7e 39 14 dl ca 0d 

4d49 x 82 fc 72 30 91 ca 83 17 98 

4d51 x d2 82 fc 72 31 91 ca 83 c4 

4d59 x 17 d2 7c 39 19 4f f2 a3 3f 

4d61 x 0d 42 9f 99 dl 7e bb f4 94 

4d69 x le 70 5f ec 5e 77 68 38 e8 

4d71 x 91 Bc 39 0b a0 e0 cc 61 ff 

4d79 x 98 bb fl cB 19 9b 17 99 82 

4dBl x 53 26 4c 8d 9a 67 22 19 4c 

4d89 x 13 f 6 21 cb 4d 5b 38 64 32 

4d91 X 4e 4c 39 69 ba b3 86 44 6d 

4d99 x fe 68 72 d3 el 72 21 91 3c 

4dal x 3d b7 22 19 13 ad e3 43 la 

4da9 x 22 6e 7b aB 64 4d c9 61 91 

4db1 x 91 37 34 el 91 37 38 50 7b 

4db9 x c8 9a 97 f0 c8 9d 03 21 9a 

4dc 1 x 91 3e 17 0a 19 13 el 6d 05 

4dc9 x al 91 3a 0a 43 22 6a 43 78 

4dd1 x 96 9e db 36 19 13 db 19 40 

4dd9 x 0c 89 fB 0d al 91 3d b4 8f 

4del x 39 69 ba 73 0c 89 f0 bf 3c 

4de9 x 14 32 26 eb f4 43 22 7c 08 

4df1 x 28 72 d3 90 e6 19 13 el a0 

4df9 x 36 86 44 e3 ab 0c 89 b9 b5 

4e01 x 56 19 13 32 b4 32 27 23 af 

4e09 x ec 43 22 6e 5c c3 22 72 3f 
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4e49 x 90 cB 9e da 3c 32 27 Bb 49 

4e51 l 0o 5a 66 16 19 13 32 9c 15 

4e59 i 32 27 24 b0 cB 9c 9a 70 fb 

4e61 x c8 9c Bc fB 64 4f 37 16 B3 

4e69 x 19 13 bf c5 86 44 e9 62 ab 

4e71 x c3 22 72 2f 21 91 3c 5c 10 

4e79 x 58 64 4f c0 32 19 13 92 4d 

4eBl x da 19 13 a5 fc 61 91 39 f5 

4e89 x lf 76 19 13 a5 3a 19 13 44 

4e91 x 91 e0 43 22 72 64 43 22 43 

4e99 x 71 f8 50 c8 9f 6a lc b4 db 

4eal x f5 f0 e5 a7 f3 36 86 44 10 

4ea9 x fd 86 d0 c8 99 92 61 91 0d 

4ebl I 37 3c BB 64 4e 24 39 69 73 

4eb9 x d0 87 2d 35 6c 43 22 71 Bb 

4ec1 x 2c el 91 3a 16 70 cB 9a c7 

4ec9 x bf d5 0c 89 ab ec 43 22 lb 

4edl x 74 ac el 91 35 7c 68 64 e7 

4ed9 x 4d 5d bc 32 26 e6 lc b4 be 

4eel x de d9 c3 22 66 7e 28 64 a3 

4ee9 x 4e 45 9c 32 26 a5 9c 32 ae 

4ef1 x 26 eb 36 19 13 bl b7 86 68 

4ef9 x 44 e4 d5 86 44 C0 ff ff 40 
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Prima Klima mit dem C64 


Werden Sie mit dem C64 zum »professionellen« 
Klimaforscher. Daten, wie sie aus guten Geogra¬ 
phiebüchern zu entnehmen sind, können mit 
»KLIMA 64« leicht und schnell verwaltet und gra¬ 
fisch ausgewertet werden. 

W er mehr über das Klima eines bestimmten Ortes der 
Welt wissen will, benötigt monatliche Durchschnitts¬ 
werte der Lufttemperatur und der Niederschläge. 
Diese findet man zum Beispiel auch in Atlanten, Lexika und 
auch in Reisewetterberichten des ADAC für die einzelnen 
Monate an den verschiedenen Orten. Klima 64 berechnet 
aus eingegebenen numerischen Daten ein Diagramm, das 
auch weitere Informationen enthält (siehe Bild 1). Die Text¬ 
ausgabe erfolgt hierbei in einer eigenen, gut lesbaren Pro¬ 
portionalschrift (mit 64 Zeichen pro Zeile), wodurch auch das 
Mischen von Text und Grafik möglich ist. Fertig erstellte Dia¬ 
gramme können mit einer geeigneten Hardcopy-Routine aus¬ 
gedruckt werden. 

Das Programm wird mit »LOAD"KLIMA 64",8« geladen 
und mit »RUN« gestartet. Nach ungefähr 3 Sekunden er¬ 
scheint das Titelbild, nach weiteren 30 Sekunden meldet 
sich das Programm mit dem Programmpunkt »Diskette indi¬ 
zieren«. 

Alle Eingaben erfolgen über die Tastatur. Hierbei sind vier 
Eingabearten zu unterscheiden: 

Text- und Zahleneingabe 

Mit der < RETURN> -Taste wird die Eingabe beendet, mit 
< INST/DEL> wird das bisher Eingegebene wieder vollstän¬ 
dig gelöscht. Wenn sich zuvor bereits ein Text oder eine Zahl 
im Eingabefeld befand, so kann sie mit < = > bestätigt und 
als Eingabe übernommen werden. Als Eingabe sind alle 
Groß- und Kleinbuchstaben sowie alle Zahlen und Satzzei¬ 
chen außer den Anführungsstrichen (< SHIFT+2 >) erlaubt. 
Hinzu kommen noch die Umlaute ä, ö und ü auf den Tasten 
<Klammeraffe>, <*> und <Pfeil-hoch> sowie das »ß« 
auf der < Pfund > -Taste. 

Die Bestätigung mit der <RETURN>-Taste: 

Taucht überall da auf, wo auf mögliche Fehler aufmerksam 
gemacht wird, oder aber an Stellen, wo aufgrund einer 
manuellen Veränderung an der Hardware angehalten werden 
muß (zum Beispiel beim Diskettenwechsel). Als Eingabe ist 
hier ausschließlich < RETURN > erlaubt. 

Die Optionsabfrage (JA/ NEIN): 

Diese Abfrage wird zumeist bei Sicherheitsabfragen ver¬ 
wendet, um so Irrtümer durch eine Rücknahmemöglichkeit 
weitgehend auszuschließen. Erlaubte Eingaben sind »J« für 
Ja und »N« für Nein. 

Menü-Wahl mittels Zahlentasten: 

KLIMA 64 verfügt über zwei Menüs (das Haupt- und das 
Dienstmenü), in denen verschiedene Programmpunkte auf¬ 
geführt sind und angewählt werden können. Die Wahl 
geschieht durch einfaches Eingeben der vor dem Menü¬ 
punkt befindlichen Zahl. 

Die Ausgabe geschieht, wie bereits erwähnt, vollständig in 
Proportionalschrift auf HiRes-Ebene. Dies hat den Vorteil, 
daß mehr Zeichen auf den Bildschirm passen und ein beliebi¬ 
ges Mischen von Text und Grafik möglich ist. Außerdem ent¬ 
steht durch die Proportionalschrift ein ausgesprochen 
geschlossenes und daher gut lesbares Schriftbild. 

Um Fehler zu vermeiden, sollten Sie die aktuelle Datendis¬ 
kette möglichst im Laufwerk belassen, solange Sie mit KLIMA 
64 arbeiten, es sei denn, das Programm fordert Sie auf, eine 
andere Diskette einzulegen. KLIMA 64 verwaltet zwei 


Dateien: eine relative Datei, in der die Klimawerte (Temperatur 
und Niederschlag) gespeichert werden, und eine sequen¬ 
tielle Indexdatei, in der die Ortsnamen gespeichert sind. 
Während die relative Datei ständig aktualisiert wird, befindet 
sich die Indexdatei ständig im Speicher, um einen schnelle¬ 
ren Datenzugriff zu ermöglichen. Deshalb kann es zu Daten¬ 
verlusten kommen, wenn der Index (die Ortsnamenliste) 
nicht korrekt auf die Diskette zurückgeschrieben wird. An 
den entsprechenden kritischen Punkten, zum Beispiel im 
Programmpunkt »Programm beenden«, erkennt KLIMA 64 
selbständig, ob die Indexdatei aktualisierungsbedürftig ist. In 
diesem Fall werden Sie gefragt, ob Sie eine Aktualisierung 
vornehmen wollen. Wenn Sie sich noch nicht näher mit dem 
System vertraut gemacht haben, sollten Sie an dieser Stelle 
immer »J« für Ja eingeben. 

Die in dem Hauptmenü aufgeführten Unterprogramme kön¬ 
nen mit den Zahlen vor den einzelnen Funktionen aufgerufen 
werden. 

<1 > Klimawerte eingeben 

Es wird ein Formular (Bildschirmmaske) angezeigt, in die 
Sie die Temperatur- und Niederschlagswerte für jeden Monat 
sowie den Namen des entsprechenden Ortes eintragen. Bei 
der Eingabe sind folgende Grenzwerte zu beachten: Tempe¬ 
raturwerte liegen zwischen +50 und -50 Grad Celsius, Nie¬ 
derschlagswerte sollten zwischen 0 und 350 Millimeter lie¬ 
gen, um eine korrekte grafische Darstellung zu gewährlei¬ 
sten. Nach der Eingabe wird eine Abfrage auf Korrektheit 
unternommen, die es Ihnen ermöglicht, Ihre Eingabe noch¬ 
mals zu revidieren. Sodann wird generell gefragt, ob der ein- 
gegebe- .• Ort überhaupt übernommen werden soll, eine 
Abfrage für diejenigen also, die ihre Meinung im Verlaufe der 
Eingabe geändert haben oder aber nur versehentlich in den 
Menü-Punkt »Klimawerte eingeben« gelangt sind. 

<2> Klimadiagramm erstellen 

Nachdem Sie den Ort angegeben haben, von dem Sie das 
Diagramm erstellen lassen möchten, wird kurz auf die relative 
Datei zurückgegriffen und dann gezeichnet. Der Betrag der 
Strecke zwischen zwei Monaten entspricht hierbei dem 
Betrag der Strecke 10 mm oder dem Betrag der Strecke 5 
Grad Celsius auf der gezeichneten Skala. Niederschlags¬ 
werte, die über 100 mm hinausgehen, werden in lOfach ver¬ 
kleinertem Maßstab gezeichnet; für Temperaturen im negati¬ 
ven Bereich wird die Skala der Temperaturwerte entspre¬ 
chend erweitert. Diese Skalierung entspricht einem ge¬ 
bräuchlichen und weitverbreiteten Standard. Nachdem 
Temperatur- und Niederschlagskurve gezeichnet worden 
sind, wird das Diagramm bearbeitet: alle Bereiche, in denen 
die Niederschlagskurve oberhalb der Temperaturkurve liegt, 
werden als »humid« (lat. feucht, naß) definiert und senkrecht 
schraffiert; alle Bereiche, in denen die Niederschlagskurve 



Statistik 

Humides Klima: 50 t 
flrrides Klima: 50 * 
Temperaturen: 
hin.: 20 (Januar) 

Max.: 3i (Bpril) 
Durchschnitt: 26 
Niederschlag: 

Min.: 3 mm (Dezember) 
Max.: 322 mm (Juli) 
Durchschnitt: 123 mm 
Gesamt: iM77 mm 


Bild 1. Klimadiagramm und -Statistik von Kalkutta 
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unterhalb der Temperaturkurve liegt, heißen »arid« (lat. 
trocken, dürr) und werden mit Punkten gefüllt. Weiterhin wer¬ 
den gegebenenfalls Bereiche, in denen die Niederschlags¬ 
werte größer als 100 mm sind, oberhalb der 100-mm-Marke 
ausgefüllt. Über das Diagramm kommt der Name des Ortes, 
daneben eine Statistik mit den Punkten: 

- Anteile Arridität/Humidität in %, 

- Temperaturextrema und Durchschnittstemperatur, 

- Niederschlagsextrema sowie 

- Durchschnitts- und Gesamtniederschlag. 

Nach Fertigstellung besteht die Möglichkeit, eine Hardcopy 
anzufertigen. 

<3> Hilfsprogramme 

Hilfsprogramme erleichtern Ihnen die Handhabung der 
Datei. Die Beschreibung der einzelnen Unterprogramme 
folgt unter dem Punkt »Dienstprogramme«. 

<4> Programm beenden 

Nach einer Sicherheitsabfrage wird ein System-Reset 
durchgeführt. Falls notwendig, wird hier zuvor angeboten, die 
Indexdatei zu aktualisieren, das heißt auf Diskette zu sichern. 

Dienstprogramme 


Wählt man im Hauptmenü »Hilfsprogramme« an, so erscheint 
das Hilfsmenü mit folgenden Punkten: 

<1 > Klimawerte ausgeben 

Hier werden die Klimawerte eines Ortes ausgegeben, und 
zwar im selben Formular, das auch im Hauptmenü-Punkt »Kli¬ 
mawerte eingeben« verwendet wurde. 

<2> Klimawerte ändern 

Zunächst werden die Werte eines Ortes wie oben ausge¬ 
geben, können dann aber zusätzlich noch vom Anwender 
verändert werden. Hier macht sich besonders die Taste 
< = > bei der Text- und Zahleneingabe nützlich, da mit ihr der 
vorher im Eingabefeld befindliche Wert direkt übernommen 
werden kann und nicht vollständig neu eingegeben werden 
braucht. 

<3> Erfaßte Orte ausgeben 

Es werden alle erfaßten Orte zweispaltig ausgegeben. Ist 
eine Bildschirmseite voll, muß < RETURN > gedrückt wer¬ 
den. 

<4> Indexdatei aktualisieren 

Hier können Sie sozusagen »per Hand« aktualisieren. 
Besonders bei der Eingabe größerer Datenmengen emp¬ 
fiehlt es sich, die Indexdatei von Zeit zu Zeit auf den neuesten 
Stand zu bringen. Im Eifer des Gefechts kann es nämlich 
durchaus Vorkommen, daß man nach der letzten Eingabe den 
Computer einfach ausschaltet, ohne vorher »Programm 
beenden« angewählt zu haben, was den weiter oben erklär¬ 
ten Datenverlust zur Folge hätte. 

<5> Andere Diskette indizieren 

Nach einem eventuellen Angebot, die Indexdatei zu aktuali¬ 
sieren, werden Sie aufgefordert, eine Datendiskette in Ihr 
Laufwerk zu legen. Nachdem Sie < RETURN > gedrückt 
haben, wird die Indexdatei der Datendiskette, eingelesen. In 
der Praxis zeigt sich jedoch, daß eine Datei, die für 256 Orte 
ausgelegt ist, völlig ausreicht. Falls wider aller Erwartung den¬ 
noch mehr als 256 Orte erfaßt werden sollen oder Datendis¬ 
ketten spezifiziert sein sollen (zum Beispiel Datendiskette 1 
für Europa, Datendiskette 2 für Nordamerika), wird ein Wech¬ 
sel der Datendisketten nötig und damit eine erneute Indizie¬ 
rung (Einlesen der Indexdatei). 

<6> Neue Datendiskette anlegen 

Auch hier wird gegebenenfalls der Index aktualisiert, bevor 
es zur Aufforderung kommt, eine formatierte Diskette ins 
Laufwerk zu legen. Hier ist es möglich, die Prozedur abzubre¬ 
chen, indem »N« für Nein beantwortet wird. Andernfalls fin¬ 
den drei Prüfvorgänge statt: 


Zunächst wird überprüft, ob sich überhaupt eine Diskette 
im Laufwerk befindet, beziehungsweise ob diese bereits for¬ 
matiert ist. 

Danach wird getestet, ob der von einer relativen Datei und 
einer größtmöglichen Indexdatei benötigte Platz von 73 
Blocks überhaupt vorhanden ist. 

Wenn ja, wird festgestellt, ob sich bereits eine Datei auf der 
Datendiskette befindet. 

Werden diese Kontrollen alle anstandslos passiert, so 
erscheint die Meldung »Bitte warten...«. Das Anlegen der 
Datei dauert ungefähr 30 Sekunden. Es wird lediglich eine 
relative Datei angelegt. Auf diese Prozedur kann theoretisch 
verzichtet werden, da eine relative Datei beim ersten Schreib¬ 
zugriff ohnehin angelegt würde, in der Praxis bedeutet ein 
einmaliges anfängliches Anlegen jedoch einen nicht uner¬ 
heblichen Zeitgewinn beim Schreiben neuer Datensätze. 
<7> Zurück zum Hauptmenü 

Dieser Punkt erklärt sich von selbst. 

Da KLIMA 64 mit recht hohem grafischen Aufwand pro¬ 
grammiert wurde, ist eine nähere Betrachtung des Proportio- 
nalschrift-Ein-/Ausgabe-Moduls besonders interessant. 

Ein Teil des Systems, das Entpackerprogramm für ganze 
Grafikseiten nämlich, befindet sich bereits im Lader »KLIMA 
64« (Listing 1), der das Hauptprogramm »KLIMA 64/A« 
(Listing 2) nachlädt. Die dazugehörigen Bilder »KLIMA 64/B« 
(Titelbild, Listing 3) und »KLIMA 64/C« (Standarddiagramm, 
Listing 4) weisen das folgende Format auf: erstes Byte ist das 
sogenannte Code-Byte; alle darauffolgenden Bytes sind Da¬ 
tenbytes, das Ende wird gekennzeichnet durch die Kombina¬ 
tion Code-0. Beim Dekodieren geschieht nun folgendes: Die 
Daten werden Byte für Byte aus einem Pufferbereich gelesen 
und in die Grafikseite geschrieben; stößt der Computer 
jedoch auf ein Codebyte, so gibt die dem Code-Byte fol¬ 
gende Zz.\ die Anzahl der Wiederholungen an (bei 0 wird die 
Prozedur abgebrochen) und das dem Wiederholungsbyte 
folgende Byte das zu schreibende Bitmuster. Trifft der Com¬ 
puter beispielsweise auf die Kombination Code-44-255, so 
wird das Bitmuster der Zahl 255 44mal hintereinander in die 
Grafikseite geschrieben. Beim Ladevorgang geschieht nun 
folgendes: Das (gepackte) Titelbild wird in den Pufferbereich 
geladen, entpackt und angezeigt. Jetzt wird das (gepackte) 
Standarddiagramm in den Puffer geladen; seine Entpackung 
geschieht bei Bedarf im Hauptprogramm. Zur Speicherauftei¬ 
lung gibt Tabelle 1 Auskunft. 

Das Kernprogramm schließlich ist das Programm »KLIMA 
64/D« (Listing 5). Es enthält alle Routinen zur Darstellung der 
Grafik und der Proportionalschrift. Besonderes Gewicht 
wurde hierauf Geschwindigkeit gelegt: die Routinen arbeiten 
teilweise sogar schneller als die Standardausgabe auf dem 
LowRes-Bildschirm. Der LINE-Befehl baut auf dem Beitrag 
»Schneller Drawline-Algorithmus« in der 64’er 4/84 auf und 
ist somit ebenfalls höchst effizient. 

»KLIMA 64/E« (Listing 6) enthält den Proportional-Zei- 
chensatz. 

Das Programm »KLIMA 64/F« (Listing 7) schließlich ermög¬ 
licht den parametrisierenden Aufruf der Proportionalschrift- 
Ein-/Ausgabe-Routinen von Basic aus. Die Adressen sowie 
die benötigten Parameter der Routinen entnehmen Sie bitte 
Tabelle 2. 

Das Kopierprogramm (Listing 8) ist erforderlich zum Kopie¬ 
ren der verwendeten Dateien. 

Um mit KLIMA 64 zu arbeiten, benötigen Sie Datensätze 
mit den Klimawerten ausgewählter Orte. Das Programm 
»EXEMPLAR.WERTE« (Listing 9) erzeugt eine grundlegende 
Datei, die zehn ausgewählte Orte enthält. Diese können als 
Basis für eine eigene Bibliothek von Klimawerten dienen. Es 
ermöglicht Ihnen, das Programm sofort nach der Eingabe zu 
testen. 

KLIMA 64 greift auf zwei Dateien zurück. Die erste ist die 
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sequentielle Indexdatei »INDEX«. Das erste Element der 
Indexdatei ist die Anzahl der erfaßten Orte. Es folgt dann die 
Liste mit den Ortsnamen. Im Programm selbst wird diese 
Liste im Array QQ$ verwaltet, die Anzahl der erfaßten Orte 
steht in QQ. 

Die zweite Datei ist die relative Datei »DATEN«. Sie besteht 
aus 256 Datensätzen der Länge 38 Byte. Diese 38 Byte ent¬ 
halten Temperatur- und Niederschlagswerte für 12 Monate im 
Format Temperatur+50, Niederschlag LoByte, Niederschlag 
HiByte. Die beiden verbleibenden Bytes können für andere 
Zwecke genutzt werden, wenn das Programm erweitert wer¬ 
den soll (so beispielsweise für die Höhe des Ortes über dem 
Meeresspiegel oder für die Jahreszahl, in der die Klimawerte 
gemessen wurden). 

Einen nicht unerheblichen Geschwindigkeitsvorteil beim 
Zugriff auf die relative Datei kann man erreichen, indem man 
sie stets geöffnet läßt (das DOS muß dann nicht bei jedem 
Zugriff nach der Datei im Directory suchen). Allerdings würde 


0000 - 1023 : RAM für Betriebssystem 

1024 - 2048 : LowRes-Bildschirm, hier jedoch nicht benötigt 

2049 - 2296 : Ladeprogramm/ Entpacker 

2304 - 4095 : Pufferbereich für gepackte HiRes-Bilder 

4096 - 36863 : Baslc-Bereich einschließlich aller Variablen 

36864 - 40959 : RAM für Hardcopy-Routine 

40960 - 49151 : Baslc-ROM, RAM ungenutzt 

49152 - 52223 : Proportionalschrlft-I/O-System 

52224 - 53247 : Farb-RAM für HiRes-Bildschirm 

53248 - 57343 : I/O-Bausteine, RAM ungenutzt 

57344 - 65535 : RAM - Grafikseite 


Tabelle 1. Speicheraufteilung unter KLIMA 64 


2159 ($086FJ: Kopiert gepackte Daten vom Puffer in ent¬ 

packte Daten auf die HiRes-Seite 
2175 ($087 F); Kopiert gepackte Daten ab der Adresse in 

251/252 (Low/High) In entpackte Daten nach 
253/254 

49162 ($C000): Initialisiert das Proportionalschrift-System. 

Diese Routine ist generell vor jeglicher Anwen¬ 
dung der folgenden Befehle anzuwenden, da 
hier wichtige Tabellen angelegt werden. Es 
wird auch eine Einschaltmeldung ausgegeben. 
49397 ($C0F5): Löscht HiRes-Seite, Initialisiert Farb-RAM 
49460 ($C134): Schaltet HiRes-Modus ein 
49479 ($C147): Schaltet zurück auf Textmodus 
50688 ($C600): Schreibt Text an eine vorgegebene Stelle. 
Aufruf: 

SYS50688,Spalte,ZeIle,Zeichenkette 
»Spalte« liegt zwischen 0 und 319, »Zelle« zwi¬ 
schen 0 und 24. Wertebereichsüberschreitun¬ 
gen werden nicht abgefangen und führen zum 
Absturz. »Zeichenkette« Ist ein String, keines¬ 
falls zu verwechseln mit einer Zelchenkette 
nach einem PRINT-Befohl mit Steuerzeichen 
wie »;« oder TAB. 

50746 ($C63A): Setzt einen Punkt an einen vorgegebenen 
Platz. Aufruf: 

SYS50746,x-PositIon,y-Posltion 
Die »X-Posltion« liegt zwischen 0 und 319, die 
»y-PosItlon« zwischen 0 und 199. Bereichs¬ 
überschreitungen werden auch hier nicht ab¬ 
gefangen und führen zum Absturz. 

50761 ($C649): Zieht eine Linie zwischen den Punkten 
Pl(xOyO) und P2(x1y1). Aufruf: 
SYS5076l,x0,y0,xl,yl 
Für den Wertebereich der Koordinaten gilt das¬ 
selbe wie für die Routine »Punktsetzen«. 
49254 ($C066): Schreibt das Zeichen im Akkumulator (Adresse 
780) an die aktuelle Cursor-Position und er¬ 
höht diese gemäß der Länge (in Punkte/ Pixels) 
des Zeichens 


T(1..12) 

Temperaturwerte des aktuellen Datensatzes 

N(1..12) 

Niederschlagswerte des aktuellen Datensatzes 

R0..12) 

Reale y-Werte von T bei der grafischen Darstellung 

MO$( 1 ..12) 

Monatsnamen 

XL,XH 

Enthält Cursor-Position X (Low/High) 

YA 

Enthält Cursor-Position Y 

A,B,W,W$ 

Übergabevarlabien an Unterprogramme 

D 

Aktuelle Datensatznummer 

OTS 

Aktueller Ort 

A,A$,A1,A2 

Temporäre Variablen (Hilfsvariablen) 

QQ 

Anzahl erfaßter Orte 

QQ$(1.255) 

Feld mit den Ortsnamen (Indexfeld) 


Tabelle 3. Die wichtigsten Variablen 


Zelle 2100: 

Gibt Ein-/Ausgabe-Formular aus und füllt es mit den 
Werten des aktuellen Datensatzes. 

Zelle 2200: 

Holt Eingaben beziehungsweise Änderungen ins 
Formular und fragt nach Korrektheit (wird gegebe¬ 
nenfalls wiederholt) 

Zeile 2400: 

Speichert Datensatz In die relative Datei 

Zeile 7000: 

Löscht Bildschirm und schreibt Kopfzelle 

Zeile 7020: 

Indiziert eine Datendiskette 

Zeile 7060: 

Überprüft auf Aktualität, fragt nach Aktualisierung 
und aktualisiert gegebenenfalls 

Zelle 7080: 

Bringt Indexdatei auf den neuesten Stand 

Zelle 7100: 

Holt eine Eingabe X$ der maximalen Länge W ab 
Cursor-Position X, Y (Texteingabe) 

Zelle 7130: 

Liest Datensatz eines zuvor einzugebenden Ortes 
in die entsprechenden Felder ein 

Zeile 8000: 

Wartet auf < RETURN > 

Zelle 8010: 

Liest den Fehlerkanal und gibt gegebenenfalls Feh¬ 
lermeldung (mit Nummer) und im Klartext aus 

Zeile 8030: 

Optionsabfrage Ja/Nein: gibt A ans Hauptpro¬ 
gramm zurück. Bei »J« ist A=-1 (True), bei »N« ist 

A=0 (False) 

Zeile H 50: 

Holt Menüpunkt, übergibt Nummer des Punktes in A 

Zeile 8070: 

Sicherheitsabfrage 

Zeile 8080: 

Hardcopy 


Tabelle 2. Proportlonal-I/O-Routinen 


Tabelle 4. Unterprogramme 

es beim versehentlichen Herausnehmen der Diskette zu 
einem »NO CH ANNEL ERROR« kommen, da mit dem Heraus¬ 
nehmen der Diskette sämtliche laufwerksinternen Schreib¬ 
und Lesekanäle geschlossen würden. Soll das Programm 
dennoch in dieser Weise geändert werden, müssen alle 
betreffenden CLOSE-Befehle entfernt werden und weiterhin 
in der Prozedur »Aktualisieren« der Kanal 2 geschlossen und 
neu geöffnet werden. Bei allen Prozeduren, die das Wech¬ 
seln einer Diskette erforderlich machen, ist ebenfalls Kanal 2 
zu schließen. 

Es wäre denkbar, KLIMA 64 zu erweitern. Zum Beispiel: 

- Genaue Lokalisation der Orte mittels Angabe des Längen- 
und Breitengrades sowie der Höhe über Normalnull (Mee¬ 
resspiegel). 

- Darstellung eines Ortes auf der Weltkarte (diese ist als 
gepacktes File, siehe oben, auf der Diskette abzulegen und 
bei Bedarf nachzuladen). 

- Erweiterung des Diagrammteils ab Zeile 3000 durch weni¬ 
ger gebräuchliche Darstellungsarten. 

Jede dieser Erweiterungen erfordert jedoch einen be¬ 
trächtlichen Mehraufwand an Speicherplatz und Program¬ 
miertechnik. Die vorliegende Version 2.0 wendet sich jedoch 
hauptsächlich an Geografie-Interessierte, die sich eine um¬ 
fangreiche Bibliothek von Klimadaten anlegen möchten. Für 
Änderungen am Programm sollten Sie die Dokumentation zu 
Hilfe nehmen: 

Tabelle 1 : Speicheraufteilung 
Tabelle 2 : Proportionalschrift-Routinen 
Tabelle 3 : Die wichtigsten Variablen 
Tabelle 4 : Die Unterprogramme 


SONDERHEFT 11 


149 












ANWENDUNG 


C 64 


Allgemein gilt für die Eingabe: Ein neuer Programmteil oder 
ein neues Unterprogramm werden mit einer REM-Zeile ein¬ 
geleitet. REM-Zeilen dürfen nicht wegfallen, da sie aus¬ 
nahmslos angesprungen werden, können jedoch durch Dop¬ 
pelpunkte ersetzt werden. 

An verschiedenen Stellen bietet Klima 64 an, eine Hard¬ 
copy zu erstellen. Hierzu muß auf der Programmdiskette eine 
geeignete Hardcopyroutine mit dem Namen »HARDCOPY« 
gespeichert sein. Die Startadresse der Routine sollte 36864 
sein, und ein Aufruf mit »SYS 36864« sollte keine Parameter 
übergeben, andernfalls müssen an den entsprechenden 
Stellen Modifikationen vorgenommen werden. 

Bei der abgedruckten Hardcopy-Routine (Programm 
»HARDCOPY«, Listing 10) handelt es sich um die im 64’er 
Sonderheft 6/86, Seite 164, bereits veröffentlichte »Hard¬ 
copy für Centronics-Drucker am Userport« von Richard Gre- 
sek. Bitte beachten Sie bei der Verwendung dieser Routine 
die im Artikel gegebenen Hinweise zum Anschluß des Star 
SG-10. 

Es ist auch eine beliebige andere Hardcopyroutine geeig¬ 
net, sofern sie die folgenden Voraussetzungen erfüllt: 

- Die Hardcopy wird vom Bereich 57344 bis 65344 erstellt 

- Die Routine muß unter dem Namen »HARDCOPY« auf der 
Programmdiskette gespeichert sein 

- Der Aufruf erfolgt ohne Parameter mit SYS36864 

- Die Routine liegt in einem Bereich, der nicht von KLIMA 64 
benutzt wird (siehe Tabelle 1). 

Änderungen zur Anpassung können in Grenzen am Pro¬ 
gramm vorgenommen werden. 

Bevor Sie KLIMA 64 aufrufen, sollten Sie zuvor das Pro¬ 


gramm »EXEMPL.WERTE« eingeben und mit RUN starten. 
Sie werden aufgefordert eine Datendiskette einzulegen, auf 
die das Programm zehn Datensätze ablegt. Erst danach kön¬ 
nen Sie KLIMA 64 ausprobieren und die Datensätze nach 
eigenen Bedürfnissen erweitern. (Matthias Kriesell/nj) 


Name 

X 

kl ima 

64 




0001 ' 

O0e9 

0001 

, 

Ob 

00 

c2 

07 

9e 

32 

30 

36 

4a 

0009 

X 

31 

00 

00 

00 

a9 

00 

Bd 

20 

4c 

OBI 1 

X 

<30 

Bd 

1 1 

dO 

0d 

00 

10 

aB 

71 

0B19 

X 

bo 

dl 

OB 

20 

d2 

ff 

C0 

cO 

93 

0021 

X 

10 

dO 

f 5 

20 

b9 

00 

20 

6f 

3s 

0029 

I 

00 

a9 

cc 

05 

fc 

a9 

50 

a2 

Bd 

0031 

X 

03 

aO 

oo 

04 

fb 

91 

fb 

C0 

e3 

0B39 

» 

dO 

fb 

e6 

fc 

ca 

10 

f 6 

a9 

bc 

0041 

1 

94 

Bd 

00 

dd 

a9 

3b 

Bd 

10 

32 

0049 

l 

dO 

Bd 

11 

dO 

20 

b9 

08 

20 

6e 

0051 

I 

b9 

00 

20 

b9 

00 

20 

b9 

00 

c6 

0059 

X 

a9 

13 

Bd 

77 

02 

a9 

Od 

Bd 

9b 

0061 

X 

70 

02 

Bd 

79 

02 

a9 

03 

85 

fl 

0B69 

X 

c6 

a9 

10 

05 

2c 

60 

a9 

00 

25 

0071 

X 

05 

fb 

a9 

09 

05 

fc 

a9 

00 

66 

0079 

: 

03 

fd 

a9 

eO 

05 

fe 

aO 

00 

56 

O0B1 

x 

20 

3.7 

00 

05 

02 

20 

a7 

00 

f 7 

0009 


c5 

02 

fO 

05 

20 

bO 

OB 

dO 

75 

0091 

X 

f 4 

20 

a7 

08 

c9 

00 

fO 

Od 

fb 

0099 

X 

aa 

B0 

20 

«7 

08 

20 

bO 

OB 

09 

00a 1 

X 

ca 

dO 

fa 

fO 

eO 

60 

bl 

fb 

00 

O0a9 

X 

e6 

fb 

dO 

02 

e6 

fc 

60 

91 

fc 

00b 1 

X 

fd 

e6 

fd 

dO 

02 

e6 

fe 

60 

cf 

0Bb9 

: 

ee 

de 

OB 

a9 

OB 

aa 

aB 

20 

06 

00c 1 

X 

ba 

tf 

a9 

Oa 

a2 

d5 

aO 

00 

92 

0Bc9 

: 

20 

bd 

ff 

a9 

00 

4c 

d5 

ff 

b7 

00dl 

: 

93 

4c 

Cf 

22 

4b 

4c 

49 

4d 

99 

0Bd9 

: 

41 

20 

36 

34 

2f 

41 

72 

2c 

lc 

OBel 

X 

30 

Od 

Od 

Od 

Od 

Od 

52 

d5 

b3 


Listing 1. Ladeprogramm von Klima 64 


1 IF PEEK(56)0143 THEN POKE 56,143:P0KE 5 


1102 

GOSUB 7000 

<090> 

2,143» CLR:LOAD"HARDCOPY n , B , 1 

<173> 

1104 

EY n PR,112,4,"ÜROGRAMM BEENDEN" 

<252> 

2 t 

<234> 

1106 

A—,.GOSUB 8070:IF NOT A THEN 1000 

<030> 

10 REM ************************ 

<063> 

1108 

GOSUB 7060 

<032> 

12 REM * KLIMA 64 VERSION 2.0 * 

< 129> 

1110 

CLDSE 1:POKE 532B1,0s PRINT"<BLACK,CLR 


14 REM * MATTHIAS KRIESELL * 

<0B5> 


>“:SYS AU:SYS 64738 

<204> 

16 REM * OSTPREUSSENSTRASSE 6 * 

<052> 

1112 

J 

<072> 

1B REM * 3057 NEUSTADT A.R. * 

<042> 

1200 

REM *** HILFSPROGRAMME *********** 

<059> 

20 REM * TEL.» 05032/5B80 * 

<064> 

1202 

GOSUB 7000 

< 190> 

22 REM ************************ 

<075> 

1204 

SYS PR,118,4,"ÜILFSPROGRAMME" 

< 150> 

24 » 

<000> 

1206 

SYS PR,115,7,BW* 

<041> 

100 REM **# M-ROUTINEN **************** 

< 121 > 

120B 

SYS PR,101,9,"1) JSLIMAWERTE. AUSGEBEN" 

< 157> 

102 IN=49152:CL=49397«AN=49460 

<225> 

1210 

SYS PR,100,11,"2) KLIMAWERTE @NDERN" 

<075> 

104 AU=49479»PR=506BB t PL=50746 

<109> 

1212 

SYS PR,100,13,"3) "+H4* 

< 148> 

106 LI=50761»CH=49254»F0=2159 

<072> 

1214 

SYS PR,100,15,"4) AATEI AKTUALISIEREN 


10B s 

<084> 


• 1 

< 120> 

200 REM *** INITIALISIEREN ************ 

<047> 

1216 

SYS PR,100,17,"5) ANDERE SATENDISKETT 


202 SYS 49152»REM PR.I/O AKTIVIEREN 

<00B> 


E INDIZIEREN" 

<083 > 

204 C1*=CHR*(13)«C2*=CHR*(20) 

<217> 

121B 

SYS PR,100,19,"6) HEUE »VTEI ANLEGEN" 

<07B> 

206 0P*="DATEN,L,"+CHR*<3B> 

<192> 

1220 

SYS PR,100,21,"7) KURfCK ZUM ÜAUPTMEN 


208 QW=255:DIM QQ*(QW> 

< 172> 


U" 

<067 > 

210 DIM T<12>,N(12),R(12),MO*(12) 

<073> 

1222 

W*="7":A=23«GOSUB 8050 

<003> 

212 FOR 1 = 1 TO 12»READ MO*(I):NEXT 

<049> 

1224 

ON A GOTO 1300,1350,1400,1250,1270,15 


214 Z*=CHR*<0) 

<206> 


00,1000 

< 113> 

216 H4*="£RFA£TE ARTE AUSGEBEN" 

<239> 

1226 

g 

< 1B6> 

218 XL=174»XH=175»YA=176»Z=130 

<091 > 

1250 

REM *** DATEI AKTUALISIEREN ****** 

<05B> 

220 BW*="aiTTE W0HLEN SIE»" 

<222> 

1252 

GOSUB 7000 

<240> 

222 C*<0)="C60SPACE>" 

<157> 

1254 

SYS PR,10B,4,"AATEI AKTUALISIEREN" 

<055> 

224 C*(1)="<6SPACE>" 

< 191 > 

1256 

GOSUB 7080 

<245> 

226 POKE 650,128 

< 143> 

125B 

GOTO 1200 

<214> 

900 REM *** ERSTE INDIZIERUNG ********* 

<216> 

1260 

B 

<220> 

902 OPEN l,B,15sSV=0»GOSUB 7020 

<012> 

1270 

REM *** ANDERE DISKETTE ********** 

<094> 

904 » 

< 11B> 

1272 

GOSUB 7000 

<004> 

1000 REM *** HAUPTMENU **************** 

<050> 

1274 

SYS PR,92,4,"ANDERE AISKETTE INDIZIER 


1002 GOSUB 7000 

<244> 


EN" 

<252> 

1004 SYS PR,132,4,"ÜAUPTMENU" 

<21B> 

1276 

GOSUB 7060 

<200> 

1006 SYS PR,115,7,BW* 

<095> 

1278 

GOSUB 7020 

<074> 

1008 SYS PR,101,9,"1) KLIMAWERTE EINGEBEN" 

< 131 > 

1280 

GOTO 1200 

<23B> 

1010 SYS PR,100,11,"2) .KLIMADIAGRAMM ERSTE 


1282 

: 

<244> 

LLEN" 

< 166> 

1300 

REM *** AUSGABE ****************** 

< 163> 

1012 SYS PR,100,13,”3) ÜILFSPROGRAMME" 

<228> 

1302 

GOSUB 7000 

<036> 

1014 SYS PR,100,15,"4) .PROGRAMM BEENDEN" 

<182> 

1304 

SYS PR,105,4,"KLIMAWERTE AUBGEBEN" 

<228> 

1016 A=17»W*="4"iGOSUB 8050 

< 190> 

1306 

GOSUB 7130:IF D=0 THEN 1200 

< 135> 

1018 ON A GOTO 2000,3000,1200,1100 

<227> 




1020 3 

<234> 




1100 REM *** PROGRAMM BEENDEN ********* 

<040> 


Listing 2. Hauptprogramm Klima 64 
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1308 GOBUB 2100 

<018> 

2122 

SYS PR,2,10+1,MO$(I) 

<213> 

1310 GOBUB B0B0!GOTO 1200 

< 137> 

2124 

SYS PR,69,10+I,MID*(STR*(T(I)),2) 

<240> 

1312 : 

< 121 > 

2126 

SYS PR,113,10+1,MID$(STR*(N(I)),2) 

< 123> 

1350 REM *** AENDERN ****************** 

<226> 

2128 

NEXT 

< 106> 

1352 GOSUB 7000 

<086> 

2130 

RETURN 

<156> 

1354 SYS PR,110,4,"jy_IMAWERTE @NDERN" 

<004> 

2132 

1 

<076> 

1356 GOSUB 7130sIF D=0 THEN 1200 

< 1B5> 

2200 

REM *** EINGABE/AENDERN ********** 

<094> 

1350 GOSUB 2100: GDSIJB 2200 

< 158> 

2202 

W*=OT$:W=20:X=20:Y=7:GOSUB 7100:OT*=X 


1360 GOSUB 2400:GOTO 1200 

<202> 


* 

< 135> 

1362 : 

<06B> 

2204 

FOR 1=1 TO 12 

<064> 

1400 REM *** ORTE AUSGEBEN ************ 

<206> 

2206 

W*=MID*(STR*(T(I> >,2):W=3:X=69:Y=10+I 


1402 1=0 

<065> 


:GOSUB 7100:T(I)=VAL(X*> 

< 196> 

1404 GOSUB 7000 

< 138> 

2208 

NEXT 

<186> 

1406 SYS PR,101,4,"£RFA£TE ARTE AUSBEBEN" 

<246> 

2210 

FOR 1=1 TO 12 

<070> 

140B IF QQ=0 THEN SYS PR,0,7,"ÜEINE ARTE E 
RFA£T.":GOSUB B000:GOTO 1200 

<015> 

2212 

W*=MID*(STR*(N<I>),2):W=3:X=113:Y=10+ 
I:GOSUB 7100:N(I)=VAL(X*> 

<096> 

1410 1 = 1+1sSYS PR,0,6+1 —INT((I—1)/10)*10,Q 


2214 

NEXT 

< 192> 

Q*<I):IF I=OQ THEN 1420 

<21B> 

2216 

SYS PR,2,24,"SIND ALLE ANGABEN KORREK 


1412 IF INT (1/10)01/10 THEN 1410 

<006> 


T" 

<07B> 

1414 1 = 1 + 1s SYS PR,160,6+1 — INT((I — 1)/10 ) * 10 


2218 

GOSUB 80301IF NOT A THEN 2202 

<239> 

,QQ*(I):IF I=QQ THEN 1420 

<246> 

2220 

RETURN 

<246> 

1416 IF INT(1/10)01/10 THEN 1414 

<074> 

2222 

B 

< 166> 

1410 POKE YA,20:GOSUB B0B0:BOTO 1404 

< 132> 

2400 

REM *** ORT ABSPEICHERN ********** 

<110> 

1420 POKE YA,20:GOSUB B0B0:GOTO 1200 

<09B> 

2402 

QQ*(D)=OT*:SV=0 

<028> 

1422 : 

< 12B> 

2404 

OPEN 2,B,2,0P* 

<15B> 

1500 REM *** DATEI ANLEGEN ************ 

<057> 

2406 

A$=”":FOR 1=1 TO 12 

<020> 

1501 GOSUB 7000 

<235> 

2408 

A*=A*+CHR*(50+T(I)> +CHR*(N(I)AND 255> 


1502 SYS PR,110,4,"HEUE ^)TEI ANLEGEN" 

<207> 


+CHR*(N(I>/256> 

< 156> 

1503 GOSUB 7060 

<173> 

2410 

NEXT 

< 134> 

1504 GOSUB 7000 

<238> • 

2412 

PRINTttl,"P"+CHR*(2)+CHR* <D>+Z*+Z* 

<059> 

1505 SYS PR,110,4,"HEUE »)TEI ANLEGEN" 

<210> 

2414 

PRINT#2,A* 

<102> 

1506 SYS PR,0,7,"SITTE LEGEN SIE EINE FORM 


2416 

CLOSE 2 

< 149> 

ATIERTE DISKETTE IN" 

<02B> 

2418 

RETURN 

< 190> 

150B SYS PR ,0,9, "i/lUFWERK #0. AIESE SISKET 


2420 

: 

<U0> 

TE WIRD EINE KtNFTIGE" 

< 169> 

3000 

REM *** DIAGRAMM ***************** 

<02B> 

1510 SYS PR,0,11,"SATENDISKETTE." 

<144> 

3002 

GOSUB 7000 

<212> 

1512 SYS PR,0,13,“AERTIG" 

<067> 

3004 

SYS PR,92,4, "JÜ-IMADIAGRAMM ERSTELLEN" 

< 102> 

1514 GOSUB 8030:IF NOT A THEN 1200 

<024> 

3006 

GOSUB 7130:IF D=0 THEN 1000 

< 183> 

1516 PRINT#1,"I":GOSUB 8010: IF AO0 THEN C 


3007 

SYS FO 

< 117> 

LR:RUN 

<059> 

3008 

SYS PR,0,0,OT*+", ÜJ_IMA" 

< 132> 

1518 PRINT#1,"M-R"+CHR*(250)+CHR*< 2)+CHR*( 
3>:GET#1,A*,B*,B* 

<199> 

3014 

FOR 1=1 TO 12:R(I> =N(I):IF N(I)>100 T 
HEN R(I)=100+((N(I)—100)/10) 

< 127> 

1520 A=ASC(A*+Z*)+256*ASC(B*+Z$) 

<073> • 

3016 ;(r<T 

3018 1>0)=(T(1)+T(12))/2 

<232> 

1522 IF A>200 THEN 1534 

< 114> 

< 153> 

1524 SYS PR,0,16,"AUF DER EINGELEGTEN flISK 


3020 

R(0)=(R(1)+R(12))/2 

<0B1 > 

ETTE IST NICHT" 

<232> 

3022 

SYS LI,13,Z—T(0)*2,18,Z—T(1)*2 

<252> 

1526 SYS PR,0,18,"MEHR GENTGEND APEICHERRA 


3024 

SYS LI,13,Z—R(0),18,Z—R(1) 

<1B6> 

UM VORHANDEN." 

<025> 

3026 

FOR 1=2 TO 12 

<156> 

1528 SYS PR,0,20,"ANDERE flISKETTE PROBIERE 
N" 

<014> 

3028 

SYS LI,B+(I —1>*10,Z—T(I —1>*2,8+1*10,Z 
-T(I)*2 

< 149> 

1530 GOSUB 8030:IF NOT A THEN CLR:RUN 

<093> 

3030 

SYS LI,B+(I—1>*10,Z—R(I—1),B+I*10,Z—R 


1532 GOTO 1500 

<026> 


(I) 

<101> 

1534 OPEN 2,8,2,OP* 

<048> 

3032 

NEXT 

<24B> 

1536 PRINT#1,"P"+CHR* <2> +CHR*(OW)+Z*+Z* 

< 148> 

3034 

SYS LI,128,Z—T(12)*2,133,Z—T(0)*2 

<004> 

153B INPUT#1,A,A*,A1,A2:IF A<>0 THEN 1546 

< 192> 

3036 

SYS LI,128,Z—R(12),133,Z—R(0) 

<221 > 

1540 SYS PR,0,16,"AUF DER EINGELEGTEN flISK 


3038 

FOR 1=1 TO 12 

< 136> 

ETTE BEFINDET SICH" 

<037> 

3040 

IF R(I)>T(I)*2 THEN SYS LI,B+I*10,Z-R 


1542 SYS PR,0,18, "BEREITS EINE 'JO-IMA 64'- 
SATEI." 

<201 > 

3042 

(I),B+I*10,Z-T(I)*2:GOTO 3046 

IF INT(R(I)/5)=INT(T(I)*2/5)THEN 3046 

< 165> 
<0B0> 

1544 GOTO 1528 

< 106> 

3044 

FOR J=INT(R(I>/5+.51*5+2.5 T0(T(I)*2) 


1546 SYS PR,0,16,"SITTE WARTEN..." 

<003> 


-2.5 STEP 5:SYS PL,B+I*10,Z-J:NEXT 

< 134> 

1548 PRINT#2,CHR*(255) 

<043> 

3046 

NEXT 

<006> 

1550 CLOSE 2:INPUT#1,A,A*,Al,A2:CLR:RUN 

<050> 

3048 

FOR 1=2 TO 12:R=(R(1-1> +R(I))/2:T=T(I 


1552 : 

<004> 


— 1> +T(I) 

<045> 

2000 REM *** WERTE EINGEBEN *********** 

<014> 

3050 

IF R>T THEN BYS LI,3+1*10,Z-R,3+1*10, 


2002 GOSUB 7000 

<228> 


Z-T:GOTO 3056 

<046> 

2004 SYS PR,110,4,"ÄLIMAWERTE EINGEBCF4JN" 

<1B0> 

3052 

IF INT(R/5)=INT(T/5)THEN 3056 

<007 > 

2006 0T*="" 

<244> 

3054 

FOR J=INT(R/5+.5)»5+2.5 TO T-2.5 STEP 


2008 FOR 1=1 TO 12:T(I)=0:N(I)=0:NEXT 

<0B0> 


5:SYS PL,3+1*10,Z-J:NEXT 

<039> 

2010 GOSUB 2100:GOSUB 2200 

<046> 

3056 

NEXT 

<016> 

2012 GOSUB 7000 

<230> 

3058 

FOR 1=1 TO 11 

<155> 

2014 SYS PR,110,4,"ÄLIMAWERTE EINGEBEN" 

<021 > 

3060 

DR=(R(I +1> —R(I>)/10 

< 159> 

2016 SYS PR,0,7,0T*+" ERFASSEN" 

<227> 

3062 

FOR J=0 TO 9:A=B+I*10+J 

<229> 

2018 GOBUB 8030:IF NOT A THEN 1000 

<212> 

3064 

IF(J*DR> +R(I)>100 THEN SYS LI,A,30,A, 


2020 QQ=QQ+1:D=QQ:GOSUB 2400:GOTO 1000 

<064> 


130—(INT(J*DR+.5)+R(I)) 

<09B> 

2022 : 

<220> 

3066 

NEXT:NEXT 

<019> 

2100 REM *** FORMULAR ***************** 

< 119> 

306B 

DR=(R(1)-R(0>)/10 

< 133> 

2102 SYS PR,0,7,"ART:"+0T$ 

< 171 > 

3070 

FOR J=5 TO 9:A=B+J 

<060> 

2104 SYS PR,2,9,"AONAT <9SPACE>3EMP.":SYS P 
R,113,9,"AS." 

< 170> 

3072 

IF(J*DR)+R(0)>100 THEN SYS LI,A,30,A, 
130—(INT(J*DR+.5)+R(0)) 

< 194> 

2106 SYS LI,0,69,155,69 

<154> 

3074 

NEXT 

<036> 

2108 SYS LI,0,81,155,81 

< 135> 

3076 

DR=(R(0)-R(12)>/10 

<234> 

2110 SYS LI,0,189,155,189 

<236> 

307B 

FOR J=0 TO 5:A=12B+J 

< 114> 

2112 SYS LI,0,69,0,189 

<210> 

30B0 

IF(J*DR> +R(12)>100 THEN SYS LI,A,30,A 


2114 SYS LI,67,69,67,1B9 

<226> 


,130-(INT(J*DR+.5)+R(12)) 

< 165> 

2116 SYS LI,111,69,111,189 

<090> 

3082 

NEXT 

<044> 

2118 SYS LI,155,69,155,189 

2120 FOR 1=1 TO 12 

<101> 

<236> 
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ANWENDUNG 


C 64 



3084 ! 

<012> 

7096 

CLOSE 2:RETURN 

< 117> 

3200 A=0:TL=50 : TH=-50:NL=9999:NH=0 

<017> 

7098 

s 

<216> 

3202 Sl=0:B2=0iFOR 1=1 TO 12 

<003> 

7100 

REM *** EINGABEROUTINE *********** 

<034> 

3204 IF N(I)>2*T(I)THEN A=A+1 

<207> 

7102 

X#="":A=0:SYS PR,X,Y,C$<—<W<5>) 

< 111 > 

3206 IF TUXTL THEN TL=T<I):T1 = I 

< 139> 

7104 

POKE XL,X:POKE XH,-(X>255):POKE YA,Y 

<042> 

320B IF T <I)>TH THEN TH=T(I):T2=I 

<084> 

7106 

A1=PEEK(XL):A2=PEEK(XH) 

< 152> 

3210 IF NIIXNL THEN NL=N(I)«N1=I 

< 119> 

7108 

POKE 780,219:SYS CH 

< 122 > 

3212 IF N<I)>NH THEN NH=N(I):N2=I 

<064> 

7110 

POKE XL,Al:POKE XH,A2 

<207> 

3214 S1=S1+T <I):S2=S2+N(I) 

<126> 

7112 

GET A*:IF A*="="THEN IF A=0 THEN IF W 

3216 NEXTiA=INT <A*100/12) 

< 147> 


$<>""THEN X*=W*:A=LEN(X*>:SYS PR,X,Y, 


3217 IF TL<0 THEN SYS LI,13,Z,13,Z-TL*2:FO 


X*:RETURN 

<250> 

R I=Z TO Z-TL*2 STEP 10«SYS PL,12,I«N 

7114 

IF A*=C1*THEN IF A>0 THEN POKE 780,32 

EXT 

<099> 


:SYS CH:RETURN 

<005> 

3218 SYS PR,170,3,"STATISTIK" 

< 151 > 

7116 

IF A*=C2*THEN IF A>0 THEN 7102 

<100> 

3220 SYS PR,170,5,"HUMIDES KLIMA:"+STR*(A> 


7118 

IF A*=CHR*(34)0R A=W THEN 7112 

< 157> 

+ " X" 

<067> 

7120 

IF A*="T"OR A*="f"THEN 7124 

< 122> 

3222 SYS PR,170,6,"BRRIDES KLIMA:"+STR* ( 10 


7122 

IF A*<" "OR A*>"Z"THEN IF A*<"fl"OR A* 


0-A) + " 7." 

<052> 


>"Z"THEN 7112 

<076> 

3224 SYS PR,170,7,"lEMPERATURENa" 

<081 > 

7124 

X*=X*+A*:A=A+1:P0KE 780,ASC(A*> : SYS C 


3226 SYS PR,170,8,"HIN.I"+STR$(TL)+" ("+MO 



H:BOTO 7106 

<160> 

#<T1>+">" 

<146> 

7126 

r 

<244> 

3228 SYS PR,170,9,"AAX. : "+STR*(TH)+" ("+MO 


7130 

REM *** ORT HOLEN **************** 

<028> 

*(T2>+">" 

< 161 > 

7132 

IF 00=0 THEN D=0:SYS PR,0,7,"KEINE BR 


3230 SYS PR,170,10,"DURCHSCHNITT:“+STR*(IN 



TE ERFAfT. ": GOTO 8000 

< 124> 

T(81/12) > 

<073> 

7134 

SYS PR,0,7,"ART :": W*=" ": W=20:X=20:Y=7 


3232 SYS PR,170,11,"HIEDERSCHLAB :" 

< 136> 


: GOSUB 7100:DT*=X* 

< 112> 

3234 SYS PR,170,12,"HIN. : "+STR*(NL)+" MM < 


7136 

D=0 

<191 > 

"+MO*(Nl>+"> " 

< 184> 

7138 

D=D+1 : IF D<=00 THEN IF 0T*<>00*(D)THE 


3236 SYS PR,170,13,"flAX. : "+STR*(NH) +" MM < 



N 713B 

<004> 

"+MO*(N2)+">" 

<004> 

7140 

IF D>00 THEN D=0:SYS PR,0,9,"fiRT NICH 


3238 SYS PR,170,14,"DURCHSCHNITT:"+STR*(IN 



T ERFAfT.“:GOTO 8000 

<024 > 

T(S2/12)> +" MM" 

<036> 

7142 

OPEN 2,8,2,OP* 

<06B> 

3240 SYS PR,170,15,"BESAMT:"+STR$(S2>+" MM 


7144 

PRINT#1,"P"+CHR*(2 > +CHR*(D)+Z*+Z $ 

<219> 

" 

<098> 

7146 

FOR 1=1 TO 12 

< 1B0> 

3242 POKE YA,22:GOSUB 8080 

< 103> 

7148 

GET#2,A*,B*,C*:T(I>=ASC(A*+Z*>-50 

<069> 

3244 GOTO 1000 

< 136> 

7150 

N (I) =ASC (B*+Z*) +256*ASC (C*+Z* > 

<034> 

3246 : 

< 174> 

7152 

NEXT:CLOSE 2:RETURN 

<03B> 

7000 REM *** TITEL ******************** 

<136> 

7154 

s 

<016> 

70tl2 SYS CL 

<232> 

8000 

REM *** "RETURN" ***************** 

<037> 

7004 SYS LI, 100,8,220,8 

< 119> 

B002 

SYS PR,0,PEEK(YA)+2,"BPTCKEN BIE I RET 


7006 SYS PR,112,0,"KLIMADIAGRAMM 64" 

<247> 


BJJ43. " 

<02B> 

700B SYS PR,64,2,"I2SPACE >ARITTEN 1986 BY 


8004 

GET A*:IF A*<>CHR*(13)THEN 8004 

<079> 

flATTHIAS KHIESELL" 

7010 RETURN 

er 

A A 
* s 

2* 
V V 

8006 RET 1 IRN 

8008 : 

< 190> 
<110> 

7012 : 

< 130> 

8010 

REM *** FEHLERKANAL LESEN ******** 

< 116> 

7020 REM *** INDIZIEREN *************** 

<021 > 

8012 

INPUTttl ,A,A$,A1 ,A2 

<05B> 

7022 GOSUB 7000 

<168> 

8014 

IF A=0 OR A=50 THEN RETURN 

< 194> 

7024 SYS PR,107,4,"BISKETTE INDIZIEREN" 

<220> 

8016 

B=PEEK(YA) 

< 124> 

7026 SYS PR,0,7, "BITTE LEBEN BIE EINE BÄTE 


8018 

SYS PR,0,B+3,"flISK-£RROR tt"+MID* (STR* 


INDISKETTE IN LAUFWERK #0." 

<216> 


(A),2)+": "+A* 

< 194> 

702B A=9:GOSUB 8000 

<237> 

8020 

A=B+5:GOTO 8000 

<076> 

7030 PRINTtti,"I" 

<000> 

8022 

: 

< 124> 

7032 GOSUB 8010:IF A THEN RETURN 

<022> 

8030 

REM *** "JA/NEIN" **************** 

< 160> 

7034 OPEN 2,8,2,"INDEX,P,R" 

<205> 

8032 

SYS PR,PEEK(XL)+256*PEEK < XH),PEEK(YA) 


7036 INPUT#2,QQ:IF QQ>0 THEN 7050 

<034> 


," <£/H> ?" 

< 170> 

7038 INPUTttl,A,A», Al,A2:CL0SE 2 

< 133> 

8034 

GET A*:IF A*<>“J"AND A*< >"N"THEN 8034 

<005> 

7040 SYS PR,0,12,"ACHTUNG !C2SPACEJBS SIND 


B036 

POKE 7B0,ASC(A*)+32:SYS CH 

<049> 

NOCH KEINE KLIMAWERTE AUF DER" 

<067> 

8038 

A=(A*="J"):RETURN 

<069> 

7042 SYS PR,0,14,"EINGELEGTEN BISKETTE ABG 


8040 

s 

< 142> 

ESPEICHERT." 

<163> 

8050 

REM *** WAHL ********************* 

<223> 

7044 SY8 PR,0,16,“HOLLEN SIE EINE ANDERE B 


8052 

SYS PR,115,A,"IHRE MAHL <l-"+W*+"):" 

<023> 

ISKETTE INDIZIEREN" 

<18B> 

8054 

GET A*:IF A*<"1"0R A*>W*TMEN B054 

< 161 > 

7046 GOSUB B030:IF A THEN 7020 

<254> 

8056 

POKE 780,ASC(A$>:SYS CH 

< 177> 

7040 RETURN 

<24B> 

8058 

A=VAL<A$> «RETURN 

<236> 

7050 SYS PR,0,12,"ANZAHL DER BISHER ERFAfT 


8060 

8 

<162> 

EN SRTE«"+STR*(OQ) 

<050> 

B070 

REM *** "SICHER ?" *************** 

< 137> 

7052 FOR 1=1 TO QQ:INPUTtt2,Q0*<I)«NEXT 

<069> 

B072 

SYS PR,98,A,"BIND BIE SICHER" 

< 1B6> 

7054 CLOSE 2c8V=1:RETURN 

< 177> 

8074 

BOTO 8030 

<036> 

7056 : 

< 174> 

8076 

: 

< 17B> 

7060 REM *** TEST AUF AKTUELL ********* 

<05B> 

8080 

REM »** HARDCOPY ***************** 

<011> 

7062 IF SV THEN RETURN 

< 144> 

8082 

SYS PR,0,PEEK(YA)+2,"HARDCOPY ERSTELL 


7064 A=PEEK(YA) 

< 1B4> 


EN" 

<232> 

7066 SYS PR,0,A+3,"ACHTUNG !{2SPACEJBIE KN 


B084 

GOSUB 8030:IF NOT A THEN RETURN 

<097> 

DEXDATEI IST NICHT MEHR AKTUELL." 

<014> 

8086 

SYS PR,0,PEEK(YA),C$(0> 

<066> 

7060 SYS PR,0,A+5,"BOLL SIE AKTUALISIERT W 


B0BB 

REM *********************** 

<099> 

ERDEN" 

<250> 

0090 

REM * GGF. HARDCOPYAUFRUF * 

< 1B6> 

7070 GOSUB 8030:IF NOT A THEN RETURN 

<099 > 

8092 

REM * ABAENDERN. VGL.TEXT * 

<209> 

7072 : 

< 190> 

8094 

REM *********************** 

<105> 

7080 REM *** AKTUALISIEREN ************ 

< 116> 

8096 

SYS 36864«RETURN 

<089> 

7082 A=PEEK(YA) 

<202> 

8098 

: 

<200> 

7084 SYS PR,0,A+3,"BIE »VTEI WIRD NUN AKTU 


9000 

REM *** DATEN ******************** 

<104> 

ALISIERT, BITTE WARTEN BIE. 

< 114> 

9002 

DATA "KANUAR","fEBRUAR","fl@RZ","APRIL 


7086 SYS PR,0,A+5,"(BISKETTE IM LAUFWERK B 



" , "HAI" , "KUNI" , "KJJLI " , "AUGUST" 

< 144> 

ELASSEN, SONST BATENVERLUST ! ! > " 

<212> 

9004 

DATA "BEPTEMBER","BKTOBER","HQVEMBER" 


7088 PRINTtti, "S0: INDEX": INPUTttl, A 

< 142> 


,"BEZEMBER" 

<023> 

7090 IF QQ=0 THEN RETURN 

< 120> 

9006 

i 

<092> 

7092 OPEN 2,8,2, "INDEX,P,W"«PRINTtt2,QQ 

<102> 




7094 FOR 1 = 1 TO QQ: PRINTtt2,QQ* (I) : NEXT 

< 191 > 
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kl ima 

64/b 



0900 Oaf 7 

09bB 

z 

01 

01 

ff 

ff 

02 

03 

fO 

cO 

b7 

OaBO 

3 

ff 

3c 

9e 

fe 

3e 

9e 

9e 

3c 

fi 












09c0 

z 

cO 

ff 

ff 

02 

03 

fc 

3c 

3c 

41 

0 a 88 

: 

ff 

3c 

02 

04 

79 

3c 

ff 

39 

92 

0900 

s 

02 

02 

ff 

00 

02 

ff 

00 

02 

27 

09cB 

: 

ff 

ff 

02 

05 

3f 

ff 

ff 

02 

eO 

0a90 

z 

02 

02 

90 

99 

99 

39 

ff 

9f 

Bf 

090B 

: 

ff 

00 

02 

ff 

00 

02 

ff 

00 

90 

09d0 

: 

05 

Oe 

ff 

ff 

02 

05 

le 

ff 

9d 

Oa90 

z 

9f 

02 

02 

lf 

9f 

9f 

ff 

02 

90 

0910 

z 

02 

4f 

00 

02 

07 

01 

7f 

bf 

fO 

09d8 

■ 

ff 

02 

05 

lf 

ff 

ff 

02 

03 

Oc 

OaaO 

« 

07 

BO 

02 

9f 

00 

02 

07 

01 

Ba 

0910 

Z 

df 

ef 

f 7 

fb 

f d 

f e 

02 

Q7 

5b 

09e0 

: 

el 

fO 

f8 

ff 

ff 

02 

03 

el 

57 

OaaB 

z 

02 

27 

ff 

7f 

bf 

df 

ef 

f 7 

dB 

0920 

; 

ff 

02 

07 

ao 

02 

9f 

00 

02 

13 

09e8 

. 

03 

07 

ff 

ff 

GO 

□0 

02 

05 

Bd 

OabO 

1 

-f b 

fd 

fo 

02 

5f 

ff 

02 

07 

b6 

0928 


07 

01 

02 

07 

ff 

7f 

bf 

df 

cc 

09f 0 

z 

ff 

01 

01 

02 

03 

07 

ff 

ff 

5d 

OabB 

I 

80 

02 

ff 

00 

02 

ff 

00 

02 

5d 

0930 

: 

Bf 

f 7 

fb 

fd 

fe 

02 

Of 

ff 

16 

09f 0 


02 

07 

00 

02 

9f 

00 

02 

07 

ee 

OacO 

3 

ff 

00 

02 

ff 

00 

32 

ff 

00 

50 

0930 

z 

02 

00 

fO 

uO 

cl 

03 

07 

Of 

09 

OaOO 

z 

01 

02 

Oe 

ff 

df 

02 

06 

ff 

ac 

0 ac 8 

: 

02 

ff 

00 

02 

ff 

00 

02 

ff 

12 

0940 

z 

lf 

lf 

02 

07 

el 

02 

07 

ff 

9b 

OaOB 


fb 

7f 

bf 

df 

Bf 

f 7 

fb 

fd 

59 

OadO 

z 

00 

02 

ff 

00 

02 

ff 

00 

02 

f 5 

0940 

z 

cO 

cO 

02 

05 

fO 

3c 

3c 

02 

6f 

OalO 

z 

fe 

02 

6f 

ff 

02 

07 

80 

02 

49 

OadB 

z 

ff 

00 

02 

ff 

00 

02 

ff 

00 

60 

0930 

z 

05 

fc 

3f 

le 

Oc 

02 

02 

00 

40 

Oal0 

z 

9f 

00 

02 

07 

01 

02 

07 

ff 

55 

OaeO 

3 

02 

ff 

00 

02 

ff 

00 

02 

ff 

2 a 

0959 

z 

21 

33 

02 

03 

Of 

02 

03 

Oe 

ld 

0 a 20 

z 

bc 

b9 

02 

02 

79 

b9 

bc 

df 

92 

Oae0 

z 

00 

02 

ff 

00 

02 

ff 

00 

02 

Od 

0960 

z 

el 

cO 

00 

00 

le 

le 

00 

00 

94 

0a2B 

: 

3d 

9d 

02 

02 

fe 

9d 

3d 

fb 

be 

Oaf 0 

3 

ff 

00 

02 

10 

00 

02 

00 

20 

c2 

0960 

> 

ff 

ff 

7f 

3f 

02 

03 

lf 

f0 

d5 

0a30 

z 

02 

07 

ff 

7f 

bf 

df 

Bf 

f 7 

50 












0970 

: 

fO 

02 

03 

el 

eO 

oO 

07 

03 

96 

0a38 

3 

fb 

fd 

fe 

f 9 

f0 

f0 

02 

03 

96 












0970 

: 

Bl 

el 
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c3 

ad 

10 

c3 

1B 

c35B 

8 

01 

02 

03 

04 

05 

06 

07 

OB 

4B 

c4a0 

8 

49 

41 

53 

20 

cb 

52 

49 

45 

62 

c21B 

: 

Bei 

11 

c3 

cE 

Bc 

Of 

c3 

Bc 

al 

c360 

| 

09 

Oa 

Ob 

Oc 

Od 

Oe 

Of 

10 

50 

c4a0 

8 

53 

45 

4c 

4c 

00 

ff 

00 

ff 

3a 

c220 

8 

10 

c3 

ad 

Od 

c3 

4a 

Bd 

16 

10 

c36B 

1 

11 

12 

13 

14 

15 

16 

17 

1B 

50 












c22B 

* 

c3 

ad 

Oc 

c3 

6a 

Bd 

15 

c3 

2c 

c370 

8 

19 

la 

lb 

lc 

ld 

le 

lf 

40 

aO 

Listing 5. Kernprogramm 




c230 

1 

4c 

d6 

c2 

ad 

Of 

c3 

30 

12 

42 

C37B 

8 

41 

42 

43 

44 

45 

46 

47 

48 

60 

von Klima 64 (Schluß) 





c23B 

8 

1B 

6d 

06 

c3 

Bd 

06 

c3 

ad 

74 

c300 

8 

49 

4a 

4b 

4c 

4d 

4e 

4 f 

50 

70 












c240 


07 

C3 

69 

00 

Bd 

07 

c3 

4c 

3c 

c3B0 

8 

51 

52 

53 

54 

55 

56 

57 

5B 

7B 












c24B 

8 

5b 

c2 

ad 

06 

c3 

38 

e9 

01 

dB 

c390 

8 

59 

5a 

3b 

5c 

Sd 

5b 

5f 

BO 

cO 












c250 

1 

Bd 

06 

c3 

ad 

07 

c3 

b9 

00 

bd 

c39B 

8 

80 

BO 

BO 

BO 

80 

BO 

BO 

BO 

9B 












C25B 

8 

ßd 

07 

c3 

ad 

OB 

c3 

1B 

6d 

o9 

c3a0 

8 

BO 

BO 

BO 

BO 

BO 

BO 

BO 

BO 

aO 












cf 260 

8 

11 

c3 

Bd 

OB 

c3 

ad 

15 

c3 

3d 

c3aB 

8 

BO 

BO 

BO 

BO 

BO 

BO 

BO 

BO 

aB 












C26B 

8 

1B 

6d 

Oo 

c3 

Bd 

15 

c3 

ad 

lf 

c3bO 

8 

BO 

BO 

BO 

BO 

B0 

BO 

BO 

BO 

bO 












c270 

8 

16 

c3 

69 

00 

Bd 

16 

c3 

ee 

39 

c3bB 

8 

BO 

BO 

BO 

BO 

BO 

BO 

BO 

BO 

bB 

Name 

X 

1.1ima 

64/e 



c600 c672 

c278 

8 

,13 

c3 

dO 

03 

es 

14 

c3 

ad 

f b 

c3c0 

r 

00 

80 

BO 

00 

80 

BO 

80 

00 

cO 











c2B0 


16 

c3 

cd 

Od 

c3 

90 

4f 

dO 

2c 

c3cB 

i 

BO 

80 

BO 

BO 

BO 

BO 

BO 

BO 

cO 

c600 


20 

f d 


20 


b7 

a5 

14 

Oa 

c2BB 

8 

OB 

ad 

Oc 

c3 

cd 

15 

c3 

bO 

dB 

c3d0 

8 

BO 

80 

BO 

BO 

BO 

BO 

00 

40 

4f 

c60B 

I 

05 

ae 

a5 

15 

85 

af 

06 

bO 

42 

c290 

1 

45 

ad 

15 

c3 

3B 

ed 

Oc 

c3 

14 

c3dB 

ü 

41 

42 

43 

44 

43 

46 

47 

4B 

CB 

c610 


20 

f d 

ae 

20 

9e 

ad 

24 

Od 

eO 

c29B 

8 

Bd 

15 

c3 

ad 

16 

c3 

ed 

Od 

aB 

c3e0 

8 

49 

4a 

4b 

4c 

4d 

4e 

4f 

50 

dO 

c618 

: 

30 

06 

20 

dd 

bd 

20 

07 

b4 

73 

c2aO 

1 

c3 

Bd 

16 

c3 

ad 

12 

c3 

30 

03 

c3eB 

8 

51 

52 

53 

54 

55 

36 

57 

58 

dB 

c620 


So 

a6 

b6 

aB 

91 

bl 

22 

4B 

9B 

d4 

c2a0 

8 

12 

1B 

6d 

06 

c3 

Bd 

06 

c3 

2b 

c3f 0 

8 

59 

5a 

5b 

5c 

5d 

So 

5f 

BO 

20 

c620 


48 

a9 

00 

22 

a5 

22 

a4 

98 

c2b0 

8 

ad 

07 

c3 

69 

00 

Bd 

07 

c3 

Of 

c3f 8 

8 

BO 

BO 

BO 

BO 

BO 

BO 

BO 

BO 

fB 

c630 


23 

20 

4d 

cO 

60 

aB 

6B 

91 

5f 

c2bB 

8 

4c 

cc 

c2 

ad 

06 

c3 

30 

e9 

04 

c400 

3 

BO 

BO 

80 

00 

BO 

BO 

BO 

BO 

00 

c638 


22 

60 

20 

f d 


20 


b7 

5d 

c2c0 

8 

01 

Bd 

06 

c3 

ad 

07 

c3 

e9 

7B 

c408 

8 

BO 

BO 

80 

BO 

BO 

BO 

BO 

BO 

OB 

c640 


Ba 

aB 

a5 

15 


14 

4c 

57 

15 

c2cB 

8 

00 

0d 

07 

c3 

ad 

OB 

c3 

1B 

23 

c4 10 

3 

BO 

BO 

BO 

BO 

BO 

BO 

BO 

06 

lb 

c648 


c 1 

20 

fd 

ae 

20 

eb 

b7 

a5 

f a 

c2d0 

I 

6d 

10 

c3 

Bd 

OB 

c3 

ad 

07 

4b 

c4 10 

8 

06 

06 

06 

06 

06 

05 

06 

06 

10 

c650 


1 4 

Bd 

06 

c3 

a5 

15 

öd 

07 


c2dB 

8 

c3 

ae 

06 

c3 

ac 

OB 

c3 

20 

47 

c420 

8 

05 

06 

06 

05 

OB 

06 

06 

06 

lf 

c658 


c3 

8e 

00 

c3 

20 

f d 


20 

ca 

c2e0 

1 

57 

c 1 

ad 

14 

c3 

cd 

Od 

c3 

6c 

c420 

8 

06 

06 

06 

05 

06 

06 

OB 

07 

12 

c660 

s 

eb 

b7 

a5 

14 

Bd 

09 

c3 

a5 

8e 

c2eB 

8 

90 

09 

ad 

Oc 

c3 

cd 

13 

c3 

6B 

c430 

s 

06 

07 

05 

06 

05 

06 

07 

04 

61 

c668 


15 

0d 

Oa 

c3 

Be 

Ob 

c3 

4c 

2B 

c2f 0 

8 

bO 

01 

60 

4c 

33 

c2 

00 

BO 

Od 

c43B 

8 

03 

07 

OB 

07 

06 

06 

04 

05 

4d 

c670 


87 

cl 

ff 

00 

ff 

00 

ff 

00 

dB 

c2fB 

: 

cO 

eO 

fO 

f8 

fc 

fe 

00 

40 

ce 

c440 

s 

05 

06 

07 

04 

07 

03 

06 

06 

37 


c300 

c30B 

8 

20 

14 

10 

64 

OB 

00 

04 

64 

02 

00 

01 

00 

Oa 

00 

00 

00 

fb 

db 

c448 

c450 

8 

05 

06 

06 

03 

06 

04 

06 

06 

06 

07 

06 

06 

06 

06 

06 

06 

47 

5f 

Listing 6. Proportionalschrift- 



c310 

: 

00 

00 

00 

00 

00 

00 

00 

BO 

12 

c450 

8 

06 

06 

06 

06 

06 

06 

06 

06 

58 

Zeichensatz von Klima 64 





Name 

. 

kl ima 

64/f 



c910 ccOO 

calO 


00 

6c 

38 

fe 

38 

6c 

00 

00 

lb 

cb 18 


dB 

00 

dB 

dB 

dB 

d8 

70 

00 

50 














































8 

UU 

uu 

uu 

UU 

UU 

UU 

UU 

UU 

17 

CDZU 







CJtJ 

OD 

UU 

UV 

c91B 

8 

dB 

00 

70 

1B 

7B 

dB 

78 

00 

40 

ca20 

: 

cO 

cO 

cO 

cO 

00 

cO 

cO 

00 

92 

cb28 

: 

fO 

dB 

dB 

fO 

dB 

dB 

fO 

00 

fl 

c920 

: 

00 

00 

70 

18 

7B 

dB 

78 

00 

70 

ca28 


6c 6c dB 

£ f e 6c £ :o° 

01 

cb30 

s 

70 

dB 

cO 

cO 

cO 

dB 

70 

00 

e9 

C92B 

: 

cO 

cO 

fO 

dB 

dB 

dB 

fO 

00 

b0 

ca30 

: 

6c 

6c 

fe 

24 

cb38 

: 

fO 

d8 

dB 

d0 

dB 

dB 

fO 

00 

fe 

c930 

: 

00 

00 

70 

dB 

cO 

dB 

70 

00 

fc 

ca3B 


00 

00 

00 

00 

00 

6c 

6c 

dB 

ff 

cb40 

: 

fB 

cO 

cO 

fO 

cO 

cO 

fB 

00 

de 

c930 

s 

10 

10 

78 

dB 

dB 

dB 

78 

00 

cc 

ca40 

8 

18 

dB 

30 

30 

60 

60 

dB 

cO 

c4 

cb48 

3 

f 8 

cO 

cO 

fO 

cO 

cO 

cO 

00 

04 

c940 

: 

00 

00 

70 

dB 

f0 

cO 

7B 

00 

ef 

ca4B 

: 

dB 

70 

dB 

fB 

dB 

dB 

d8 

00 

65 

cb50 

3 

70 

d8 

cö 

fB 

dB 

dB 

7B 

00 

b2 

C94B 

: 

30 

60 

fO 

60 

60 

60 

60 

00 

7b 

ca50 

: 

60 

60 

cO 

00 

00 

00 

00 

00 

11 

cb5B 

X 

dB 

dB 

dB 

fB 

dB 

dB 

dB 

00 

a9 

c9S0 

8 

00 

00 

78 

dB 

dB 

7B 

1B 

fO 

ld 

ca58 

: 

30 

60 

60 

cO 

60 

60 

30 

00 

b2 

cb60 

3 

fO 

60 

60 

60 

60 

60 

fO 

00 

71 

c95B 

: 

cO 

cO 

fO 

dB 

dB 

dB 

dB 

00 

B7 

ca 60 

: 

cO 

60 

60 

30 

60 

60 

cO 

00 

7b 

cb6B 

X 

38 

1B 

1B 

1B 

18 

dB 

70 

00 

cO 

c960 

8 

60 

00 

eO 

60 

60 

60 

fO 

00 

dl 

ca6B 

s 

dB 

00 

70 

dB 

dB 

dB 

70 

00 

Be 

cb70 

8 

dB 

dB 

dB 

fO 

d8 

dB 

dB 

00 

cO 

C96B 

8 

1B 

00 

30 

1B 

1B 

1B 

dB 

70 

18 

ca70 

: 

00 

30 

30 

fc 

30 

30 

00 

00 

b9 

cb7B 

! 

cO 

cO 

cO 

cO 

cO 

cO 

fB 

00 

d6 

c970 

8 

cO 

cO 

dB 

fO 

eO 

fO 

dB 

00 

dd 

ca7B 

: 

00 

00 

00 

00 

00 

60 

60 

cO 

7f 

cbBO 

3 

c6 

ee 

fe 

d6 

c6 

c6 

c6 

00 

15 

c978 

3 

eO 

60 

60 

60 

60 

60 

fO 

00 

79 

caBO 

: 

00 

00 

00 

fc 

00 

00 

00 

00 

20 

cbBB 

8 

cc 

ec 

fc 

de 

cc 

cc 

cc 

00 

Ob 

C9B0 

: 

00 

00 

CC 

fe 

fe 

d6 

c6 

00 

55 

caBB 

8 

00 

00 

00 

00 

00 

cO 

cO 

00 

92 

cb90 

8 

70 

dB 

dB 

dB 

dB 

dB 

70 

00 

d4 

c9BB 

: 

00 

00 

fO 

dB 

d8 

dB 

dB 

00 

97 

ca90 

3 

1B 

1B 

30 

30 

60 

60 

cO 

cO 

54 

cb9B 

8 

fO 

dB 

dB 

fO 

cO 

cO 

cO 

00 

5e 

c990 

8 

00 

00 

70 

dB 

dB 

dB 

70 

00 

de 

ca9B 

8 

70 

dB 

dB 

dB 

dB 

dB 

70 

00 

de 

cbaO 

: 

70 

dB 

dB 

dB 

dB 

dB 

70 

lc 

lc 

c990 

8 

00 

oo 

fO 

dB 

dB 

fO 

cO 

cO 

B9 

caaO 

8 

60 

60 

eO 

60 

60 

60 

fO 

00 

41 

cbaB 

8 

fO 

d8 

dB 

fO 

dB 

dB 

dB 

00 

10 

c9a0 

8 

00 

00 

70 

dB 

dB 

7B 

1B 

1B 

bb 

caaB 

8 

70 

dB 

18 

70 

CO 

cO 

fB 

00 

Be 

cbbO 

3 

70 

dB 

cO 

70 

1B 

dB 

70 

00 

d5 

c9a8 

8 

00 

00 

fO 

dB 

cO 

cO 

cO 

00 

15 

cabO 

8 

70 

dB 

1B 

70 

1B 

d8 

70 

00 

ab 

cbbB 

3 

fc 

30 

30 

30 

30 

30 

30 

00 

24 

c9bO 

1 

00 

00 

70 

cO 

70 

1B 

fO 

00 

70 

cabB 

8 

dB 

dB 

dB 

dB 

fB 

1B 

1B 

00 

fe 

cbcO 

X 

dB 

dB 

dB 

dB 

dB 

dB 

70 

00 

6c 

c9bB 

8 

60 

60 

fO 

60 

60 

60 

30 

00 

5a 

cacO 

: 

fB 

cO 

fO 

1B 

1B 

dB 

70 

00 

62 

cbcB 

X 

dB 

d8 

dB 

dB 

dB 

70 

20 

00 

ef 

c9cO 

8 

00 

00 

dB 

dB 

dB 

dB 

7B 

00 

4B 

cacB 

: 

70 

dB 

cO 

fO 

dB 

dB 

70 

00 

09 

cbdO 

: 

c6 

c6 

c6 

d6 

fe 

ee 

c6 

00 

08 

c9cB 

8 

00 

00 

dB 

dB 

dB 

70 

20 

00 

ab 

cadO 

: 

fB 

dB 

1B 

30 

30 

30 

30 

00 

S6 

cbdB 

X 

dB 

dB 

dB 

70 

dB 

dB 

dB 

00 

1B 

c9dO 

3 

oo 

00 

c6 

d6 

fe 

7c 

6c 

00 

e2 

cadS 

c 

70 

dB 

dB 

70 

dB 

dB 

70 

00 

Of 

cbeO 

3 

CC 

CC 

CC 

7B 

30 

30 

30 

00 

9a 

c9dB 

8 

00 

00 

cc 

7B 

30 

7B 

cc 

00 

14 

caeO 

8 

70 

dB 

dB 

78 

1B 

dB 

70 

00 

Oc 

cbeB 

s 

fc 

Oc 

10 

30 

60 

cO 

fc 

00 

f 6 

c9e0 

8 

00 

00 

dB 

dB 

dB 

7B 

1B 

fO 

c5 

caeB 

s 

00 

00 

cO 

CO 

00 

cO 

cO 

00 

3a 

cbf 0 

3 

fc 

fc 

fc 

fc 

fc 

fc 

fc 

00 

f5 

c9e0 

8 

00 

00 

fc 

1B 

30 

60 

fc 

00 

24 

cafO 

8 

00 

00 

60 

60 

00 

60 

60 

cO 

lb 

cbfB 

X 

dB 

70 

dB 

dB 

dB 

dB 

70 

00 

70 

c9f0 

8 

fO 

cO 

cO 

cO 

cO 

cO 

fO 

00 

5e 

cafB 

8 

1B 

30 

60 

cO 

60 

30 

1B 

00 

40 












c9fB 

CflOO 

8 

eO 

fO 

dO 

30 

dO 

30 

fO 

30 

dB 

30 

dB 

30 

fO 

fO 

cO 

00 

2c 

63 

cbOO 

cbOB 


00 

cO 

00 

60 

fc 

30 

00 

1B 

fc 

30 

00 

60 

00 

cO 

00 

00 

Of 

11 

Listing 7. Eingabe-Ausgabe-Routinen 

caOB 

' 

dB 

00 

dB 

dB 

dB 

dB 

78 

oo 

6 B 

cblO 


70 

dB 

1B 

30 

00 

30 

30 

00 

3b 

zur Proportionalschrift von Klima 64 


10 REM #**#*#*#**#*#*****##»####*#•»**** 

<060> 

122 

FOR 1=1 TO QQ 

<061 > 

12 REM » KLIMA 64: DATEN KOPIEREN * 

<248> 

124 

INPUT02 , QQi < I) : PRINT"/“ j QGi (I) : NEXT 

<040> 

14 REM ***■****#»*■**•**»***•»*•»***»**•»**»* 

<064 > 

126 

CLOSE 2 

< 145> 

16 : 

<248> 

128 

I 

<104> 

100 REM **» INDEX LESEN #***«##»##**#*# 

<255> 

200 

REM *** DATEN LESEN *#**««*»*#***** 

< 131 > 

102 Z*=CHR* (0) :DIM QQ:M255) ,A* <255) 

<212> 

202 

OPEN 2,8,2,"DATEN,L,"+CHRi(38) 

<250> 

104 POKE 53200,6: POKE 53281. ,6: PRINT" CCLR.C 


204 

PRINT"ID0WN1SATEN LESEN:“ 

<081 > 

TRL-H,CTRL-N,WHITE,DOWN,RVSON,SPACE! Jü 


206 

FOR 1=1 TO QQ:PRINT"/";QQi<I) 

<061 > 

.IAH. 64: ÜATEN KOPIEREN " 

<219> 

208 

PRINTttl , "P ICTRL-BJ ”+CHRi < I) +Z*+Z$ 

<064 > 

106 PRINT"T2D0WN)SUELL";:GOSUB 900 

<218> 

210 

Ai(I)="" 

<172> 

108 OPEN 1,8,15,"I" 

<096> 

212 

FOR J=1 TO 36:GET#2,Ai 

< 146> 

110 OPEN 2,8,2,"INDEX,P,R" 

< 139> 

214 

Ai<I)=Ai<I)+CHR» <ASC <Ai+Zi)):NEXT 

<030> 

112 INPUTttl ,A,Ai,Al ,A2: IF A=0 THEN 120 

<217> 

216 

NEXT 

< 226 > 

114 CLOSE 2:CLOSE 1 

<136> 

218 

CLOSE 2 

<237> 

116 PRINT" C2D0WNÜE INE ARTE ERFASST." 

118 PRINT:END 

< 164> 

< 181 > 

Listing 8. Programm zum Kopieren der relativen und 

120 INPUTK2,QQ:PRINT"CDQWNJXNDEX LESEN:" 

<200> 

sequentiellen Dateien von Klima 64 



154 


SONDERHEFT 11 























C 64 


ANWENDUNG 


220 : <196> 
300 REM *** INDEX SCHREIBEN *********** <027> 
302 PRINT"C2D0WNJ2IEL"s:GOSUB 900 <092> 
304 OPEN 2,8,2,"INDEX,P,W" <099> 
306 INPUT41,A,A$,A1,A2:IF A=0 THEN 316 <160> 
308 CLOSE 2:CLOSE 1 <076> 
310 PR I NT 11 C2DQWN > 2JATEND ISKETTE ENTHAELT BE 

REITS SÄTEN." < 092 > 
312 PRINT" CDQWN) .PROGRAMM ERNEUT STARTEN. " <0B7> 
314 PRINT!END <123> 
316 PRINT"(DOWN)INDEX SCHREIBEN: ” <203> 
320 PRINT#2,Q0 <117> 
322 FOR 1=1 TO 00 <007> 
324 PRINT"/"iQ0*<I>:PRINT#2,GQ*<I):NEXT <204> 
326 CLOSE 2 <091> 
328 : < 050 > 
400 REM *** DATEN SCHREIBEN *********** <159> 
402 OPEN 2,8,2,"DATEN,L,"+CHR*<38) <196> 
404 PRINT"CDOWN)SÄTEN SCHREIBEN:" <051> 
406 FOR 1 = 1 TO QQ: PRINT'Vs QQ*(I> <007> 
40B PRINT41,"P CCTRL-B) " f-CHR$(I) +Z$+Z*' <010> 
410 PRINT#2,A*(I>:NEXT <045> 
412 CLOSE 2:CLOSE 1 <180> 
414 PR INT" <2D0WN ),ÜOP IERVORGANG BEENDET." <100> 
416 PRINT:END <225> 
418 : <140> 
900 REM *** "RETURN" ****************** <070> 
902 PRINT"DISKETTE EINLEGEN, C .RJLT.n.KJl ]. " <006> 
904 GET A*:IF A*<>CHR*(13)THEN 904 <058> 
906 RETURN <202> 
908 : <122> 


Listing 8. Kopierprogramm für relative und 
sequentielle Dateien (Schluß) 






10 

REM ******************************** 


<060> 

12 

REM * KLIMA 64: EXEMPL. KLIMAWERTE * 


< 179> 

14 

^EM ******************************** 


<064> 

16 

: 


<248> 

100 

REM *** DATEN EINLESEN ************ 


<179> 

102 

00=10:DIM OQ*(QQ),T(QQ,12>,N(00,12) 


m 

104 

FOR 1=1 TO QQ:READ QQ$(I) 


106 

FOR J=1 TO 12:READ T(I,J):NEXT 


< 188> 

108 

FOR J=1 TO 12:READ N(I,J):NEXT 


< 142> 

110 

NEXT 


< 120> 

112 

Z*=CHR*<0) 


< 104) 

114 

: 


<090> 

200 

REM *** DATEN SCHREIBEN *********** 


<213> 

202 

POKE 53280,6;POKE 53281,6:PRINT"CCLR 
TRL-H,CTRL-N,WHITEV 

C 

< 164> 

204 

PRINT"CRVSON,SPACE>BLIMA 64: SXEMPLARI 
SCHE BLIMAWERTE " 

<251 > 

206 

PRINT"(2D0WN)£ATENDISKETTE EINLEGEN, 

.BF.TUBJj.:. " 

C 

<091 > 

208 

GET A*:IF A*<>CHR*(13)THEN 208 


< 142> 

210 

s 


< 186> 

212 

OPEN 1,8,15,"I" 


<200> 

214 

OPEN 2,8,2,"INDEX,P,W" 


<007> 

216 

INPUTttl ,A,A*,A1 ,A2: IF A=0 THEN 300 


<001> 

218 

PRINT"C2D0WN)SATENDISKETTE MITCSPACE,R 
VSON,SPACE >0(SPACE,R90FF,SPACEIERFASST 



EN SRTEN" 


< 139> 

220 

PRINT"CDOWN)flRTEN EINLEGEN. .PROGRAMM 
EU STARTEN." 

N 

<242> 

222 

CLOSE 2:CLOSE 1:PRINT:END 


<032> 

224 

s 


<200> 

300 

REM *** "INDEX" ******************* 


< 125 > 

302 

PR INT#2 , QQ : PRINT " {DOWN>.INDEX' SCHREIBEN 

i " 

<093> 

304 

FOR 1=1 TO OQ:PRINT"/";QQ*(I) 


< 161 > 

306 

FRINT#2,QQ*(I> : NEXT:CLOSE 2 


<08B> 

308 

: 


<030> 

400 

REM *** "DATEN" ******************* 


<034> 

402 

404 

OPEN 2,8,2,"DATEN,L,"+CHRt (38 ) 

PRINT"CDOWN > BATEN SCHREIBEN:":FOR 1=1 
TO 00 


< 196> 

< 195> 

406 

PRINT#1,"PCCTRL-B)"+CHR*<I)+Z*c-Z* 


<00B> 

408 

PRINT"/";QQ*(I) : A*="":FOR J=1 TO 12 


<061 > 

410 

L=(N(I,J)AND 255) : H=INT(N ( I , J ) /256> 


<219> 

412 

A*=A*+CHR* ( 50+T ( I , J )) 


< 112> 

414 

A*=A*+CHR*(L)+CHR*(H):NEXT 


< 127> 

416 

PRINT#2 , A$ 


< 136> 

418 

NEXT 


< 174> 

420 

CLOSE 2:CLOSE 1 


<1BB> 

422 

PRINT " CDOWN)SCHREIBVORGANG BEENDET ." 


< 169> 

424 

PRINT:END 


<233> 


426 : <148> 
500 REM *** KLIMAWERTE **************** <0B5> 
502 DATA "BACHEN" <1B4> 
504 DATA 2,3,5,8,13,15,17,16,14,10,5,3 <253> 
506 DATA 68,58,61,61,60,75,91,78,70,75,65, 

78 <054> 
508 DATA "STOCKHOLM" <234> 
510 DATA -3,-3,-1,3,9,14,17,15,12,6,2,-2 <092> 
512 DATA 36,33,33,38,38,43,61,74,48,46,48, 

48 <183> 
514 DATA "BARIS" <041> 
516 DATA 2,4,6,10,13,17,18,1B,15,10,6,3 <050> 
518 DATA 35,36,39,41,49,56,50,48,49,58,47, 

44 . <133> 
520 DATA "BARCELONA" ' <152> 
522 DATA 9,10,12,14,17,21,23,24,21,18,13,1 

1 <154> 
524 DATA 25,49,52,53,56,35,28,34,67,99,66, 

36 , <036> 
526 DATA "SENINGRAD" <147> 
528 DATA -9,-8,-5,2,9,15,18,16,11,5,-2,-7 <101> 
530 DATA 27,25,22,30,41,54,59,82,60,46,35, 

32 <161 > 
532 DATA “ÄALKUTTA" <077> 
534 DATA 20,23,27,31,31,30,29,29,29,28,24, 

20 < 001 > 
536 DATA 11,12,22,35,82,250,322,288,304,13 

2,16,3 <090> 
538 DATA "BEKING" <204> 
540 DATA -4,-2,6,13,21,24,27,25,21,13,4,-2 <215> 
542 DATA 3,5,5,15,38,36,211,155,64,1B,B,3 <066> 
544 DATA "£ERTH" <016> 
546 DATA 23,23,22,19,16,14,13,13,14,16,19, 

22 <04B> 
548 DATA B, 1.0,20,43, 130,1B0,170,143,86,56, 

20,15 <155> 
550 DATA "BIO DE .JANEIRO” <191> 
552 DATA 26,26,25,24,22,21,21,21,21,22,23, 

24 <169> 
554 DATA 127,114,140,107,84,58,46,48,66,86 

,104,140 <184> 
556 DATA "SAC flURDO" <175> 
558 b AT . -3,-9,-18,-23,-23,-25,-27,-29,-23 

,-20,-10,-4 <026> 
560 DATA 11,4,6,6,13,5,5,11,12,8,6,7 <220> 


Listing 9. Programm zum Erstellen einer exemplarischen 
Datei 


Name : hardcopy 9000 9130 


9000 

z 

ad 

1 B 

dO 

29 

Oc 

Oa 

Oa 

Oa 

60 

9008 

: 

Oa 

Bd 

5a 

90 

ad 

00 

dd 

4a 

68 

9010 

i 

6 e 

Sa 

90 

4a 

6 e 

5 a 

90 

ad 

70 

901B 

3 

5a 

90 

49 

cO 

Bd 

5a 

90 

a9 

66 

9020 

Z 

00 

Bd 

59 

90 

ad 

11 

dO 

29 

48 

9028 

z 

20 

dO 

01 

60 

7B 

a9 

35 

B5 

bl 

9030 

s 

01 

a9 

Cf 

Bd 

03 

dd 

a9 

11 

9f 

9038 

1 

aO 

91 

Bd 

02 

91 

Bc 

fb 

90 

d3 

9040 

3 

a9 

Oh 

aO 

91 

20 

e3 

90 

a9 

01 

9048 

: 

19 

Bd 

2 c 

91 

a9 

28 

Bd 

2 d 

dl 

9050 

8 

91 

a9 

OB 

Bd 

2 e 

91 

aO 

OB 

6 c 

9058 

3 

ad 

00 

60 

a2 

01 

2 a 

ca 

dO 

aO 

9060 

8 

fc 

2b 

2 f 

91 

ee 

59 

90 

dO 

Of 

9068 

3 

03 

ee 

5a 

90 

BB 

dO 

e9 

ee 

20 . 

9070 

3 

5c 

90 

38 

ad 

59 

90 

b9 

OB 

aa 

907B 

3 

Bd 

59 

90 

ad 

5a 

90 

b9 

00 

5d 

9080 

8 

Bd 

5a 

90 

ee 

62 

90 

dO 

03 

30 

9088 

8 

ee 

63 

90 

ce 

2 e 

91 

dO 

c6 

66 

9090 

8 

a9 

01 

Bd 


90 

1B 

ad 

59 

de 

909B 

8 

90 

69 

OB 

Bd 

59 

90 

ad 

5a 

16 

90a0 

8 

90 

69 

00 

Bd 

5a 

90 

ce 

2 d 

56 

90aB 

8 

91 

dO 

a6 

a9 

Oe 

aO 

91 

Bd 

c7 

90b0 

3 

02 

91 

Bc 

fb 

90 

a9 

09 

aO 

d9 

90bB 

8 

91 

20 

e3 

90 

a9 

6 f 

Bd 

02 

b5 

90c0 

8 

91 

a9 

92 

Bd 

fb 

90 

a9 

2 f 

c5 

90c B 

3 

Bd 

62 

90 

aO 

91 

Bc 

63 

90 

eb 

90d0 

3 

20 

e3 

90 

a9 

Od 

20 

11 

91 

74 

90dB 

3 

ce 

2 c 

91 

dO 

29 

a9 

37 

B5 

02 

90e0 

8 

01 

58 

60 

Bc 

eb 

90 

Bd 

ea 

06 

90bB 

3 

90 

ad 

00 

20 

20 

11 

91 

ee 

02 

90 fO 

8 

ea 

90 

dO 

03 

ee 

eb 

90 

ad 

a3 

90f8 

8 

eb 

90 

c9 

41 

dO 

eb 

ad 

ea 

bf 

9100 

: 

90 

c9 

40 

30 

e4 

60 

4c 

4c 

a6 

910B 

s 

90 

lb 

67 

05 

40 

01 

lb 

41 

9b 

9110 

I 

08 

8 d 

01 

dd 

ad 

Od 

dd 

ad 

fl 

9118 

8 

00 

dd 

29 

fb 

8 d 

00 

dd 

09 

33 

9120 

8 

04 

8 d 

00 

dd 

a9 

10 

2 c 

Od 

Bc 

9128 

8 

dd 

fO 

fb 

60 

ea 

ea 

ea 

ea 

10 
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C 64 


Weisung 

am laufenden Band 


Jetzt können Sie den C64 zur Schaufensterwer¬ 
bung einsetzen. Auf insgesamt 32 Bildschirm¬ 
tafeln läßt sich beliebiger Text horizontal scrollen. 
Um den Werbeeffekt zu erhöhen, können Sie 
zusätzlich noch 8 Sprites mit Ihrem Firmen¬ 
zeichen in den Bildschirm einblenden. 

M it dem Programm Lauftext können Sie bis zu 32 Text¬ 
tafeln horizontal über den Bildschirm scrollen. Zur 
Verfügung steht der normale Commodore-Zeichen- 
satz, sämtliche Farben und Steuerzeichen. Auf den einzelnen 
Tafeln lassen sich maximal 16 x 32 = 512 Zeichen unterbrin¬ 
gen. Wenn eine zu erstellende Tafel mit einem Rahmen ver¬ 
sehen werden soll, was vom eingebauten Editor auf Wunsch 
automatisch erfolgt, bleiben noch 29 x 13 Zeichen übrig. 
Allerdings kann man in einem solchen Fall keine Kleinbuch¬ 
staben verwenden, da der Rahmen mit Hilfe der Commodore- 
Grafikzeichen erstellt wird. 

Die Geschwindigkeit, mit der sich die einzelnen Tafeln über 
den Bildschirm bewegen, läßt sich nicht beeinflussen. Man 
ist aber durchaus in der Lage, die Zeit, in der die Tafeln auf 
dem Bildschirm stehen, zu verändern. 

Im Programm ist eine Routine integriert, die es gestattet, 
oberhalb der 16 Zeilen hohen Tafeln acht beliebige Sprites 
einzublenden. 

Eingabehinweise 

Um Ihnen unnötige Tipparbeit zu ersparen, sind die vier 
Files, aus denen das Programm Laüftext besteht, zu zwei 
Files zusammengefaßt worden (Lauftext 1 und Lauftext 2). 
Das Programm Lauftext 1 (Listing 1) ist mit dem Checksum¬ 
mer und das Programm Lauftext 2 (Listing 2) mit dem MSE 
einzugeben. Nach dem Abtippen der beiden Programmteiie, 
müssen Sie zunächst das Programm Lauftext 1 mit 
LOAD"LAUFTEXT1 ",8 und anschließend, ohne NEW einzu¬ 
geben, den zweiten Teil mit LOAD" LAUFTEXT2 * ,8,1 nachla¬ 
den. Wird jetzt RUN < RETURN > eingegeben, erzeugt das 
Programm die vier erforderlichen Files auf der Diskette. Ist 
das geschehen, können Sie von nun an das Hauptprogramm 
mit 

LOAD "EDITOR", 8 

laden und mit RUN starten. Die erforderlichen Programmteile 
werden automatisch nachgeladen. Sollte nach dem ersten 
RUN die READY-Meldung erscheinen, ist noch einmal RUN 
< RETURN > einzugeben. 


Anleitung zum Editor 


Wurde das Programm »Editor« mit RUN gestartet, erscheint 
ein neun Punkte umfassendes Menü auf dem Bildschirm: 


1. LADEN 

2. SPEICHERN 

3. TESTLAUF 

4. EDITIEREN 

5. ECHTLAUF 


6. PARAMETER 

7. LÖSCHEN 

8. EINFÜGEN 

9. ENDE 


Bevor die Menüpunkte nun im einzelnen besprochen wer¬ 
den, soll zuerst geklärt werden, wie man Vorgehen muß, um 
eine neue Textdatei anzulegen: 

1. Menüpunkt »Parameter« anwählen. 

2. Pausenzeit festlegen (0=fließend, 255=langsam) und 
mit < RETURN > bestätigen. 

3. Anzahl der zu editierenden Bildschirme eingeben (1 bis 
32) 

Nun kann im Menüpukt 4 »editieren« weiter gemacht wer¬ 
den. 


LADEN 

Ist der File-Name eingegeben und durch < RETURN > 
bestätigt worden, lädt das Programm vorher gespeicherte 
Tafeln. Dabei wird die Anzahl der Bilder, die beim Erstellen der 
Tafeln unter dem Menüpunkt »Parameter« angegeben wur¬ 
den, berücksichtigt. 

SPEICHERN 

Diese Funktion speichert die Bildtafeln mit allen erforderli¬ 
chen Parametern unter dem gewünschten Namen. 

TESTLAUF 

Läßt alle Tafeln mit der zweithöchsten Geschwindigkeit ein¬ 
mal durchlaufen. Der Menüpunkt dient dazu, die einzelnen 
Tafeln z; 11 ' oerprüfen. 

EDITIEREN 

Nach der Angabe, welche Tafel editiert werden soll (um 
neue Tafeln hinzuzufügen siehe Punkt »Parameter«), stehen 
folgende Tasten zur Verfügung: 


<F1 > 

<F3> 

<F5> 

<CLR/HOME> 


<CRSR> 

<CTRL> oder 
<CBM> + <1> bis 
<9> 


- übernimmt die neue Tafel 

- zeichnet einen Rahmen in der aktu¬ 
ellen Hintergrundfarbe 

- löscht die neue Tafel und zeigt dieje¬ 
nige an, die vor dem Editieren exi¬ 
stiert hat 

- löscht die Tafel. Wenn vorher die Zei¬ 
chenfarbe geändert wurde, wird der 
ganze Farbspeicher mit der neuen 
Farbe gefüllt. 

- Die Cursor-Tasten erlauben ein frei¬ 
es Bewegen innerhalb der Tafel. 

- bestimmt, in welcher Farbe die Zei¬ 
chen erscheinen sollen. Eine rever- 
se Darstellung ist ebenfalls möglich. 


ECHTLAUF 

Die Tafeln scrollen mit der von Ihnen gewünschten Pausen¬ 
dauer über den Bildschirm. Im Editor läßt sich der Echtlauf mit 
< RUN/STOP > nach jedem vollständigen Durchlauf abbre¬ 
chen. Das Programm muß anschließend neu gestartet wer¬ 
den. 


PARAMETER 

Hier läßt sich zum einen die Pausendauer festlegen 
(0=kurz, 255=lang). Zum anderen können Sie an dieser 
Stelle bestimmen, wieviele Tafeln erscheinen sollen (maximal 
32). Nach dem Start des Editors steht hier eine Null. Die ein¬ 
zugebende Zahl richtet sich nach der gewünschten Anzahl 
der Bilder. Soll die Anzahl der Bilder nachträglich erhöht wer¬ 
den, ist die Zahl einfach entsprechend zu vergrößern. 
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LÖSCHEN 

Möchten Sie ein bestimmtes Bild löschen, ist an dieser 
Stelle die entsprechende Nummer einzugeben. 

EINFÜGEN 

Nach der Angabe der Bildnummer verschiebt der Compu¬ 
ter alle nachfolgenden Tafeln um eins und erhöht den Endver¬ 
merk. 

ENDE 

Das Programm wird beendet. 

Sprites 


Um Sprites definieren zu können, existiert das Programm 
Spriteedi (Listing 3), bei dem es sich um einen einfachen 
Sprite-Editor handelt. Das Programm wird mit 

LOAD "SPRITEEDI", 8 

geladen und mit RUN gestartet. Ist der Name eingegeben, 
unter dem das neue Sprite gespeichert werden soll, wird eine 
Eingabemaske aufgebaut, und in der zweiten Bildschirmzeile 
erscheint die READY-Meldung. Bevor Sie nun anfangen, das 
Sprite zu editieren, ist es angebracht, diese READY-Meldung 
mit der < SPACE>-Taste zu löschen. Ist das geschehen, 
kann mit <*> ein Punkt gesetzt und mit <SPACE> ein 
Punkt gelöscht beziehungsweise übersprungen werden. 
Angefangen in der oberen linken Bildschirmecke läßt sich 
das Sprite in einem Feld von 24 horizontalen und 21 vertika¬ 
len Punkten entwerfen. Während der Sprite-Definition darf 
nicht < RETURN > gedrückt werden. Ist man mit der Arbeit 
fertig, muß der Cursor auf die vorletzte Zeile positioniert wer¬ 
den. Wird jetzt die < RETURN >-Taste gedrückt, speichert 
das Programm das Kunstwerk unter dem Namen, der einge¬ 
geben wurde. 

Um die restlichen sieben Sprites zu erhalten, die das Pro¬ 
gramm Editor auf den Bildschirm zaubert, gehen Sie genauso 
vor wie bei dem ersten Sprite. Sind die gewünschten Sprites 
auf der Diskette gespeichert, dann verknüpft der Linker 
(Listing 4) sie zu einem Programm, das vom Editor akzeptiert 
wird. Die Bedienung des Linkers ist extrem einfach. Wird das 
Programm mit 
LOAD "LINKER", 8 

geladen und mit RUN gestartet, müssen zunächst die Namen 
der Sprites angegeben werden, die der Editor ausgeben soll. 
Jede Namenseingabe wird mit < RETURN > abgeschlos¬ 
sen. Wollen Sie statt der acht möglichen nur ein oder zwei 
Sprites darstellen, ist die Frage nach den restlichen Sprite- 
Namen mit < RETURN > zu beantworten. Sind die Sprites, 
die zu einem Programm zusammengefaßt werden sollen, ge¬ 
laden, was übrigens auf dem Bildschirm angezeigt wird, müs¬ 
sen Sie, wenn das File »EDISPRITE« nicht zerstört werden 
soll, eine andere Diskette einlegen und die < RETURN >- 
Taste drücken. Für den Fall, daß das File »EDISPRITE« über¬ 
schrieben werden kann, reicht < RETURN >. Das an das 
Programm »Editor« angepaßte Sprite-File wird nun unter dem 
Namen »EDISPRITE« auf der Diskette gespeichert. 

Wichtige Informationen 


Im Speicher sind die Daten spaltenweise abgelegt, um eine 
maximale Scroll-Geschwindigkeit zu erreichen; zuerst Zeile 
1 Spalte 1, dann Zeile 2 Spalte 1 etc.. 

Die Daten der Sprites stehen ab Speicherzelle 240 x 64 im 
RAM. Ein eigener Sprite-Satz läß sich sowohl mit dem Listing 
3 wie aber auch mit vielen anderen Sprite-Editoren bearbei¬ 
ten. Wer keine Sprites haben will, muß in Zeile 5000 (Editor) 
»PORE 50154,44:POKE 50186,44« einfügen. Sollen nur 
kleine Sprites ausgegeben werden, entfällt der erste POKE- 
Befehl. 


Ab Zeile 10000 (Editor) werden den Sprites die Sprite- 
Pointer (Speicherstelle 2040 bis 2047) und die Farben 
zugewiesen. Die x- und y-Position der neuen Sprites muß 
angegeben werden, wenn Sie mit den vorgegebenen Koordi¬ 
naten nicht einverstanden sind. Eine x-Position größer 255 
ist nicht möglich. Die Positionen der Sprites stehen ab Spei¬ 
cherzelle 50098 im RAM und zwar in folgendem Format: 
50098 x-Sprite 1, y-Sprite 1 
50100 x-Sprite 2, y-Sprite 2 etc. 

Für die vergrößerten Sprites gilt das gleiche ab Speicher¬ 


zelle 50115. (Germano Caronni/ah) 


1 PRINT"tCLR,3D0WN>SPRITENAME" } s INPUT X*lB 

OTO 50 <154> 
10 OPEN 2,B,l,"es"+X*+",S,W"sP0KE 53280,0 <249> 
20 FÜR 1-0 TO 2« A“0sFGR N=0 TO 7sA=A-2T(7- 

N)*(PEEK(1024+N+I*B)=42)«NEXT <249> 
30 PRINT Af sA*=CHR*(A) sPRINT#2,A*j:NEXT:PR 

INTsX=X+1sIF X<21 THEN 20 <19B> 
40 CLOSE 2s END <23B> 
50 POKE 53280,0 «POKE 532B1.6 SPRINT CHR*( 

142)CHR*(147)j <055> 
60 PRINT SPC(24>"<WHITE> = <21B> 
70 PRINT SPC(24)" = <09B> 
80 PRINT SPC(24)"d <10B> 
90 PRINT SPC (24) "d <UB> 
100 PRINT SPC(24)"d <128> 
110 PRINT SPC(24)<138> 
120 PRINT SPC(24)"d <14B> 
130 PRINT SPC(24)”d <15B> 
140 PRINT SPC(24)"d <16B> 
150 PRINT SPC(24)"d <178> 
160 PRINT SPC(24)"d <18B> 
170 PRINT SPC(24)"d <19B> 
180 PRINT SPC(24)"d <20B> 
190 PRINT SPC(24)"d <21B> 
200 PRINT SPC(24)“d <22B> 
210 PRINT SPC(24)"d <23B> 


■c*® rttii i <24B> 

230 PRINT SPC(24)" = <002> 

240 PRINT SPC(24)"d <012> 

250 PRINT SPC(24)"d <022> 

260 PRINT SPC (24) "d <034> 

270 FOR Z=1 TO 24 s PRINT"ä"( s NEXT <0B1> 

280 PR INT 11 5? <10B> 

290 PRINT <13B> 

300 PRINT"CBLUE>Gfll0{3SPAGE>3 CWHITETWENN F 

ETIB HIER RETURN EINGEBEN <155> 

310 PRINT"{HOME>" <036> 

Listing 3. »Spriteedi» - zum Gestalten eigener Sprlte-Sätze 

--- : _ 


1 POKE 46,120:CLR <107> 

10 POKE 53280,0SPOKE 53281,0sPRINT"{WHITE, 

CLRJ" <100> 

20 PRINT"LAUFTEXT - VORBEREITUNG" <204> 

30 PRINT"BITTE LEGEN SIE EINE DISKETTE EIN 

<204> 

40 PRINT"AUF DER DIE EINZELNEN PROGRAMME" <1B5> 
50 PRINT"GESPEICHERT WERDEN KOENNEN" <190> 

60 PRINT"<7D0WN,35RIBHT)TASTE" <075> 

70 POKE 198,0s WAIT 19B,lsP0KE 19B,0 <173> 

80 PRINT"CCLR>DANKE(DOWN>" <041> 

90 PRINT"DIE PROGRAMME WERDEN JETZT GESPEI 

CHERT" <253> 

99 PRINT"I5DOWN.5RIGHTJBITTE WARTEN" <154> 

100 OPEN 2,B,2,"EDITOR,P,W" <121> 

110 FOR 1-2700 TO 4697sPRINT#2,CHR*(PEEK(I 

>>jsNEXTsCLOSE 2 <064> 

120 OPEN 2,8,2,"MtS+E3,P,W" <231> 

130 FOR 1=4700 TO 5754sPRINT#2,CHR*(PEEK(I 

>>jsNEXTsCLOSE 2 <000> 

140 OPEN 2,8,2,"SA+LO(53240>,P,W" <050> 

150 FOR 1=5800 TO 6257s PRINT#2,CHR*(PEEK(I 

)) ,• sNEXTsCLOSE 2 <177> 

160 OPEN 2,8,2,"EDISPRITE,P,W" <0B5> 

170 FOR 1=6300 TO 6813sPRINT#2,CHR*(PEEK(I 

));s NEXTs CLOSE 2 <019> 

1B0 ENDs WRITTEN BY GERMANO CAR ON NI <252> 


Listing 1. »Lauftextl» - Baslc-Teil zum Programm »Editor« 
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Name 

lauftext 2 



0a7B 

lab4 

0dB0 


34 

33 

29 

3a 

42 

b2 

c 2 

2B 

f 5 

1090 


3a 

00 

lc 

0e 

58 

lb 

Bf 

20 

7B 



























48 

45 

4e 

7B 









MafcifcJ 


34 


Zrf 

oa 

*•0 


r. tC 

2'U 

Ha 

luau 


*»c 

'1 t 


JO 

4o 

0a7B 

00 00 00 

00 
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17b0 

8 

d0 

03 

4c 

10 

f 7 

20 

d5 

f 3 

d7 

1 a0B 

8 

25 

B3 

14 

24 

66 

e4 

13 

18 

82 

1560 

8 

a5 

8b 

3B 

B9 

ff 

B5 

8b 

B5 

7b 

17bB 

8 

20 

Bf 

f 6 

a5 

ba 

20 

0c 

Bd 

cb 

lal 0 

3 

CB 

08 

c3 

10 

04 

3c 

20 

03 

7B 

1568 

8 

fb 

aS 

fc 

b9 

01 

85 

fc 

aa 

38 

17c0 

8 

a5 

b9 

20 

b9 

Bd 

20 

Bb 

fb 

93 

lalB 

8 

81 

60 

00 

7b 

00 

00 

07 

f0 

c7 

1570 

8 

bS 

BB 

86 

Bc 

68 

aa 

ca 

Ba 

lc 

17c8 

s 

a5 

ac 

20 

f 2 

cf 

a5 

ad 

20 

4b 

1 a20 

2 

00 

18 

0c 

00 

20 

02 

00 

43 

cB 

1570 

8 

d0 

b6 

60 

c9 

86 

dH 

03 

4c 

BB 

17d0 

8 

f 2 

cf 

20 

dl 

fc 

b0 

47 

20 

9f 

la28 

8 

Bl 

00 

44 

11 

00 

8B 

08 

80 

a 2 

1580 

8 

aB 

cl 

c9 

87 

d0 

06 

20 

4a 

bB 

17d8 

8 

Bl 

ff 

d0 

03 

4c 

33 

f 6 

a2 

cd 

la30 

3 

90 

04 

S0 

90 

04 

B0 

90 

04 

83 

15BB 

3 

c 2 

4c: 

44 

cl 

4c 

61 

cl 

ad 

BC 

17e0 

| 

00 

a 0 

00 

bl 

cl 

cB 

dl 

cl 

94 

la3B 

8 

B0 

f 0 

04 

80 

13 

4 V 

00 

0 c 

d5 

1590 

8 

b0 

C0 

3B 

ed 

af 

C0 

c9 

05 

9 B 

17eB 

: 

d0 

03 

c8 

dl 

cl 

f0 

14 

20 

db 

la40 

3 

bl 

00 

64 

0 a 

00 

12 

0 a 

dB 

b6 

159B 

8 

b0 

07 

ad 

af 

C0 

Bd 

b0 

C0 

ea 

17f 0 

8 

e9 

cf 

aB 

a5 

c2 

cS 

af 

dB 

6a 

la4B 

8 

lc 

71 

26 

62 

90 

03 

01 

08 

2B 

15a0 

8 

60 

a 2 

36 

86 

01 

aa 

ad 

af 

2b 

17f8 

8 

06 

a3 

cl 

c3 

aa 

f0 

04 

B0 

3b 

la50 

8 

01 

00 

0B 

01 

00 

08 

06 

00 

cc 

15a0 

8 

C0 

BS 

fc 

18 

69 

04 

85 

fB 

38 

1800 

3 

ff 

d0 

de 

Ba 

a0 

00 

20 

f 2 

El 

la5B 

8 

94 

9B 

00 

63 

60 

00 

00 

00 

ab 

15b0 

3 

a 0 

00 

B4 

fb 

84 

fd 

bl 

fd 

ec 

180B 

: 

cf 

B0 

00 

f0 

Ob 

bl 

ac 

20 

97 

l.i60 

8 

00 

00 

00 

00 

00 

00 

00 

00 

61 

15bB 

8 

91 

fb 

cB 

d0 

f 9 

b6 

f« 

b6 

34 

1810 

8 

db 

fc 

20 

f 2 

cf 

ca 

d0 

f 5 

52 

la6Q 

2 

00 

00 

0f 

00 

00 

39 

C0 

00 

f 9 

15c0 

8 

fc 

ca 

d0 

f 2 

ad 

b0 

C0 

38 

BB 

1B1B 

8 

20 

dl 

fc 

b0 

36 

4B 

a 2 

00 

c6 

1 a70 

2 

60 

60 

00 

C0 

30 

MM 

C0 

30 

7f 

15cB 

8 

B9 

04 

Bd 

b0 

C0 

a9 

37 

B5 

6b 

1B20 

8 

68 

bl 

cl 

4B 

70 

b9 

cf 

dl 

0B 

la7B 

8 

00 

ff 

f0 

00 

C0 

00 

00 

C0 

42 

15d0 

8 

01 

60 

a9 

36 

BS 

01 

ad 

b0 

ab 

1B2B 

| 

Cl 

d0 

14 

•8 

a5 

c 2 

cS 

af 

5a 

la80 

s 

00 

00 

60 

00 

00 

C0 

30 

00 

77 

15dB 

8 

C0 

c9 

C0 

f0 

fB 

III. 

fc 

18 

ab 

1B30 

1 

d0 

06 

a5 

cl 

cS 

aa 

f0 

0B 

4a 

laBB 

8 

60 

30 

00 

38 

B0 

00 

0f 

80 

53 

15e0 

8 

69 

04 

B5 

fB 

Bd 

b0 

C0 

a 0 

2f 

1838 

8 

B0 

fa 

d0 

>)4 

20 

a9 

cf 

BB 

ca 

la90 

| 

00 

00 

00 

MM 

00 

00 

00 

ff 

90 

1 5b8 

8 

00 

84 

lb 

84 

fd 

bl 

fb 

91 

3a 

1840 

8 

Ba 

20 

f 2 

Cf 

6B 

20 

f 2 

cf 

84 

la98 

8 

B0 

00 

00 

00 

00 

00 

00 

00 

79 

15f 0 

■ 

ftf 

cB 

d0 

f 9 

c6 

fa 

c6 

fc 

3b 

1840 

8 

20 

Bb 

fb 

20 

dl 

fc 

90 

B7 

08 

laa0 

8 

00 

30 

30 

34 

31 

35 

36 

32 

45 

ISfB 

8 

a5 

fc 

cd 

af 

C0 

b0 

BB 

a9 

25 

1050 

8 

a9 

00 

20 

f 2 

cf 

a9 

00 

20 

Ba 

laaB 

8 

36 

32 

35 

37 

34 

20 

47 

2a 

e9 

1600 

8 

37 

B5 

01 

60 

a9 

36 

85 

01 

ab 

1858 

8 

f 2 

cf 

4c 

3f 

f 6 

00 

a6 

cl 

fc 

labB 

8 

43 

2a 

00 

00 

ff 

ff 

ff 

ff 

0a 


Listlng 2. »Lauftext2« - enthält die erforderlichen Daten, um die erforderlichen Files auf Diskette zu erzeugen 


6 OPEN 15,8,15 <164> 
10 PRINT"f CLR >"s B“15360 <151> 
15 FOR X=15360 TO 15360+8*64:POKE X,0:NEXT <1B9> 
20 FOR X=1 TO 8:PRINT"NAME DES"X". SPRITES 

iINPUT A$(X): <244> 
25 NEXT:PRINT <141> 
30 FOR X=1 TO B:Y=B:IF A*(X)=""THEN B-B+64 

: GOTO 70 <131> 
40 : OPEN 2,B,2,A*(X)+",S,R":INPUT#15,A,B* 

,C,D:PRINT A;B*jC;D,A*(X) <231> 
45 : IF A<>0 THEN 80 <0B6> 
50 : BET#2,A* <110> 


52 : A=ASC(A*+CHR*(0))«POKE B,A«B=B+1:IF S 


T< >64 THEN 50 <131> 

60 i CLOSE 2:B“Y+64 <163> 

70 NEXT:GOSUB 90 <044> 

80 CLOSE 15:END <021> 

90 PRINT«PRINT"DISKETTE WECHSELN": 

POKE 198,0:WAIT 198,1 <215> 

100 SYS(57812)"@:EDISPRITE",8:POKE 193,0:P 

OKE 194,60 <047> 

110 POKE 174,000«POKE 175,62«SYS 62957:RET 

URN <237> 


Listing 4. Der »Linker« fügt die einzelnen Sprites zu einem File zusammen, das vom Editor akzeptiert wird 
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C 64 


Titel-Master 

Der Video-Vorspann Ihrer Filme 

Wollen Sie eigene Videofilme oder Computer-Ex¬ 
perimente mit einem Video-Vor- und -Nachspann 
versehen? Wir stellen Ihnen ein Programm vor, 
das diese Aufgabe für Sie erledigt. 


I m Gegensatz zu Fernseh- und Kinoproduktionen begin¬ 
nen eigene Videofilme, die im Urlaub, bei Familienfeiern 
und ähnlichem aufgenommen wurden, meist unverhofft 
mitten in der Handlung, ebenso bei Computer-Experimenten 
(etwa der Aufzeichnung einer kompletten Schachpartie) oder 
»Mitschnitten« beliebiger Art. Um den Aufnahmen einen pro¬ 
fessionellen Hauch zu geben, benötigen Sie ein ansprechen¬ 
des Titelbild, das eine Weile zu sehen ist und eben einen 
Videovorspann, der zum Beispiel Auskunft über Ort, Zeit und 
Personen der Handlung gibt. Das Titelbild können Sie durch 
ein beliebiges Grafikprogramm (etwa Hi-Eddi Plus, Printfox 
oder Print Shop) erzeugen, den Rest übernimmt »Titel- 
Master«. 

Das Programm »Titel-Master« (Listing 1) ist einfach zu bedie¬ 
nen und erklärt die Reihenfolge der notwendigen Angaben im 
Anfangsbild. Zuerst legen Sie die Hintergrund- und Schrift¬ 
farbe fest, die Sie für den Vorspann wünschen. Danach kön¬ 
nen Sie beliebig viele Rubriken definieren (etwa »Drehbuch« 
oder »Aufnahmedatum«). Die Eingabe von < RETURN > be¬ 
endet die Datenaufnahme. Nun werden nur noch die Namen 
für die einzelnen Rubrikpunkte erwartet. Weiterhin haben Sie 
Einfluß auf die spätere Ausgabe der Zeichen. Interessante 
Effekte ergeben sich, indem man vor Ausgabe des Textes auf 
den Bildschirm einen Musikton bestimmt, der zu den einzel¬ 
nen Buchstaben erklingt. Weiterhin können die Bezeichnun¬ 
gen oder Namen zu den einzelnen Rubriken untereinander 
zentriert ausgegeben, die Startzeile auf dem Bildschirm und 
die Anzahl der Leerzeilen zwischen den Rubriken bestimmt 
werden. Einfluß haben Sie auch auf die Geschwindigkeit, mit 
der die einzelnen Zeichen auf dem Bildschirm dargestellt 
werden. Nach etwa zehn Sekunden beginnt der Videovor¬ 
spann, es bleibt also noch ausreichend Zeit, den Videorecor¬ 
der (oder wenn Sie mit Schmalfilm vom Bildschirm aufneh¬ 
men, die Filmkamera) aufnahmebereit zu machen und aufzu¬ 
zeichnen. Sofern Sie die Aufnahme wiederholen wollen, 
drücken Sie zweimal eine beliebige Taste und beantworten 
die Sicherheitsabfrage mit < J >. Sie können nun an den von 
Ihnen festgelegten Werten Änderungen durchführen, oder 
auch die ehemaligen Werte durch < RETURN > überneh¬ 
men, was sich gut zu Testzwecken für optimale Effekte eig¬ 
net. Die einfachste Art und Weise, Computer-Information auf 
einem Videorecorder aufzuzeichnen, besteht darin, das An¬ 
tennenkabel, das Sie üblicherweise in den Antenneneingang 
des Fernsehgerätes stecken (oder das bei Monitorbetrieb 
ungenutzt bleibt), nun mit dem Antenneneingang des Video¬ 
recorders zu verbinden. Den Antennenausgang des Videore¬ 
corders verbinden Sie über ein Antennenkabel mit dem 
Antenneneingang des Fernsehgerätes und stimmen gege¬ 
benenfalls den Aufnahmekanal des Recorders noch auf den 
C 64 ab. Sie können natürlich auch das Videosignal des C 64 
direkt mit dem Videoeingang des Recorders verbinden. Viel 
Spaß bei eigenen Experimenten mit dieser Technik. 

(Dr. Rudolf Sussmann/bj) 




10 REM ******************************* <14B> 

20 REM TITEL - MABTER <U2> 

30 REM -<0(32 > 

40 REM WRITTEN BY: RUDOLF SUSSMANN <174> 

50 REM <112> 

60 REM <C> 19B6 MARKT «< TECHNIK VERLAß <100> 

70 REM ******************************* <203> 

80 DIM R*<15)BDIM RL(15):DIM N*(15):DIM NL 
(15)iDIM T*(15)iDIM ZR*(15).DIM M*(15,3 
9) <250> 

90 BI“54272iFL“8IiFH“SI + 1:WE-8I+4:A=SI+5:H 

“SI+6:L«SI+24:HI=34:LO»207 <232> 

100 REM ********************* <115> 

110 REM ANLEITUNB <137> 

120 REM ********************* <135> 

130 POKE 532B0,12:POKE 53281,12:PRINT"{BLU 

E,CLR>"CHR*<14> <092> 

140 PRINT"{3D0WNJflIE ANGABEN FUER DIE UTE 

LEI SIND IN <092> 

150 PRINT"FOLGENDER REIHENFOLGE ZU MACHEN: <2S5> 
160 PRINT"tDDWNJ-RESTIMMUNG DER HINTERGRUN 

D- UND DER <056> 

170 PRINT" SEHRIFTFARBE| <036> 

180 PRINT”{DOWNJ—BEZEICHNUNG DER RUBRIKEN 

(Z.B. RAMERA); <053> 

190 PRINT"-EINGABE DER HAMEN; <048> 

200 PRINT"{DOWN!-ANGABE EINES JONES. <046> 

210 PRINT"{2D0WNJHENN NUR{SPACE,RVSON,SPAC 
EJ .HE.T.UJIH {SPACE , RVOFF, SPACEJGEDRUECKT W 
IRD, IST <022> 

220 P RT r (T"DIE EINGABE IN DIESER RUBRIK BEE 

NDET. <254> 

230 PRINT"{RVSON,3D0WN,7SPACE>HEITER ==> X 

ASTE DRUECKEN{6SPACE J" <1B3> 

240 REM **************************** <231> 

250 REM HINTERBRUNDFARBE <233> 

260 REM **************************** <253> 

270 GET A*:IF A*=““THEN 270 <114> 

2B0 RL=0:NL=0:NB=0 <221> 

290 BOSUB 1B20 <1B4> 

300 PRINT"{DOWN,2BSPACEJ"F <139> 

310 INPUT" OIPJHUMMER DER HINTERGRUNDFARBE" 

;F <119> 

320 IF F<0 OR F>15 THEN PRINT"{RED,RVSON,4 
SPACEJHUR ZAHLEN ZWISCHEN 0 UND 15!{SP 
ACE,3UP,BLUE)":GOTO 300 <072> 

330 PRINT"{CLRJ":POKE 532B0,F:POKE 53281,F <040> 
340 REM ************************* <220> 

350 REM SCHRIFTFARBE <124> 

360 REM ************************* <240> 

370 IF F=0 THEN PRINT"{PURPLE!":GOTO 390 <210> 

3B0 PRINT"{BLACK!" <066> 

390 BOSUB 1820 <028> 

400 PRINT" {DOWN,24SPACEV8 <050> 

410 INPUT"{UPJHUMMER DER 3EHRIFTFARBE";S <0B0> 
420 IF 8<0 OR S>15 THEN PRINT"{RVSON,4SPAC 
EJHUR ZAHLEN ZWISCHEN 0 UND 15!{4SPACE 
,3UPJ":GOTO 400 <044> 

430 IF FOB THEN 460 <136> 

440 PRINT"{DOWN,RVSON,3SPACEJJCHRIFTFARBE 

UND HINTERGRUND BIND(3BPACEJ" <146> 

450 PRINT"{RVSON,5SPACEJIDENTISCH! BITTE N 

EU WAEHLEN!{5SPACEJ":GOTO 400 <04B> 

460 ON 8+1 GOTO 470,480,490,500,510,520,53 

0,540,550,560,570,580,590,600,610,620 < 032 > 

470 PRINT"{BLACK!":GOTO 630 <074> 

480 PRINT"{WHITE!":GOTO 630 <155> 

490 PRINT"{RED!":GOTO 630 <022> 

500 PRINT”{CYAN!":GOTO 630 <0BB> 

510 PRINT"{PURPLE!":GOTO 630 <050> 

520 PRINT"{GREEN!":GOTO 630 <0B6> 

530 PRINT"{BLUEJ":GOTO 630 <112> 

540 PRINT"{YELLOW!":GOTO 630 <114> 

550 PRINT"{ORANGE!":GOTO 630 <171> 

560 PRINT"{BROWN!":GOTO 630 <246> 


160 
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064 


570 PRINT"{LIB.RED}"sB0T0 630 

<016> 

1300 

PRINT"CRVSON, SPACE },§DLLEN DIE HAMEN U 


500 PRINT"CGREY lVsGOTO 630 

<042> 


NTEREINANDER STEHEN? " 

<21B> 

590 PRINT“CGREY 2>"sQ0T0 630 

<06B> 

1310 

GET A*sIF AS=""THEN 1310 

<025> 

600 PRINT"CLIG.GREEN}":GOTO 630 

<094> 

1320 

IF AS="N"THEN 1350 

<216> 

610 PRINT"CLIG.BLUE}"3 GOTO 630 

< 120> 

1330 

IF AS< >"J"THEN 1310 

< 195> 

620 PRINT"CGREY 3>" 

<228> 

1340 

NB=1 

<226> 

630 PRINT"CCLR,10DOWN}flIES IST DIE SCHRIET 


1350 

PRINT"C2D0WNIJN WELCHER 2EILE SOLL DI 


FARBEC5D0WN}" 

<050> 


E IITELEI 

< 114> 

640 PRINT"CRVS0N,3D0WN,12SPACE}flLLES IN SR 


1360 

PRINT"CI6SPACEVZE 

< 143> 

DNUNB ? C6SPACE >" 

<255> 

1370 

INPUT" «JPJBEBINNEN (0-23)" j ZE 

<079> 

650 GET ASsIF AS=""TUEN 650 

<240> 

1380 

IF ZE<0 OR ZE>23 THEN PRINT"C6UP}"3 GO 


660 IF AS="N"THEN 130 

<232> 


TO 1350 

<078> 

670 IF ASO"J"THEN 650 

<069> 

1390 

PRINT"C2D0WN,21SPACE}"LF 

<022> 

6B0 REM ******************** 

< 166> 

1400 

INPUT“CUP>2AHL DER JJ-ERZEILEN ";LF 

< 127> 

690 REM RUBRIKEN 

<105> 

1410 

PRINT"C3D0WN,RVSON,SPACE}ACHTUNG!CSPA 


700 REM ******************** 

< 1B6> 


CE,RVOFF,3SPACE>AER BILDSCHIRM BLEIBT 

< 162> 

710 PRINT"CCLR>"|R=1 

< 137> 

1420 

PRINT"NACH DER fESTLEGUNG DER SESCHWI 


720 PRINT"{DOWN>"TAB(13)LEFTS(RS(R),25) 

< 105> 


NDIGKEIT 

<225> 

730 PRINT" CUP}"R; 3 INPUT" CLEFT}. ÄUBRIK"|RS 


1430 

PRINV'FUER CA. 10 SEKUNDEN LEER. BANN 


(R) 

<046> 


BEGINNT" 

<091 > 

740 RL(R)=LEN(RS(R>> 

<041 > 

1440 

PRINT"DIE IITELEI ZU LAUFEN." 

< 124> 

750 IF RL(R><26 THEN 800 

<100> 

1450 

PRINT" C2D0WN, 17SPACEVG 

< 137> 

760 PRINT"tRVS0N,3SPACE}£INGABE ZU LANG! H 


1460 

INPUT"CUPJfiESCHWINDIGKEIT "jG 

< 193> 

EITER MIT WLT.URMC3SPACE}" 

< 195> 

1470 

REM ******************* 

<056> 

770 GET A*:IF AS<>CHRS(13)THEN 770 

<172> 

14B0 

REM AUSGABE 

<022> 

700 PRINT"tUP,40SPACE}" 

<230> 

1490 


<076> 

790 RL(R)=0:GOTO 720 

<226> 

1500 

PRINT"CCLR>"s FOR W=0 TO 5000:NEXT W 

<226> 

800 IF RL(R> >RL THEN RL=RL(R) 

<017> 

1510 

FOR PO=0 TO ZE3 PRINT:NEXT PO 

< 102> 

810 IF RS(R)<>""THEN R=R+1:G0T0 720 

< 172> 

1520 

FOR X=1 TO R-l 

< 114> 

820 PR I NT " CUP ,39SPACE >" 

830 PRINT"CRVS0N,3D0WN,13SPACE}flLLES IN AR 
DNUNG?{8SPACE >" 

B40 GET ASsIF AS=""THEN B40 

<014> 

1530 

1540 

IF NB<1 THEN 1500 

ZR*~". 

<0B9> 

< 191 > 

< 177> 


<011> 

< 170> 

1550 

ZRS(X)=LEFTS(ZRS,37-NL-RL(X)) 

050 IF AS="N"THEN 710 

< 176> 

1560 

TS(X)=RS(X>+"! "+ZRS(X)+NS(X) 

< 114> 

860 IF ASO"J"THEN 840 

<005> 

1570 

GOTO 1590 

<099> 

870 REM *************************** 

<217> 

1580 

TS(X)=RS(X)+"3 "+NS(X) 

<010> 

880 REM EINGABE DER NAMEN 

< 120> 

1590 

L=LEN(TS(X)) 

<053> 

890 REM *************************** 

<237> 

1600 

FOR Y=1 TO L 

< 1B8> 

900 PRINT"CCLR}"3 FDR N=1 TG R-l 

<07B> 

1610 

MS(X,Y)=MIDS(TS(X),Y,1) 

< 104> 

910 PRINT"CD0WN}"TAB(RL(N)+2)NS(N> 

<230> 

1620 

PRINT"CUPJ"TAB(Y-l)MS(X,Y) 

<001> 

920 PRINT"CUP}"RS(N>;:INPUT NS(N> 

< 185> 

1630 

IF MS (X , Y) =CHRS (32) THEN 1660 

< 197> 

930 NL(N)=LEN(NS(N>> 

< 199> 

1640 

IF MS(X,Y)=CHRS(46)THEN 1670 

<248> 

940 IF NL <N)+RL(N)<38 THEN 990 

<199> 

1656 C1SUB 1920 

<034> 

950 PRINT"CRVS0N,2SPACE}£INGABE ZU LANG! H 

1660 

FÜR W=1 TO G*20:NEXT W 

<024> 

EITER MIT >.H£.TUAR< C2SPACE}" 

<08B> 

1670 

NEXT Y 

<102> 

960 GET ASsIF AS<>CHRS(13)THEN 960 

< 106> 

16B0 

FOR W=0 TO G*20:NEXT W 

<012> 

970 PRINT"C2UP,40SPACE}" 

<026> 

1690 

FOR V=0 TO LFsPRINT:NEXT V 

< 193> 

980 NS(N)=LEFTS(NS(N>,37-RL(N))sGOTO 910 

< 181 > 

1700 

NEXT X 

< 124> 

990 IF NL(N)>NL THEN NL=NL <N> 

< 141 > 

1710 

WAIT 198,1 

<202> 

1000 NEXT N 

< 106> 

1720 

FOR Z=1 TO 25sPRINT:FOR W=1 TO G:NEXT 


1010 PRINT"<RVS0N,3D0WN,13SPACE>ALLES IN fl 



W:NEXT Z:POKE 198,0 

<022> 

RDNUNB? C8SPACE >" 

< 115> 

1730 

WAIT 198,1sPRINT"CCLR,10DOWNIHIEDERHO 


1020 GET AS:IF AS="“THEN 1020 

< 1B0> 


LUNG?" 

< 192> 

1030 IF AS="N"THEN 900 

<102> 

1740 

GET AS:IF AS=""THEN 1740 

<076> 

1040 IF A*<>"J"THEN 1020 

< 143> 

1750 

IF AS="J"THEN 230 

<052> 

1050 REM ******************** 

<028> 

1760 

IF AS="N"THEN SYS 64738 

<024> 

1060 REM MUSIKTON 

< 1B1 > 

1770 

GOTO 1740 

< 170> 

1070 REM •••*•**•<***•••***•* 

<040> 

1780 

REM #*********#******#*****## 

< 134> 

1080 PRINT"CCLR}BESTIMMUNG DES IPNESC3D0WN 


1790 

REM UNTERPROGRAMM 

< 139> 

)" 

<051 > 

1800 

REM FARBNAMEN 

<253> 

1090 PRINT"fDOWN,8SPACE>"HI 

<204> 

1810 

REM ************************* 

< 166> 

1100 INPUT"CUP}flI—BYTE";HI 

<195> 

1820 

PRINT"CCLR}"sFOR Z-0 TO 15 

<201 > 

1110 IF HI<1 OR HI>255 THEN PRINT"tUP>"3 GO 


1830 

READ FS 

< 198> 

TO 1100 

<075> 

1840 

PRINT Z" = "FS 

<014> 

1120 PRINT"<DOWN,8SPACE>"LO 

<23B> 

1850 

NEXT Z:RESTORE:RETURN 

<045> 

1130 INPUT " <UP>iP-flYTE ; LO 

<230> 

1860 

DATA SCHWARZ,WEISS,ROT,TUERKIS,VIÖLET 


1140 REM *** AUSGABE *** 

<028> 


T,GRUEN,BLAU,GELB,ORANBE,BRAUN,HELLRO 


1150 IF L0<1 OR L0>255 THEN PRINT"CUP}"3 BO 



T 

<0B9> 

TO 1130 

<132> 

1870 

DATA GRAU 1,GRAU 2,HELLBRUEN,HELLBLAU 


1160 PRINT"CD0WN,33SPACE}"WA 

<209> 


.GRAU 3 

<028> 

1170 INPUT"CUPIHELCHE HELLENFORM (17-33-65 


1880 


<236> 

-129)";WA 

<230> 

1890 

REM UNTERPROGRAMM 

<241 > 

1180 IF WA=0 OR WA=17 OR WA=33 OR WA=65 OR 


1900 

REM TONERZEUGUNG 

<243> 

WA=129 THEN 1200 

<028> 

1910 


<010> 

1190 PRINT"CUPV'sBOTO 1170 

< 196> 

1920 

IF WA=0 THEN RETURN 

<077> 

1200 FOR VE=1 TO 10s GOSUB 19203NEXT VE 

<061 > 

1930 

POKE L,15 

< 141 > 

1210 PRINT"CRVS0N,3D0WN,12SPACE}flLLES IN fl 


1940 

POKE A,1*16+5 

<020> 

RDNUNB?C9SPACE}" 

<061 > 

1950 

POKE H,0*16+0 

<034> 

1220 BET AS:IF AS=""THEN 1220 

<254> 

1960 

POKE FH,HI 3 POKE FL,LO 

<007> 

1230 IF AS="N"THEN 10B0 

< 14B> 

1970 

POKE WE,WA 

<03B> 

1240 IF A*<>"J"THEN 1220 

< 119> 

1980 

FOR T=1 TO 030:NEXT T 

<216> 

1250 REM ***************************** 

<246> 

1990 

POKE WE,0 

<209> 

1260 REM BILDSCHIRMPARAMETER 

<044> 

2000 

RETURN 

<024> 

1270 REM ***************************** 

1280 PRINT"CCLRJBILDSCHIRMPARAMETERC2DDWN} 

<010> 

Listlng 1. »Titel-Master« erstellt für Sie einen Videovor- 

"3 NB=0 

<060> 

spann, den Sie eigenen »Produktionen« voranstellen kön- 

1290 IF RL+NL>37 THEN 1350 

< 1B0> 

nen. Bitte verwenden Sie zur Eingabe den Checksummer. 



SONDERHEFT 11 


\i 


161 




















ANWENDUNG 


C 64 


Bundesliga-Tabellenstand 
auf Tastendrudt 


Ein absolutes »Muß« für jeden C64-Besitzer und 
Fußballfan ist unser Programm »Ligabase«. 
Machen Sie der Sportschau Konkurrenz. 

S icherlich haben Sie sich als C64- und Fußballfan schon 
oft ein Programm gewünscht, das in der Lage ist, ständig 
über den derzeitigen Tabellenstand zu informieren und 
darüber hinaus auch einen Überblick über das Spielgesche¬ 
hen der laufenden oder vergangenen Saison bietet. Mit Liga¬ 
base (Listing 1) sind Sie jetzt in der Lage, alle nötigen Daten 
zu verwalten und auszuwerten. 

Ligabase ist bis auf eine kleine Unterroutine komplett in 
Basic geschrieben. Deshalb sollten Sie das Programm com- 
pilieren, um die Geschwindigkeit der Eingaberoutinen, die 
alle Fehler abfangen, zu steigern. Auf der Leser-Service-Dis- 
kette erhalten Sie das Programm sowohl in Basic wie auch als 
Compilat. 

Nach dem Laden des Programms präsentiert sich Ligabase 
mit seinem Hauptmenü. Hier müssen Sie sich als erstes ent¬ 
scheiden, ob eine alte, bereits erstellte, oder eine neue Liga 
bearbeitet werden soll. Sie haben jetzt die Möglichkeit, Spiel¬ 
tage einzugeben, Ergebnisse zu erfassen, die Tabelle zu 
erstellen oder die Daten ausgewertet auf dem Drucker auszu¬ 
geben. Alle Funktionen werden durch optisch gelungene 
Pull-down-Menüs angewählt. Diskettenfehler werden eben¬ 
so abgefangen wie Eingabefehler. Sie können nicht einmal 
einen Spieltag doppelt eingeben, ohne erst die Frage nach 
dem Überschreiben des Originals zu beantworten. Die 
Menüs und der Aufbau der einzelnen Masken erklären sich 
von selbst, so daß von Anfang an, ohne die Anleitung genaue- 
stens zu kennen, mit Ligabase gearbeitet werden kann. 

Gebrauchsanweisung 


Nach dem Starten des Programms stehen zwei Hauptmenü¬ 
punkte zur Verfügung: »Alte Liga bearbeiten« und »Neue Liga 
einrichten«. Sehen wir uns zunächst den zweiten Punkt 
näher an. 

Liga einrichten: Nachdem Sie den Balken mit den Cursor¬ 
tasten richtig positioniert haben (Balken nach oben: 
< CRSR > -rechts, Balken nach unten: < CRSR > -unten) for¬ 
dert Sie Ligabase nach dem < RETURN > gedrückt wurde 
auf, den Namen der Liga einzugeben (Beispiel: »1. Bundes¬ 
liga«). Wenn Sie mehrere Ligen auf einer Diskette bearbeiten, 
sollten Sie darauf achten, daß sich die ersten drei Zeichen 
des Liganamens voneinander unterscheiden, da diese bei 
der Speicherung der einzelnen Spieltage mitverwendet wer¬ 
den. Nachdem Sie also die Liga festgelegt haben, werden Sie 
aufgefordert, die Anzahl der Mannschaften einzugeben. 
Beachten Sie dabei bitte, daß die Zahl zwanzig nicht über¬ 
schritten werden darf und ansonsten nur gerade Zahlen 
akzeptiert werden. Sollten Sie sich bei der Eingabe der 
Mannschaftszahl oder des Liganamens vertippt haben, kom¬ 
men Sie mit der < Pfeil nach oben >-Taste in das vorherige 
Menü zurück. Das funktioniert auch bei allen anderen Unter¬ 
menüs so. Doch zurück zur Erstellung der neuen Liga. Nach¬ 
dem alle Mannschaften erfaßt sind, werden Sie gebeten, eine 
Datendiskette einzulegen. Auf der Datendiskette werden alle 
für die Arbeit mit Ligabase benötigten Dateien abgelegt. Sie 


werden jetzt gefragt, ob die Datendiskette neu formatiert wer¬ 
den soll. Ist diese Funktion beendet oder übergangen, kann 
durch Drücken der < RETURN >-Taste die erstellte Liga 
gespeichert werden. Der weitere Ablauf ist identisch mit den 
einzelnen Funktionen des Hauptmenüpunktes »Alte Liga 
bearbeiten«. 

Liga bearbeiten: Wenn Sie also bereits eine Liga eingege¬ 
ben haben, wählen Sie nach dem Laden von Ligabase den 
Punkt »Alte Liga bearbeiten« an. Nun müssen Sie noch den 
gewünschten Liganamen eingeben und schon wird die ent¬ 
sprechende Datei geladen. Von dem nun erscheinenden 
Menü aus können die Spieltage, Ergebnisse und Tabellen 
bearbeitet und ausgedruckt werden. Sollten Sie eine Liga 
neu angelegt haben, müssen Sie jetzt als erstes die bekann¬ 
ten Spieltage erstellen. Dabei werden Sie von Ligabase opti¬ 
mal unterstützt. Das Programm verlangt die Eingabe der 
Mannschaften in einen reversen Balken. Sie brauchen aber 

Schneller als das Fernsehen 


nicht jede Mannschaft nochmals einzugeben, sondern kön¬ 
nen diese in einem Fenster am Bildschirm mit den Cursor- 
Tasten auswählen. Nach der Bestätigung mit < RETURN > 
wird die gerade angezeigte Mannschaft übernommen. Nach¬ 
dem alle Mannschaften den entsprechenden Spielen zuge¬ 
ordnet sind, wird der Spieltag gespeichert. Sie können bei¬ 
spielsweise bereits bei Bekanntgabe der Paarungen für die 
Bundesliga sämtliche Spiele erfassen und brauchen dann nur 
noch am Spieltag die entsprechenden Ergebnisse nachzu¬ 
tragen. Sie brauchen nur die Spiele der Hinrunde eingeben, 
da Ligabase für die Rückrunde automatisch die Heim- und 
Gastmannschaften vertauscht. Die Erfassung der Ergeb¬ 
nisse erfolgt über einen weiteren Punkt des Untermenüs 
Spieltage. Die Funktion nennt sich »Erfassen/Aendern Spiel¬ 
tage«. Auf dem Bildschirm präsentiert sich wieder eine 
ansprechende Maske. Alle Spielpaarungen des vorher einzu¬ 
gebenden Spieltages werden aufgelistet. Mit <CTRL+D> 
wird nun als erstes das Datum gesetzt. Die Ergebnisfelder 
der Spielpaarungen sind allesamt mit »ausgef.« für ausgefal¬ 
len belegt, da bisher noch keine Ergebnisse aufgenommen 
wurden. Nachdem das Datumsfeld mit < RETURN > quittiert 
wurde, wird das Ergebnisfeld des ersten Spieles invertiert 
dargestellt. Um nun das tatsächliche Ergebnis eintragen zu 
können, drücken Sie abermals die < RETURN > -Taste. 
Geben Sie als erstes die Toranzahl der Heimmannschaft an 
und nach einer weiteren Betätigung der < RETURN > -Taste 
die Anzahl der von der Gastmannschaft erzielten Tore. Wenn 
alle Ergebnisse in Ordnung sind, können diese mit < Fl > auf 
die Datendiskette gespeichert werden. Zu guter Letzt kön¬ 
nen die Spieltage noch angezeigt werden. Dazu muß nur die 
Funktion »Spieltag« angewählt und der gewünschte Tag 
angegeben werden. 

In demselben Menü, in dem auch die Bearbeitung der 
Spieltage zu finden ist, ist auch die Funktion »Tabelle« unter¬ 
gebracht. Hier können Sie sich eine Tabelle errechnen las¬ 
sen, eine alte ergänzen oder die Tabelle anzeigen lassen. 
Beim Errechnen werden nacheinander alle Spieltage von Dis¬ 
kette gelesen und verarbeitet. Eventuell ausgefallene Spiele 
werden dabei am Bildschirm angezeigt. Danach wird die 
Tabelle noch sortiert und kann dann über die Auswahl »Tabelle 
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artzeigen« bestaunt werden. Nach dem Errechnen kann die 
Tabelle durch Drücken einer beliebigen Taste, unter einem 
beliebigen Namen, gespeichert werden. Haben Sie bereits 
eine Tabelle mit mehreren Spieltagen auf Diskette, wird zum 
Ergänzen um weitere Tage nur die Auswahl »Alte Tabelle 
ergänzen« aufgerufen. Hier werden dann die neuen Spieltage 
in die Auswertung einbezogen und die Tabelle aktualisiert. 


Spielplan für 1. Bundesliga Hinrunde 


1. Spieltag 


Datum: 



B-W Berlin 

- 

Hamburger SV 

- 

- 

E. Frankfurt 

- 

FC Homburg 

- 

- 

B. Uerdingen 

- 

Werder Bremen 

- 

- 

Bayern München 

- 

FC Schalke 04 


- 

B. Dortmund 

- 

W. Mannheim 

- 

- 

B. M'Gladbach 

- 

1. FC Köln 

- 

_ 1 

VfB Stuttgart 

- 

F. Düsseldorf 

- 

- 

1. FC Nürnberg 

- 

B. Leverkusen 

- 

- 

Vfl Bochum 

- 

1. FC K'lautern 

- 

- 


Bild 1. Ausdruck des Hinrunden-Spielplans 


2. Spieltag 


Datum: 




VfB Stuttgart 

- 

FC Homburg 

- 

- 

1. FC. K'lautern 

- 

B. M'Gladbach 

- 

- 

1. FC Nürnberg 

- 

Vfl Bochum 

- 

- 

1. FC Köln 

- 

E. Frankfurt 

- 

- 


F. Düsseldorf 

- 

Bayern München 

- 


B. Dortmund 

- 

B. Leverkusen 

- 

- 

FC Schalke 04 

- 

W. Mannheim 

- 

- 

B. Uerdingen 

- 

B-W Berlin 

- 

- 

Hamburger SV 

- 

Werder Bremen 

- 

- 


Bild 2. Ausdruck eines Spieltages 


PI. 

Mannschaft 

Sp. 

gew. 

u. 

verl. 

Pkt. 

Dlff. 

Tore 

Diff. 

1 

Bayern München 

2 

1 

1 

0 

3:1 

2 

7: 

2 

5 

2. 

B. Dortmund 

2 

1 

1 

0 

3:1 

2 

4: 

1 

3 

3 

1. FC K’lautern 

2 

1 

1 

0 

3:1 

2 

3: 

1 

2 

4. 

B. Uerdingen 

2 

1 

1 

0 

3:1 

2 

3: 1 

2 

5. 

FC Homburg 

2 

1 

1 

0 

3:1 

2 

7: 6 

1 

6. 

1. FC Köln 

2 

1 

1 

0 

3:1 

2 

2; 

1 

1 

7. 

B-W Berlin 




1 

2:2 

0 

4: 

2 

2 

8. 

VfB Stuttgart 

2 

1 

0 

1 

2:2 

0 

9: 

8 

1 

9. 

Werder Bremen 

2 

0 

2 

0 

2:2 

0 

4: 

4 

0 

10. 

B. Leverkusen 

2 

0 

2 

0 

2:2 

0 

3: 

3 

0 

11. 

1. FC Nürnberg 

2 

0 

2 

0 

2:2 

0 

3: 

3 

0 

12. 

W. Mannheim 

2 

1 

0 

1 

2:2 

0 

3: 

3 

0 

13. 

B. M'Gladbach 

2 

0 

2 

0 

2:2 

0 

0: 

0 

0 

14. 

E. Frankfurt 

2 

0 

1 

1 

1:3 

-2 

3: 

4 

-1 

15. 

Vfl Bochum 

2 

0 

1 

1 

1:3 

-2 

2: 

4 

-2 

16. 

FC Schalke 04 

2 

0 

1 

1 

1:3 

-2 

2: 

5 

-3 

17. 

Hamburger SV 

2 

0 

1 

1 

1:3 

-2 

3: 7 

-4 

18. 

F. Düsseldorf 

2 

0 

0 

2 

0:4 

-4 

3:10 

-7 


Bild 3. Ausdruck der Tabelle 


Natürlich wollen Sie Ihre erstellten Spielpläne, Tabellen und 
Spieltage auch ausdrucken. Dafür steht der Auswahlpunkt 
»Drucken« zur Verfügung. Drucken können Sie Spielpläne 
(Bild 1), einzelne Spieltage (Bild 2) und die Tabelle (Bild 3). 
Das Programm ist für den Ausdruck auf einem MPS801 oder 
MPS802 konfiguriert. Auf dem Spielplan ist dann sogar noch 
hinter den einzelnen Paarungen Platz zum Einträgen der 
Ergebnisse oder aber zum Abgeben von Tips. 

Den bisher durch die geschickte Menüsteuerung und die 
Übersichtlichkeit der Masken erreichten Komfort von Liga¬ 
base rundet schließlich noch die Option »Dienstmenü« ab. 
Von hier aus können Sie Disketten formatieren, Dateien 
löschen und umbenennen oder die verwendete Diskette mit 
einem »Validate« reorganisieren. Das Inhaltsverzeichnis der 
Diskette kann ebenfalls aufgelistet werden. Dazu wird beim 
Laden von Ligabase das kleine Maschinenprogramm »Dir« 
nachgeladen (Listing 2). Dieses müssen Sie also vorher 
abgetippt und gespeichert haben. Zum Schluß kann man das 
Programm aus dem Dienstmenü, nach einer Sicherheitsab¬ 
frage, verlassen. 

Zu guter Letzt... 


Ligabase bietet dem versierten Fußballfan die Gelegenheit, in 
Sachen Tabellen, sei es nun Bundesliga oder Regionalliga, 
immer auf dem aktuellen Stand zu sein. Theoretisch haben 
Sie die neue Bundesligatabelle bereits auf dem Tisch liegen, 
wenn in der Sportschau des Samstagsprogramms die ersten 
Ergebnisse des Spieltages bekanntgegeben werden. 

(Martin Bödding/rf) 


500 

il- PEEK < 253) THEN 1000 

< 174> 

510 

°OKE 253,1:LOAD"DIR",8,8 

<066> 

1000 

POKE 53280,0:POKE 532B1,0:POKE 646,15 

<008> 

1001 

CLR:PRINT CHR*(147)CHR*(14)CHR*(8) 

< 114> 

1007 

HR=1:H=1:S=1:DR=1:DU=1:T=1 

<245> 

1008 

I*="07SPACE}" 

<051 > 

1009 

DIM A$(20), MA$(20) 

<218> 

1010 

DIM PA(20),PH(20) 

< 1B9> 

1011 

DIM AN(20),GW(20) 

<106> 

1012 

DIM TA(20),TH(20) 

<239> 

1013 

DIM US(20),VL(20) 

<065> 

1014 

DIM PD(20),TD(20) 

<225> 

1015 

: 

<229> 

1016 

REM * PRINT AT * 

<205> 

1017 

s 

<231 > 

1020 

FOR 1=828 TO B2B+19 

<231 > 

1025 

READ Q:POKE I,Q:NEXT 

<125> 

1030 

DATA 032,253,174,032,158,183,138 

<00B> 

1040 

DATA 072,032,253,174,032,158,183 

<106> 

1050 

DATA 104,168,024,076,240,255 

< 120> 

1055 

CU=B28 

< 1B4> 

1059 

s 

<019> 

1060 

REM * BILDAUFBAU * 

<155> 

1061 

: 

<021 > 

1065 

GOSUB 1210:GOSUB 20560 

<037> 

1070 

SYS CU,3,3:PRINT"ÜGliaaS£ X1.0L3SPACE 



>BY HART IN SOEDDINB" 

<043> 

1071 

R*(l) = "flLTE A.IGA BEARBEITEN" 

< 180> 

1072 

R* (2) ="HEUE A.IBA EINRICHTEN" 

<057> 

1075 

C=1:Y=B:RA=2:GOSUB 20010 

< 136> 

1076 

IF DP=1 THEN DP=0s GOTO 1070 

<004> 

1080 

ON C GOTO 1275,4510 

< 164> 

1199 

1 

< 159> 

1200 

REM * MENUE KOPF # 

<067> 

1201 

: 

< 161 > 

1210 

SYS CU ,0,0 : PRINT " CRVSON,40SPACE,RVOFF 



>" 

< 104> 

1215 

SYS CU,0,1 : PRINT " LRVSON,40SPACE,RVOFF 



>" 

<110> 

Listing 1. Das Programm »Ligabase«. 


Bitte mit dem Checksummer eingeben. 
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1220 SYS CU, 3,2: PR I NT " IWp-p-p-jTp'p' 
1225 


<152> 


1230 

1235 

1269 

1270 

1271 

1275 

1276 
127B 
1279 

1200 

1290 

1295 

1300 

1310 

1320 

1330 

1335 

1340 

1499 

1500 
1505 
1510 
1515 

1520 

1525 

1530 

1535 

1540 

1545 

1550 

1560 

1570 

1580 

1590 

1600 

1620 

1640 

1998 

2000 

2001 

2010 

2012 

2015 

2025 

2030 

2074 

2075 

2076 
2080 
20B5 

2086 

2090 

2095 

2100 

2110 

2120 

2130 

2189 

2190 
2195 
2200 

2201 

2202 

2203 

2205 

2210 

2215 


SYS CU,3,3 s PRINT"{RVSON,SPACE}?TT{SPA 
CE,RV8FF,24SPACE,RVSON,SPACE JTTTCSPAC 
E.RVDFF}" 

SYS CU, 3,4: PR I NT " VWyWYYYWYVWVWYY 
YWYYYYYYYYYYY" 

RETURN 

I 

REM * HAUPTMENUE * 
l 

GOSUB 20560:BDSUB 1210 
60SUB 1515 
GOSUB 2010 

IF DP=2 THEN DP=0:GOSUB 20560:GOTO 12 
75 

GOSUB 20560 

SYS CU,8,3: PRINT" C7SPACE} KftUP.TJU:XI1£ C7 
SPACE>" 

RS<1>-"SPIELTAGE" 

RS(2)="JABELLE" 

RS (3> = "DRUCKEN" 

RS (4) ="filENSTMENUE" 

RA=4:Y=8:C=H:GOSUB 20010 

H=C:IF DP=1 THEN DP=0:GOSUB 20560:GOT 

O 1275 

ON C GOTO 2080,10010,5010,6000 
: 

REM * LIGANAME » 

: 

GOSUB 20560 

SYS CU t B,3:PRINT" {BSPACE } .LI-GJ»WHE {BSP 
ACE}" 

SYS CU,0,0:PRINT"{RVSON,21SPACE >" 

SYS CU,12,7: PR INT “,81TTE GEBEN SIE" 

SYS CU,U,9:PRINT"DEN A.IGANAMEN EIN" 
SYS CU, 12,11: PRINT" p ppp pp pp pp pp ppp" 1 
SYS CU,11,12:PRINT"R{15SPACE>H" 

SYS CU, 12,13:PRINT"YYVYYYYYYYyYYYV" 
AAS=LNS 

X=13:Y=12:Z=13:GOSUB 20210 
IF DP=1 THEN DP=0:GOTO 1060 
IF AAS="“THEN 1550 
LNS=AAS 

LNS=AAS+LEFTS(IS,13—LEN(AAS)) 

SYS CU,0,0: PRINT" {RVSQNJA.IGA: ";LNS 
RETURN 
: 

REM * LIGA LADEN * 

I 

SYS CU ,8,3: PRI NT " {7SPACE JÜEfl l-HJim <7 
SPACE>" 

GOSUB 9510 

IF DP=1 THEN DP=0:GOTO 2010 
IF DP=2 THEN DP=0:GOTO 1275 
RETURN 
I 

REM * SPIELTAGE * 

GOSUB 20560:AZ=0 

SYS CU,8.3: PRINT" C7SPACE> 5P.ITLL.mBJ^ (BS 
PACE>" 

SYS CU,26,0:PRINT"{RVSON,13SPACE >" 

RS(1)="SPIELTAGE ERSTELLEN" 

RS(2)“"ERGEBNISSE ERFASSEN/AENDERN" 

RS(3)“"SPIELTAGE ANZEIGEN" 
Y=B:RA=3:C=S:GOSUB 20010 
S=CiIF DP=1 THEN DP=0:GOTO 1280 
ON C GOTO 2200,4005,4010 

REM * SPIELTAGE ERSTELLEN * 

: 

SYS CU,B,3:PRINT"< 

SJXLL£ii<3SPACE>' 

SE=1:GOSUB 21160:IF DP=1 THEN DP=0:GO 
TO 2080 

IF SG>MA—1 THEN 2201 
GOSUB 20560 

SYS CU,15,6:PRINT“.PAARUNGEN:" 

SYS CU ,0,21: PR I NT 11 flANNSCHAFT: " 


<249> 

<03B> 
<021 > 
<229> 

< 17B> 
<231 > 
<219> 

< 137> 
< 002 > 

<132> 
<031 > 

<254> 

<013> 

<137> 

<242> 

<204> 

<004> 

<221 > 

< 122 > 
<205> 

< 164> 
<211 > 
<005> 

<083> 
< 010 > 
< 222 > 
<225> 
<031 > 

< 140> 
<050> 
<031 > 


<252> 

< 145> 
<235> 

< 102 > 

< 174> 
<196> 
<253> 

< 199> 

<046 > 
< 110 > 
<239> 
< 010 > 
<054> 
<018> 
<1B5> 
< 020 > 
<238> 

<234 > 

< 119> 

< 163> 

< 104> 
<01B> 
<039> 

< 172> 
<061 > 

< 133> 
<228> 

< 139> 

<035> 

< 145> 

<004> 

< 193> 

< 194> 

< 169> 
<0B4> 


2300 
2310 IF 0= 
2320 IF Q= 


2216 FOR X=1 TO MA 

2217 AS(X)=MAS(X) 

2218 NEXT X 

2220 FOR X=B TO 8+(MA/2)-l 
2225 SYS CU,20,X:PRINT"—" 

2230 NEXT X 

2240 X=0:Y=B:1=1:Z=1 

2250 : 

2255 SYS CU,X,Y:PRINT"{RVSON)";IS 
2265 SYS CU,14,21:PRINT"{RVSON!"IS+"{2SPAC 
E> " 

2270 SYS CU,14,21:PRINT"{RVSON,SPACE>";AS( 
• Z)J" " 

2280 GOSUB 20410 
2290 GET OS:D=ASC<OS> 

IF Q= 17 THEN Z=Z+l:GOTO 2345 
29 THEN Z=Z—1:GOTO 2345 
13 THEN GOTO 2400 
2330 IF Q= 94 THEN 2500 
2340 GOTO 2280 
2345 IF Z>MA THEN Z=1 
2350 IF Z<1 THEN Z=MA 

2355 IF AS<Z)=""AND Q=17 THEN Z=Z+l:GOTO 2 
345 

2360 IF AS(Z)=""AND Q= 29 THEN Z=Z-l:GOTO 
2345 

2365 GOTO 2255 

2389 : 

2390 : 

2391 : 

2400 IF X=22 THEN 2450 
2405 HES(I)=AS(Z>:AS(Z)="" 

2410 SYS CU,X,Y:PRINT IS 
2420 SYS CU,X,YcPRINT HES(I) 

2430 X=22 

2440 Z=Z+1:Q=17:GOTO 2345 
2450 GAS(I)=AS(Z):AS(Z)="" 

2460 SYS CU,X,Y:PRINT IS 
2470 SYS CU,X,Y:PRINT GAS(I) 

2480 X=0:Y=Y+1 

2485 IF I>MA/2 THEN 2705 

2490 Z=i+1:Q=17:GOTO 2345 

2499 :_ 

2500 REM * RUECKWAERTS * 

2502 : 

2505 IF X=22 THEN 2545 
2510 Z=1:1=1—1:IF I<1 THEN 2200 
2520 IF AS(Z)=""THEN AS<Z)=GAS(I):GAS(I)=" 
":GOTO 2530 
2525 Z=Z+1:GOTO 2520 
2530 SYS CU,X,Y:PRINT IS 

2540 Y=Y—1:X=22:SYS CU,X,Y:PRINT"{RVSON}"; 
IS 

2542 GOTO 2345 
2545 Z=1 

2550 IF AS(Z)=""THEN AS(Z)=HES(I>:HES(I)=" 
":GOTO 2560 
2555 Z=Z+1:GOTO 2550 
2560 SYS CU,X,Y:PRINT IS 
2570 X=0:SYS CU,X,Y:PRINT"{RVSON}"sIS 
2580 GOTO 2345 
2600 GOTO 2080 

2699 : 

2700 REM * SPIELTAG SAVEN * 

2701 : 

2705 SYS CU,0,21:PRINT"{6SPACE}CÜETURNI = 
.SPIELTAG SPEICHERN" 

2710 SYS CU,11,23:PRINT"Ct] = ZURUECK" 

2715 GOSUB 20410 
2720 BET OS:Q=ASC(QS) 

2725 IF 0=13 THEN 2775 
2730 IF 0=94 THEN 2740 
2735 GOTO 2715 

2740 FOR X=21 TO 23:P0KE 7B1,X:SYS 59903:N 
EXT 

2745 SYS CU,0,21:PRINT"ßANNSCHAFT:" 

2750 GOTO 2505 
2755 : 

2775 GOSUB 9160 

2780 IF DP=1 THEN DP=0:BOTO 2775 
2785 IF DP=2 THEN DP=0:GOTO 2200 


<225> 

<0B9> 

< 134> 

< 164> 

< 178> 

< 146> 

< 159> 

< 194> 

< 184 > 

< 194> 

< 17B> 

< 172> 
<0B6> 

< 11 B> 
<043> 
< 011 > 
<243> 
<035> 

< 165> 
<00B> 

< 101 > 

< 187> 
<028> 
<079> 
<080> 
<081 > 
<033> 
<009> 
<213> 
<06B> 
<239> 
<197> 
<018> 
<007> 
<046> 
<035> 
<081 > 
<?47> 

< 189> 
<230> 

< 192> 

< 176> 
< 212 > 

< 130> 

< 165> 
<077> 

< 012 > 

<1B9> 

< 020 > 

< 151 > 
<219> 

< 109> 
<054> 
<229> 
<009> 

< 135> 
<203> 

< 137> 

< 183> 
<069> 
<099> 
<00B> 

< 134> 

< 153> 
<096> 

<06B> 

< 106> 
<047> 

< 191 > 
<207> 

< 133> 
<055> 


164 


SONDERHEFT 11 
















C 64 


ANWENDUNG 


3005 GOTO 2000 

<160> 

4400 C*<C>="":BOBUB 4240 

< 117> 

3999 s 

< 165> 

4401 AA*=DA*:X=18:Y=5:Z=10:GOSUB 20210 

<056> 

4000 REM * SPIELTAGE ANZEIGEN/AENDERN * 

<110> 

4402 IF AA*=""THEN AA*="{10SPACE)" 

< 146> 

4001 ; 

< 167> 

4405 DA*=AA*:DP=0 

<086> 

4005 SYS CU .B .3: PRINT" «SPACEAGJJXl-5 s£ £ 

4410 SYS CU,1B,5:PRINT"{RVS0N)"DA* 

<019> 

ÄOä§£H{2SPACE>":AZ=l:G0T0 4016 

<221 > 

4415 GOTO 4195 

< 175> 

4010 SYS CU,B.3:PRINT"«SPACE > S.P I E.LTflG.t HK 

4430 GOSUB 9410 

<22B> 

7-E.I-GJ.H «SPACE)" 

< 102> 

4435 IF DP=1 THEN DP=0:GOTO 4430 

<252> 

4016 GQSUB 21160:IF DP=1 THEN DP=0:GOTO 20 

4440 IF DP=2 THEN DP=0:GDTO 4050 

<065> 

00 

<047> 

4455 GOTO 2080 

<086> 

401B GOSUB 9010 

<004> 

4470 : 

<128> 

4020 IF DP=1 THEN DP=0:GOTO 4018 

<101> 

4500 REM * NEUE LIGA EINRICHTEN * 

<063> 

4022 IF DP=2 THEN DP=0:GOTO 4016 

< 163> 

4501 : 

< 159> 

4025 IF EN=62 THEN GOSUB 21745:DP=0:GOTO 4 


4510 GOSUB 1210:GOSUB 20560 

< 180> 

018 

<07B> 

4511 SYS CU,8,3:PRINT"<7SPACE)H£AUi LIGA{BR 

4026 GOSUB 9310 

<060> 

PACE} " 

<026> 

4030 IF DP=1 THEN DP=0:GOTO 401B 

< 111 > 

4515 GOSUB 20560:GOSUB 1520 

< 197> 

4035 IF EN=62 THEN DP=0:GOTO 4037 

<0B6> 

4520 GOSUB 20560 

<223> 

4036 GOTO 4050 

<094> 

4530 SYS CU,B,11:PRINT"HIEVIELE flANNBCHAFT 

4037 FOR X = 1 TO MA/2 

<047> 

EN 7" 

<202> 

403S H*<X>=“ A":G*(X>=" A" 

< 195> 

4531 SYS CU, 1B, 13: PR INT" IWF" 

<011> 

4039 NEXT 

<239> 

4532 SYS CU,17,14:PRINT"ff{4SPACE>T?" 

<093> 

4050 GOSUB 20560 

<005> 

4533 SYS CU,18,15:PRINT"YYYY" 

<051 > 

4060 SYS CU,12,5:PRINT"<!!ATUM: <RVSON> " ;DA* 

<016> 

4535 AA*=RIGHT*<STR*<MA),2) 

< 144> 

4070 SYS CU,14,7:PRINT"BEGEGNUNGEN: " 

<012> 

4540 X=19:Y=14:Z=2:GOSUB 20210 

<252> 

4075 IF AZ=1 THEN SYS CU,9,22:PRINT"{RVSON 


4545 IF DP=1 THEN DP=0:GOTO 4515 

<242> 

, SPACE >£1 {SPACE,RVOFF,SPACE >= £RGEBNI 


4550 IF AA*=""THEN 4540 

<16B> 

S SAVEN" 

<099> 

4560 MA=VAL(AA*) 

<235> 

4076 IF AZ=1 THEN SYS CU,5,20:PRINT"{RVSON 


4570 FOR X=2 TO 20 STEP 2 

< 194> 

, SPACE {SPACE , RVOFF , SPACE>= SAT 


4580 IF MA=X THEN 4600 

<210> 

UM AENDERN" 

<09B> 

4590 NEXT X 

<220> 

4080 FOR X=1 TO MA/2 

<090> 

4595 GOTO 4540 

< 193> 

4090 SYS CU,0,X+B:PRINT HE*<X> 

< 135> 

4600 GOSUB 20560:E=1 

<070> 

4100 SYS CU,16,X+8:PRINT"—" 

<086 > 

4610 SYS CU,12,7:PRINT"21TTE GEBEN SIE" 

<005> 

4110 SYS CU,17,X+B : PRINT GA*<X> 

<047> 

4620 SYS CU,9,9:PRINT"DIE flANNSCHAFTEN EIN 


4115 H*(X)=RIGHT*<" "+H*<X>,2> 

< 164> 

. " 

<100> 

4120 SYS CU,34,X+8:PRINT H*(X> 

<073> 

4625 SYS CU , 16 , 11 : PRINT " .HANNSCHAFT " 

< 115> 

4130 SYS CU , 36,X+B : PRINT ":" 

< 123> 

4630 SYS CU, 11 , 13:PRINT , "pVpVp'pVpWpVpVpVpV 


4135 G*(X)=RIGHT*<" "+G*(X),2) 

<147> 

" 

< 10B> 

4140 SYS CU,37 , X+B:PRINT G*<X> 

/I 1 Ern Ttr U* /VI II AIITLirkl rv/r nii TT \/.n_ nnniT 

< 157> 

4635 SYS CU, 10,14:PRINT"J?{18SPACE)H" 

<067> 

XI r-1 men uro uu,oo,ATa.rr\iiNi 

"AUSGEF." <221> 

464io . iS CU, ii ,ib:PKINI "WYyyyYYYYYYYYYYW 

< 169> 

4155 NEXT X 

<039> 

4650 : 

<054> 

4160 IF AZ=0 THEN GOSUB 20410:GOTO 20B0 

<034> 

4651 IF E<1 THEN 4520 

<100> 

4165 FOR 1=1 TO 9:C* < I >="" :NEXT 

< 114> 

4655 SYS CU,13,11:PRINT RIGHT* (" "+STR*(E> 


4190 C=1 

<051 > 

,2) 

<071 > 

4192 GOSUB 4240 

<012> 

4660 AA*=MA*(E> 

< 196> 

4195 C*<C)="{RVSON>" 

<012> 

4665 X=12:Y=14:Z=16:GOSUB 20210 

<240> 

4200 GOSUB 4240 

<020> 

4675 IF DP=1 THEN DP=0:E=E-1 : GOTO 4650 

<16B> 

4202 GOSUB 20410 

<062> 

4680 IF AA*=""THEN 4665 

<244> 

4205 GET Q*:Q=ASC<Q*> 

<225> 

4684 MA*<E)=LEFT*<AA*+I*,16> 

<049> 

4207 IF Q=17 THEN GOTO 4225 

<213> 

46B5 E=E+1 : IF E>MA THEN 4720 

< 1B0> 

4210 IF Q=29 THEN GOTO 4230 

<049> 

4686 GOTO 4650 

<07B> 

4212 IF Q=13 THEN 4300 

<023> 

4720 GOSUB 20560 

< 169> 

4215 IF Q=94 THEN 20B0 

< 116> 

4730 SYS CU,10,9:PRINT"ßUSS DIE flATENDISKE 


4216 IF 0=133 THEN 4430 

< 129> 

TTE“ 

< 169> 

4217 IF 0=4 THEN 4400 

<089 > 

4740 SYS CU,9,U:PRINT"ERST FORMATIERT WER 


4220 GOTO 4202 

<024> 

DEN 7" 

< 197> 

4225 C*(C>="":GOSUB 4240:C=C+1 : GOTO 4235 

< 151 > 

4745 C=1 

<09B> 

4230 C*<C>="":GOSUB 4240:C=C-1 

<077> 

4750 R*(1)="HEIN" 

< 173> 

4235 IF C>MA/2 THEN C=1 

<019> 

4755 R*(2) =" äA " 

<0B9> 

4236 IF C<1 THEN C=MA/2 

< 192> 

4760 RA=2:Y=13:GOSUB 20010 

<062> 

4237 GOTO 4195 

<251 > 

4770 IF DP=1 THEN DP=0:BOTO 4600 

<075> 

4240 FOR 1=1 TO MA/2 

<132> 

4780 ON C GOTO 4800,4785 

< 174> 

4242 IF H*(I>=" A"THEN SYS CU,33,I+B:PRINT 


4785 GOSUB 20560 

<234> 

C*(I)"AUSGEF.":GOTO 4250 

<059> 

4786 DE*="i£ERDISKETTE":GOSUB 20615 

<201 > 

4245 SYS CU,34,I+B:PRINT C*<I > H*<I> ": "G* < I 


4787 IF DP=2 THEN DP=0:GOTO 4720 

<030> 

) 

<060> 

47BB GOSUB 20710:IF DP=1 THEN DP=0:GOTO 47 


4250 NEXT:RETURN 

< 125> 

B6 

< 175> 

4300 SYS CU,33,C+B:PRINT"«SPACE >: «SPACE) 


4790 OPEN 1,8,15,"N:LB-DATA,LB" : CLOSE 1 

< 114> 

" 

< 121 > 

4795 OPEN 15,8,15:GOSUB 20960 

<147> 

4305 AA*="":Y=C+B:X=34:Z=2:GOSUB 20205 

<1B0> 

4796 IF DP=1 THEN DP=0:GOTO 4785 

<247> 

4310 IF DP=1 THEN DP=0:GOTO 41,95 

<011> 

4800 GOSUB 20560 

<249> 

4315 IF AA*=""THEN H*<C>=" A":GOTO 4195 

<000> 

4810 GOSUB 9610 

< 130> 

4320 H*<C)=RIGHT*(" "+AA*,2) 

<233> 

4820 IF DP=1 THEN DP=0:GOTO 4B10 

<127> 

4325 AA*="":X=37:Z=2:GOSUB 20205 

< 151 > 

4830 IF DP=2 THEN DP=0:GOTO 4720 

<073> 

4330 IF DP=1 THEN DP=0:GOTO 4300 

<013> 

4840 GOTO 1280 

<241 > 

4340 IF AA*=""THEN GOTO 4325 

4345 G*<C>=RIGHT*<" "+AA*,2> 

4350 SYS CU,33,C+B:PRINT"«SPACE):{3SPACE> 

": GDTO 4195 

< 159> 
<254> 

< 109> | 
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4999 s 


< 149> 

5400 

FOR X=1 TO MA/2 

< 142> 

5000 REM * DRUCKEN * 


<032> 

5405 

G2* < X)=GA*(X)s H2* < X)=HE* < X) 

< 1B4> 

5001 s 


< 151 > 

5410 

NEXT 

< 0 B 6 > 

5010 GOSUB 20560 


<205> 

5480 

PRINT#4 

< 149> 

5015 3VS CU-B- 3 s PRINT"I9SPACE} flR.qc.Kjm tSSPft 


5485 

PRINTH4 

< 154> 

CE>" 


< 011 > 

5490 

PRINT#4,"<2SPACE >"S1*".SPIELTAB < 6 SPAC 


5016 SYS CU,25,0:PRINT"«RV50N,16SPACE>" 


< 126 > 


EJSATUM:"LEFT*(I*,16); 

<092> 

5020 R*<1>="SPIELTAGE DRUCKEN" 


< 14B> 

5492 

IF DP=1 THEN PRINT#4iPRINT#4s GOTO 550 


5030 R*(2)=".SPIELPLAN DRUCKEN" 


<079> 


0 

<239> 

5040 R*(3)="JABELLE DRUCKEN" 


<150> 

5495 

PRINT#4,"{3BPACE}"S2*".SPIELTAB < 6 SPAC 


5050 C=DR:Y= 8 iRA=3:GOSUB 20010 


< 132> 


EJ.5ATUM:"sPRINT#4 

<024> 

5055 DR=C 


<027> 

5500 

FOR X=1 TO MA/2 

<242> 

5060 IF DP=1 TUEN DP=0:6OTO 12B0 


< 1 B 0 > 

5505 

PRINT#4,H1*(X)"-"G1*(X) ; 

< 1 B 0 > 

5070 ON C GOTD 5105,5310,5710 


<007> 

5510 

PRINT#4," 00:00<2SPACE>"; 

<013> 

5099 8 


<249> 

5511 

IF DP=1 THEN PRINT#4s GOTO 5525 

<206> 

5100 REM # SPIELTAG DRUCKEN * 


<234> 

5515 

PRINT#4,H2*(X) M -"B2*(X)J 

< 127> 

5101 I 


<251 > 

5520 

PRINT#4," 53:00"! 

<023> 

5105 SYS CU.8,3: PRINT" {4SPACEJAP.IAl.T_FU;. AMI 


5525 

NEXT 

<201 > 

£££Ü<4SPACE>" 


< 202 > 

5530 

DP=0:PRINT#4sCLOSE 2 

<029> 

5110 GOSUB 21160 


< 193> 

5533 

IF I>(MA-1)*HR THEN 5540 

<022> 

5115 IF DP=1 THEN DP=0:GOTO 5010 


<22B> 

5534 

: . 

< 176> 

5120 GOSUB 9010 


<092> 

5537 

1=1+1:GOTO 5358 

< 194> 

5124 IF DP=1 THEN DP=0:GOTO 5120 


< 112 > 

5540 

CLOSE 4:GOTO 5010 

<187> 

5125 IF DP=2 THEN DP=0:GOTO 5010 


<048> 

5699 

g 

<087> 

5126 IF EN=62 THEN GOSUB 21745:DP=0:GOTO 

5 


5700 

REM * TABELLE DRUCKEN * 

< 134> 

120 


<086> 

5701 

| 

<0B9> 

5127 GOSUB 9310 


< 147> 

5710 

GOSUB 20560 

< 143> 

512B IF DP=1 THEN DP=0sGOTO 5120 


< 116> 

5720 

SYS CU. 10.3s PRINT" {3SPACEJ.T/UUUJ..E. ARU 


5129 IF EN=62 THEN GOSUB 21745: DP=0: GOTO 

5 



.C.KAH<35PACE> " 

< 134> 

120 


<089> 

5730 

GOSUB 13010 

<234> 

5130 GOSUB 21210 


< 1 B 2 > 

5731 

IF DP=1 THEN DP=0:GOTO 5730 

<215> 

5140 IF DP=1 THEN DP=0:GOTO 5130 


< 129> 

5732 

IF DP=2 THEN DP=0:GOTO 5010 

<147> 

5200 OPEN 4,4,7 


< 133> 

5733 

GOSUB 21210 

<021 > 

5235 IF W=1 THEN W=0:DA*="" 


<251 > 

5734 

IF DP=1 THEN DP=0:GOTO 5010 

<085> 

5236 PRINT#4,SG*“.SPIELTAG{5SPACE>AATUM: 

'D 


5740 

OPEN 4,4,7 

< 165> 

A*:PRINT#4 


<084> 

5745 

PRINT#4,CHR*(14) " {7SPACEJJABELLE FUER 


5240 FÜR X=1 TO MA/2 


<236> 


"; LN* : PRINT#4 

<055> 

5250 PRINT#4,HE*(X>"—"GA* (X) " 


<065> 

5750 

PRINT#4,CHR* ( 14) " {9SPACEJBIS ZUM "iSP 


5255 IF RIGHT*<H*<X>,1)="A"THEN PRINT#4, 

'A 



-1 i ".SPIELTAG."CHR* ( 15) : PRINT#4 

<064> 

USGEF."s GOTO 5260 


<204 > 

5760 

PRINT#4,"£L. flANNSCHAFT<11SPACEJSP.<3 








" "+G*(X),2) 

$ ( 

<232> 

;| arMut;otw. v^arHLt^u. izarHLt/vtrxL. toar 

ÄCE J .PUNKTE C2SPACE >HI FF. "s 

<057> 

5260 NEXT X:PRINT#4 


<067 > 

5765 

PRINT#4, " {4SPACE > JORE {5SPACE } AIFF ." 

< 151 > 

5265 CLOSE 4 


< 220 > 

5766 

PR INT#4 T "*****************#*****»*»•** 


5270 GOTO 5010 

5299 s 


< 194> 

< 195> 

< 113> 

5767 

++***#******" p 

<214> 

5300 REM * SPIELPLAN DRUCKEN * 



<05B> 

5301 s 


< 197> 

5770 

FOR X=1 TO MA 

<223> 

5310 SYS CU, 10.3SPRINT" SPIEL PLFIH ARDCKER 


5780 

PRINT#4,RIGHT *(" "+STR* <X) , 2) ". "MA*< 


" 


<049> 

X > SPC (6) ; 

< 175> 

5315 SYS CU,25,0sPRINT"<RVSON,16SPACE >" 


< 171 > 

5781 

PRINT#4,RIGHT*<" "+STR*(AN(X> ) ,2>SPC( 


5316 GOSUB 20560 


<001 > 


4>i 

< 1B2> 

5320 R* < 1 )=" ÜINRUNDE " 


<252> 

5782 

PRINT#4,RIGHT*«" "+STR*(GW ( X) ) ,2>SPC< 


5325 R*(2)="ÄUECKRUNDE" 


<231 > 


3)» 

<247> 

5330 C=HR:Y=8:RA=2:GOSUB 20010 


< 158> 

5783 

PRINT#4,RIGHT* (" "+STR*(US ( X >) ,2)SPC< 


5335 HR=CsIF DP=1 THEN DP=0sGOTO 5010 


<230> 


4)! 

< 154> 

5340 GOSUB 20560sHR=C 


<245> 

57B4 

PRINT #4 ,RIGHT *(" "+STR* (VL(X) ) ,2)SPC< 


5345 SYS CU,2B,0s PRINT"CRVSON >" R* ( C > 


<062> 


5)| 

<010> 

5350 GOSUB 21210 


< 146> 

57B5 

PRINT#4,RIGHT* (" "+STR*(PH(X) ) ,2)"s " f 

<0B9> 

5352 IF DP=1 THEN DP=0:GDTO 5345 


<097> 

5786 

PRINT#4,RIGHT *(" "+STR*(PA(X) ) ,2>SPC< 


5353 OPEN 4,4,7 


<030> 


3) s 

<202> 

5354 PRINT#4,CHR* < 14) " { 6 BPACEJJ 3 PIELPLAN FU 


5787 

PRINT#4,RIGHT*(" "+STR*(PD(X) ) ,3)SPC< 


ER "LN* 


< 189> 


4) 

<057> 

5355 PRINT#4 : PRINT#4,CHR* < 14 >"U 5SPACE >"; R 


5788 

PRINT#4,RIGHT* (" "+STR*(TH(X) ) ,3)"s "| 

< 164> 

* (C)CHR* ( 15)s PRINT#4 


<092> 

5789 

PRINT#4,RIGHT* (" "+STR*(TA(X> ) ,3>BPC< 


5356 1=1sIF HR=2 THEN I=MA 


< 199> 


5) I 

<150> 

535B BP=Is GOSUB 211B5 


<249> 

5790 

PRINT#4,RIGHT *(" "+STR*(TD(X) ) ,3) 

<007> 

5359 GOSUB 9014sSl*=SG* 


< 1 05 > 

5791 

NEXT 

<213> 

5360 IF DP=1 THEN DP= 0 sCLOSE 4sGOTO 5315 


< 1 41 > 

5792 

CLOSE 4:GOTO 5010 

< 1B5> 

5365 IF EN=62 THEN GOSUB 21745sDP=0sGOTO 

5 


5999 

3 

< 133> 

356 


<085 > 

6000 

REM * DIENSTMENUE * 

<096> 

5366 IF HR=2 THEN Dl*=""sGOTO 5370 


<227> 

6001 

: 

< 135> 

5370 FOR X=1 TO MA/2 


<110> 

6010 

GOSUB 20560 

<1B9> 

5375 G1*(X> =GA*(X) : Hl*(X)=HE*(X) 


< 142> 

6020 

SYS CU. 10.3s PRINT" {4SPACE > AIAR5.TMENAE 


53B0 NEXT. 


<056> 


<4SPACE>" 

<1BB> 

53BS 1=1+1sIF I=(MA~1)*HR+1 THEN DP=lsGOTO 


6030 

R* ( 1 ) ="AISK—SEFEHL SENDEN" 

<212> 

5480 


<214> 

6035 

R*(2)="AIRECT0RY" 

<252> 

5390 BP=IsGOSUB 21185 


<027> 

6040 

R* (3) =" fROGRAMMENDE " 

< 191 > 

5392 GOSUB 9014sS2*=SG* 


< 142> 

6045 

RA=3s Y=B:C=DUs GOSUB 20010 

< 125> 

5393 IF DP=1 THEN 5480 


< 003 > 

6050 

DU=CsIF DP=1 THEN DP=0:GOTO 12B0 

< 160> 

5395 IF EN=62 THEN GOSUB 21745sDP=0sGOTO 

5 


6055 

ON C GOTO 6060,6610,6700 

<097> 

356 


< 117> 

6057 


< 191 > 
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6058 REM * DISKBEFEHL SENDEN * 

<222> 

6345 IF DP=1 THEN DP=0:GOTO 6060 

<001 > 

6059 I 

< 193> 

6350 IF AA*=""THEN 6340 

< 1B2> 

6060 GQSUB 20560: DB*=" 11 

<210> 

6355 N*=AA* 

<01B> 

6065 SYS CU,10,3:PRINT" AIAH-aEfAKL Ä&MS&N 


6360 AA*="":X=29:Y=9:Z=2:GOSUB 20210 

<128> 

£3SPACE>" 

< 162> 

6365 IF DP=1 THEN DP=0:GOTO 6340 

< 14B> 

A0A7 M$ <1)=" irpWp^ypWp^Wp^’p'p’ 1 ’ 

<198> 

6370 IF AA*= MM THEN 6360 

<234> 

6068 M*<2)»"W<lBSPACE>tT 

<253> 

6371 IF LEN<AA*>=1 THEN AA*=AA*+" " 

< 166> 

6069 M*(3) = "YYYVYVYYYYYWYYYW" 

<056> 

6375 ID*=AA* 

<010> 

6070 R*<1)="£ILE LOESCHEN" 

< 109> 

6380 GOSUB 20710 

<04B> 

6071 R*(2)="£ILE UMBENENNEN" 

<250> 

63B5 IF DP=1 THEN DP=0:GOTO 6340 

<168> 

6072 R*<3>-"ai8K VALIDIEREN” 

<202> 

6390 OPEN l,B,15,"N:"+N*+","+ID*:CL0SE 1 

<200> 

6073 R*<4>=" SISK FORMATIEREN" 

< 12B> 

6395 OPEN 15,8,15:GOSUB 20960 

<223> 

6075 C=1:RA=4:Y=B:GOSUB 20010 

<073> 

6400 IF DP=1 THEN DP=0:GOTO 6340 

<185> 

6076 IF DP=1 THEN DP=0:BOTO 6010 

<237> 

6410 GOTO 6060 

<232> 

6077 ON C GOTO 6105,6150,6235,6310 

< 116> 

6420 : 

<046> 

6080 : 

<214> 

6430 REM * DISK BEFEHL AUSFUEHREN * 

< 169> 

6100 REM * FILE LOESCHEN * 

<075> 

6440 GOSUB 20710 

<110> 

6101 : 

<235> 

6450 IF DP=1 THEN RETURN 

< 188> 

6105 SYS CU, 10,3: PRINT" <3SPACE>£Ii£ 


6460 OPEN 12,8,15,DB* 

<0B6> 

£iJ{3SPACE>" 

< 151 > 

6470 OPEN 15,8,15:GOSUB 20960 

<044> 

6110 GOSUB 20560 

<033> 

6475 CLOSE 12 

< 171 > 

6115 SYS CU,15,6:PRINT"£ILENAME:" 

< 150> 

6490 RETURN 

< 198> 

6116 SYS CU,11,8:PRINT M*(1> 

<215> 

6500 : 

< 126> 

6117 SYS CU,10,9:PRINT M*<2> 


6510 REM * DIRECTORY * 

<102> 

'* 

<031 > 

6600 : 

<226> 

6118 SYS CU,11,10:PRINT M*<3) 

<105> 

6610 GOSUB 20710 

<024> 

6120 AA*="":X=12:Y=9:Z=16:GOSUB 20210 

< 106> 

6615 IF DP=1 THEN DP=0:GOTO 6060 

<017> 

6125 IF DP=1 THEN DP=0:GOTO 6060 

<035> 

6620 PRINT CHR* <147) 

<043> 

6126 IF AA*=""THEN 6120 

<164> 

6625 SYS 50176 

<071 > 

6132 DB*="S:"+AA* 

<216> 

6630 OPEN 15,8,15:GOSUB 20960 

<204> 

6133 GOSUB 6440 

<223> 

6635 IF DP=1 THEN DP=0:GOTO 6060 

<037> 

6135 IF DP=1 THEN DP=0:GOTO 6120 

< 169> 

6636 GOSUB 20410 

<210> 

6140 GOTO 6060 

<214> 

6640 PRINT"<CLR>":GOSUB 1210:SYS CU,0,0:PR 


6147 : 

<027> 

INT" {RVSONIA.IGA: “; LN* 

<07B> 

6148 REM * FILE UMBENENNEN * 

<246> 

6650 GOTO 6010 

<056> 

6149 : 

<029> 

66B0 : 

<052> 

6150 GOSUB 20560 

<075> 

6690 REM * PRG ENDE * 

<227> 

6151 SYS CU, 10,3: PRINT" <2SPACE>£ik£ UAAEXE. 


6695 : 

<067> 

.NHEKI2SPACE > 11 

< 144> 

6700 GOSUB 20560 

< 117> 

6152 SYS CU,11,8:PRINT M*(1) 

<253> 

6710 SYS CU, 10,3: PRINT" <4SPACE>.PA0ARArWl£KIl 


6153 SYS CU,10,9:PRINT M*<2) 

<001> 

.C3SPACE} " 

<236> 

6154 SYS CU,11,10:PRINT M*<3> 

< 143> 

6715 SYS CU,12,B:PRINT"£IND SIE SICHER ?" 

<041 > 

6155 SYS CU,12,6:PRINT"ALTER £ILENAME:" 

<174> 

6720 R*<1)="ÜEIN" 

<111> 

6160 AA*=R1*:X=12:Y=9:Z=16:G0SUB 20210 

<104> 

6725 R*(2)="iA" 

<027> 

6165 IF DP=1 THEN DP=0:GOTO 6060 

<077> 

6730 C=1:RA=2:Y=10:GOSUB 20010 

<059> 

6170 IF AA*=""THEN 6160 

<01B> 

6735 IF DP=1 THEN DP=0:GOTO 6010 

<134> 

6175 R1*=AA* 

<205> 

6740 ON C GOTO 6010,6750 

<092> 

6180 SYS CU,11,14:PRINT M* < 1 > 

< 1B3> 

6750 SYS 64738 

<206> 

6185 SYS CU,10,15:PRINT M*<2> 

<065> 

8903 REM >>>>»FLOPPY - ROUTINEN<<<<<<< 

< 156> 

6190 SYS CU,11,16:PRINT M*(3> 

<203> 

B999 : 

<085> 

6195 SYS CU,12,12:PRINT"UEUER £ILENAME:" 

<101> 

9000 REM * SPIELTAGE LADEN * 

<059> 

6200 AA*=R2*:X-12:Y=15:Z=16:GOSUB 20210 

<235> 

9001 : 

<0B7> 

6205 IF DP=1 THEN DP=0:GOTO 6160 

<245> 

9010 GOSUB 20610:IF DP=2 THEN RETURN 

<241 > 

6210 IF AA*=""THEN 6200 

<226> 

9014 GOSUB 20710:IF DP=1 THEN RETURN 

<245> 

6220 R2*=AA* 

<002> 

9015 GOSUB 20800:IF DP=1 THEN RETURN 

<215> 

6221 DB*="R:"+R2*+"="+Rl* 

<0B9> 

9036 OPEN 15,8,15 

<048> 

. 6222 GOSUB 6440 

<058 > 

9037 UE*=SG*+"..SPIELTAG" 

<035> 

6223 IF DP=1 THEN DP=0:GOTO 6200 

< 130 > 

9038 OPEN 2,8, B, LEFT* (LN* , 3) + " / " +SP*+ " ■ SP I 


6225 GOTO 6060 

<045> 

ELTAG,B,R" 

< 170> 

6229 : 

< 109> 

9039 DE=62:GOSUB 20960:IF EN-62 THEN CLOSE 


6230 REM * DISK VALIDIEREN * 

< 190> 

2:RETURN 

< 171 > 

6231 : 

< 111 > 

9040 IF DP=1 THEN 9122 

<0B4> 

6235 GOSUB 20560 

<160> 

9050 FOR X=1 TO MA/2 

<236> 

6260 SYS CU. 10,3: PRINT" I2BPACE>AIAK. VALIAI 


9055 IF W»1 THEN 9100 

< 180> 

£££H<2SPACE>" 

<231 > 

9060 INPUTH2,HE* < X > 

<247> 

6261 SYS CU,7,B:PRINT"aiSKETTE WIRD VALIDI 


9070 INPUT#2,GA*(X) 

<223> 

ERT..." 

<248> 

90B0 NEXT X.-GOTO 9122 

<21B> 

6265 DB*="V" 

<057> 

9100 INPUT#2,GA*(X) 

<253> 

6270 GOSUB 6440 

< 106> 

9110 INPUT#2,HE* < X) 

<041 > 

6275 IF DP=1 THEN DP=0 

< 172> 

9120 NEXT X 

< 17B> 

6280 GOTO 6060 

<100> 

9122 CLOSE 2 

<251 > 

6299 : 

< 179> 

9125 GOSUB 20960 

< 129> 

6300 REM * DISK FORMATIEREN * 

<20B> 

9130 W=0:RETURN 

<207> 

6310 GOSUB 20560 

<235> 

9149 : 

<235> 

6320 SYS CU.10.3:PRINT" I2SPACE>JIAK. AOAflAT 


9150 REM * SPIELTAGE-SAVEN * 

<208> 

IAKLN " 

< 12B> 

9151 : 

<237> 

6325 SYS CU,8,8: PRINT M* (1) " <3SPACE) - p'p" 1 

<106> 

9160 GOSUB 20610:IF DP=2 THEN RETURN 

< 135> 

6326 SYS CU,7,9:PRINT M*<2>" ff£2SPACE>W" 

< 117> 

9162 GOSUB 20710:IF DP=1 THEN RETURN 

< 137> 

6327 SYS CU,8,10: PRINT M* (3) " «SPACE>W" 

<227> 



6330 SYS CU,8,7:PRINT"aiSKNAME:tl2SPACE)ja 




- >• 

< 007 > 



6340 AA*="":X=9:Y=9:Z=16:G0SUB 20210 

<007> 

Listing 1. »Ligabase« (Fortsetzung) 



Q3t3? 


SONDERHEFT 11 


167 










ANWENDUNG 


C 64 


9163 GOSUB 20800:IF DP-1 THEN RETURN <107> 

9167 OPEN 15,8,15 <179> 

9168 UE*=SG*+".SPIELTAG" <166> 

9169 OPEN 2,B,B,WR*+LEFT*(LN*,3>+"/"+BP*+" 

.SPIELTAG,S,W" <143> 

9170 GOSUB 21510:IF DP=1 THEN 9232 <022> 

9175 IF WR=1 THEN WR=0:CLOSE 2:G0T0 9162 <216> 

9190 FOR X=1 TO MA/2 <120> 

9200 PRINT#2,HE*(X> <211> 

9220 PRINT#2,GA* < X) <199> 

9230 NEXT X <034> 

9232 CLOSE 2 <107> 

9235 GOSUB 20960 <241> 

9240 CLOSE 15:RETURN <16B> 

9299 i <131> 

9300 REM * ERGEBNIS-LADEN * <047> 

9310 : <142> 

9314 GOSUB 20710:IF DP=1 THEN RETURN <035> 

9315 GOSUB 20800:IF DP-1 THEN RETURN <005> 

9316 OPEN 15,8,15 <074> 

9317 UE*=SB*+".ERGEBNIS" <133> 

9319 OPEN 2,8,8,LEFT*(LN*,3)+"/"+SG*+".ERG 

EBNIB,S,R" <136> 

9320 DE-62:GOSUB 20960:IF EN=62 THEN CLOSE 

2: RETURN <19B> 

9325 IF DP-1 THEN 9382 <143> 

9330 INPUT42.DA*:IF DA*="K"THEN DA*-"" <247> 

9335 GOSUB 20960:IF DP=1 THEN 9382 <122> 

9350 FOR X=1 TO MA/2 <026> 

9360 INPUT#2,H*CX) <013> 

9370 INPUT#2,G*(X> <246> 

9380 NEXT X <184> 

93B2 CLOSE 2 <001> 

93B5 GOSUB 20960 <135> 

9390 CLOSE 15 <0B4> 

9395 RETURN <053> 

9399 : <231> 

9400 REM * ERGEBNIS-SAVEN * <125> 

9401 : <233> 

9410 GOSUB 20610:IF DP-2 THEN RETURN <131> 

9412 GOSUB 20710:IF DP=1 THEN RETURN <133> 

9415 GOSUB 20800:IF DP-1 THEN RETURN <105> 

9416 OPEN 15,8,15 <174> 

9417 UE*=SG*+".ERGEBNIS" <233> 

9419 OPEN 2,B,B,WR*+LEFT*(LN*,3)+"/"+SG*+" 

.ERGEBNIS,S,W" <216> 

9420 GOSUB 21510:IF DP-1 THEN 9462 <026> 

9425 IF WR=1 THEN WR=0:CLOSE 2:GOTO 9412 <184> 

9426 IF VAL(DA*)=0 THEN DA*="K" <123> 

9427 PRINT#2,DA* <186>. 

9430 FOR X=1 TO MA/2 <106> 

9440 PRINT#2,H*(X> <173> 

9450 PRINT#2,G*(X) <150> 

9460 NEXT X <00B> 

9462 CLOSE 2 <0B1> 

9465 GOSUB 20960 <215> 

9470 CLOSE 15:RETURN <142> 

9499 : <077> 

9500 REM * LIGA LADEN # <133> 

9501 : <079> 

9510 GOSUB 20610: IF DP-2 THEN RETURN <233> 

9514 GOSUB 20710:IF DP-1 THEN RETURN <237> 

9516 GOSUB 20800:IF DP-1 THEN RETURN <208> 

9517 OPEN 15,B,15 <021> 

951B UE*—"SIGA" <106> 

9519 OPEN 2,8,3,LN*+" /L,S,R" <040> 

9520 GOSUB 21710:IF DP-1 THEN 9562 <193> 

9530 INPUT#2,MA <226> 

9540 FOR X-l TO MA <1B3> 

9550 INPUT#2,MA*(X) <132> 

9560 NEXT <172> 

9562 CLOSE 2 <1B3> 

9565 GOSUB 20960 <061> 

9570 CLOSE 15:RETURN <244> 

9599 : <177> 

9600 REM * LIGA SAVEN * <056> 

9601 : <179> 

9610 GOSUB 20610:IF DP-2 THEN RETURN <077> 

9611 GOSUB 20710:IF DP=1 THEN RETURN <078> 

9612 GOSUB 20800:IF DP-1 THEN RETURN <048> 

9613 OPEN 15,8,15 <117> 

9614 UE*="iIGA" <202> 


9615 OPEN 2,8,3,WR*+LN*+" /L,S,W" <129> 

9620 GOSUB 21510:IF DP-1 THEN 9662 <230> 

9625 IF WR-1 THEN WR-0:CLOSE 2:GOTO 9611 <122> 

9630 PRINT#2,MA <150> 

9635 GOSUB 20960:IF DP-1 THEN 9662 <167> 

9640 FDR X=1 TO MA <027> 

9650 PRINT#2,MA*(X) <056> 

9660 NEXT <016> 

9662 CLOSE 2 <027> 

9665 GOSUB 20960 <161> 

9670 RETURN <074> 

10000 i <070> 

10002 REM * TABELLE # <216> 

10003 : <073> 

10010 GOSUB 20560:SP-1 <070> 

10020 SYS CU,8.3: PRINT" <B3PACE> .TJUUUJ..E <9SP 

ACE>" <19B> 

10030 R*(1)»"MEUE JABELLE ERRECHNEN" <120> 

10040 R*(2)-"ULTE JABELLE ERBAENZEN" <021> 

10045 R*(3)-"JABELLE ANZEIGEN " <122> 

10050 C=T:RA=3:Y-B:GOSUB 20010:T-C <024> 

10060 IF DP-1 THEN DP-0:BOTO 1280 <100> 

10070 ON C GOTO 10105,11800,11610 <147> 

10090 : <160> 

10100 REM * NEUE TABELLE ERRECHNEN * <049> 

10102 : <172> 

10105 GOSUB 10222 <116> 

10106 SYS CU,8,3: PRINT" HE.U.E. TnSE-lLE EHREC 

zmai ":P=1 <035> 

10110 GOSUB 20560 <225> 

10120 SYS CU,6,5:PRINT"aiTTE<SPACE,RVS0N>a 
ATENDISKETTE <RVOFF,SPACE >EINLEGEN" <1B6 > 

10121 SYS CU,8,6:PRINT"UND IN DER JLOPPY L 

ASSEN." <144> 

10125 SYS CU,7,8:PRINT"SITTE DRUECKEN SIE 

CJ5ETURN3" <223> 

10131 GOSUB 20410 <149> 

10132 BET Q*:Q=ASC(Q*> <054> 

10133 IF Q-13 THEN 10136 <220> 

10134 IF Q—94 THEN 10010 <171> 

10135 ÖU.O 10131 <033> 

10136 SP-P <234> 

10137 SYS CU,7,8:PRINT" JABELLE WIRD ERREC 

HNET... " <134> 

10150 GOSUB 21185 <156> 

10160 GOSUB 9014:IF DP-1 THEN DP=0:BOTO 10 

110 <236> 

10170 IF EN—62 THEN 10600 <195> 

10180 GOSUB 9310:IF DP-1 THEN DP=0:GOTO 10 

110 <047> 

10190 IF EN-62 THEN 10600 <215> 

10193 SYS CU,0,10:PRINT"flUSGEF. SPIELE DES 

''{SP; "<LEFT>.SPIELTABES: " <152> 

10194 AS-12:GOSUB 10250 <0B2> 

10195 GOTO 10320 <221> 

10199 : <013> 

10200 REM * AUSGEF. SPIELE * <075> 

10201 : <015> 

10205 SYS CU,3,A8:PRINT HE*(I)"-"GA*(I) <181> 

10210 AS-AB+1:RETURN <042> 

10219 : <033> 

10220 REM * VARIABLEN LOESCHEN * <221> 

10221 l. <035> 

10222 FOR X—1 TO MA <101> 

10230 AN(X)—0:GW(X)—0:US(X)—0:VL(X)=0 <024> 

10231 PH <X)—0:PA < X)—0:TA <X > —0:TH(X)—0 <221> 

10232 TD<X)-0:PD<X)=0 <0B0> 

10235 NEXT:RETURN <012> 

10239 : <053> 

10240 REM * LOESCHEN * <130> 

10242 : ' <05B> 

10250 FOR X—12 TO 22 <231> 

10260 POKE 781,X:SYS 59903 <212> 

10270 NEXT:RETURN <049> 

10309 : <125> 

10310 REM * SPIELTAB AUSWERTEN * <0B5> 

10311 : <127> 

10320 FOR 1-1 TO MA/2 <116> 

10335 FOR X=1 TO MA <216> 

10340 IF HE* <I>-MA*(X)THEN 10350 <035> 

10342 NEXT X <130> 

10350 FOR Y—1 TO MA <239> 
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10355 IF GA*d)=MA*(Y>THEN 10360 <05B> 

10356 NEXT Y <152> 

10360 IF H*(I)="A"THEN BOSUB 10205:NEXT Is 

GOTO 10575 <075> 

10370 Hd)=VAL(H*d>)tGd>=VAL<G*d>> <045> 

10375 IF H(I)>B<I)THEN 10400 <111> 

10380 IF H(I)=B <I)THEN 10450 <250> 

10390 IF HdXG(I)THEN 10500 <255> 

10395 GOTO 10370 <232> 

10400 PH<X)=PH(X)+2sGW<X)=GW(X)+1 <020> 

10405 PA(Y)=PA(Y)+2sVL(Y)=VL(Y>+l <061> 

10420 GOTO 10550 <193> 

10450 PH(X) =PH<X)+1sUS(X)=US(X)+1 <142> 

10460 PA(X)=PA(X) +1:US(Y)=US(Y> +1 <092> 

10470 PA(Y)=PA(Y>+1sPH <Y) =PH(Y)+1 <173> 

10490 BGTO 10550 <007> 

10500 PA <X)=PA(X> +2s VL(X)=VL(X)+1 <10B> 

10510 PH(Y)=PH<Y)+2:GW<Y>=GW<Y>+1 <1B2> 

10520 BGTO 10550 <039> 

10550 TH < X) =TH (X)+Hd) <057> 

10555 TA(X)=TA(X)+G(I) <1B3> 

10560 TA<Y)=TA(Y)+Hd> <037> 

10565 TH(Y)=TH<Y)+B(I) <047> 

10566 AN(Y)=AN <Y)+1 <217> 

10567 AN<X)=AN(X)+1 <17B> 

1056B PD(X)=PH(X)-PA(X> sPD <Y)=PH <Y)—PA<Y) <101> 

10569 TD(X)=TH<X)—TA(X)iTD(Y)=TH(Y)—TA<Y> <207> 

10570 NEXT I <240> 

10575 IF P>(MA—1> *2 THEN 10600 <075> 

10576 IF ASM2 THEN FÜR X=1 TD 2000:NEXT <033> 

105B0 P=P+1:GOTO 10136 <10B> 

10600 GDSUB 10710 <19B> 

10610 GOSUB 11010 <000> 

10615 IF DP=1 THEN DP=0:GOTO 10105 <095> 

10620 SYS CU,8,3: PRINT" C3SPACEJ Jfl8£ü£ aa§, 

PJUCKEAH {25PACE > " <010> 

10630 GOSUB 12010 <036> 

10635 IF DP=1 THEN DP=0:GDTO 10630 <106> 

10640 IF DP=2 THEN DP=0:GOTO 10610 <171> 

10645 GOTO 10010 <003> 

10699 : <005>g 

10700 REM * TABELLE SORTIEREN * <232> 

10701 : <007> 

10710 GOSUB 20560 <061> 

10711 SYS CU,B,7:PRINT"JABELLE WIRD SORTIE 

RT..." <057> 

10713 SYS CU,25,0:PRINT"CRVSON,15SPACEJ" <235> 

10715 V=0 <030> 

10720 FOR 1=1 TO MA-1 <254> 

10730 IF PH(I> >PH(I+1)THEN 10774 <082> 

10735 IF PHd)=PHd + 1>THEN 10790 <24B> 

10750 P*=MA*(I> :MA* d)=MA*<I+l> :MA*(I+1>=P 

* <200> 

10755 P=GWd) iGW(I)=GW(I + l) :GW(I+1)=P <179> 

10756 P=VL(I) :VLd)=VLd + l> :VL(I+1)=P <026> 

10757 P=US(I):US(I)=US(I+1)iUS(I+l)=P <05B> 

10760 P=AN(I):AN(I)=AN d+1) l AN d+1 > =P <167> 

10761 P-PH<I)iPHd)=PHd+l)iPH(I+l>=P <235> 

10762 P=PA (I) : PA (I) =PA d + 1) : PA d+1) =P <1B3> 

10763 P=TA(I):TA<I) =TA(I + 1) lTAd + 1) =P <016> 

10764 P=TH(I>»TH(I)=TH(I+1>lTH(I+l)=P <070> 

10765 P-PDd) iPD<I)=PDd+l> :PD(I + 1)=P <062> 

10766 P=TDd> :TD(I)=TDd + l> :TD(I+1)=P <151> 

10773 V=1 <106> 

10774 NEXT I <190> 

10775 IF V»1 THEN 10715 <040> 

107B0 RETURN <170> 

10790 IF PA(I)<PA d + 1)THEN 10774 <006> 

10795 IF PA(I)=PA(I +1)THEN 10830 <0B2> 

10B00 GOTO 10750 <129> 

10830 IF TDd) >TD d + 1) THEN 10774 <144> 

10835 IF TDd) =TD (I +1) THEN 10840 <238> 

10836 GOTO 10750 <165> 

10840 IF TH(I) = >TH d + 1)THEN 10774 <163> 

10850 GOTO 10750 <179> 

10998 REM <136> 

10999 : <051> 

11000 REM * TABELLE ANZEIGEN « <252> 

11005 : <057> 

11010 PRINT"<CLR>" <076> 

11015 SYS CU,6,0:PRINT"JABELLE BIS ZUM ";S 

P-lj"<LEFT>.SPIELTAG" <079> 


11020 SYS CU,0,2:PR INT ".EL. ÜANNSCHAFTC65PA 
CE>SP. <2SPACE>.PUNKTEC4SPACE}JORE<3SP 
ACE > " 

11030 SYS CI 1,0,3: PRINT" 


11040 

11045 

11050 

11055 

11060 

11065 

11070 

11075 

11080 

11081 

11082 

11085 

11086 

11599 

11600 
11602 
11610 
11615 

11619 

11620 
11625 
11630 
11635 
11640 

11799 

11800 
11801 
USIC 
llBlu 

11819 

11820 
11825 
11830 
11835 

11839 

11840 

11999 

12000 
12001 
12010 
12015 

12020 

12025 

12026 
12030 
12035 

12040 

12041 
12050 
12060 
12070 
12074 
12078 
12082 
12086 
12090 
12092 
12100 
12101 
12102 


FOR X=1 TO MA 

SYS CU,0,X+3:PRINT RIBHT$<" "+STR*(X 
),2)"."MA*(X >} 

PRINT" "RIGHT*("<2SPACE >"+STR*(AN(X) 
>,2>, 

PRINT"{3SPACE>"RIGHT*("<2SPACE >" ■+STR 
*<PH<X>>,2>5 

PRINT":"RIBHT*("<2SPACE >"+STR*(PA(X) 

),2>i 

PRINT"C3SPACE >"RIGHT* <"<2SPACE >"+STR 
*<TH(X)),3)5 

PRINT":"RIGHT*("<2SPACE >"+STR* < TA < X) 

),3> t 

NEXT 

GOSUB 20410 
GET Q*:Q=ASC(Q*> 

PRINT"<CLR>":GOSUB 1210:SYS CU,0,0:P 
RINT" {RVSONJL.IGA: ";LN$ 

IF 0=94 THEN DP=1:RETURN 

RETURN 

I 

REM * TABELLE ANZEIGEN * 

GOSUB 20560 

SYS CU,B,3:PRINT" C4SPACEJJflSEÜE flUJ 
E1-GJELH C4SPACE > " 

GOSUB 13010 

IF DP=1 THEN DP=0:GOTO 11619 
IF DP=2 THEN DP=0:GOTO 10010 
GOSUB 11000 

IF DP=1 THEN DP=0:GOTO 11610 
GOTO 10010 

REM * TABELLE ERGAENZEN * 

: 

GOSUB 20560 

SYS CU,B,3:PRINT" &kj£ 

WZEW “ 

GOSUB 13010 

IF DP=1 THEN DP=0:GOTO 11819 
IF DP=2 THEN DP=0:GOTO 10010 
GOSUB 11000 

IF DP=1 THEN DP=0:BOTO 11810 
SYS CU,8,3:PRINT“ RIJ£ 

H7-EK " 

P=SP:GOTO 10110 

REM * TABELLE SAVEN * 

GOSUB 21800:IF DP=2 THEN RETURN 
GOSUB 20610:IF DP=2 THEN DP=0:GOTO 1 
2010 

GOSUB 20710:IF DP=1 THEN RETURN 
GOSUB 20800:IF DP=1 THEN RETURN 
OPEN 15,8,15 
UE*="JABELLE" 

OPEN 2,B,2,WR#+TN*+",S,W" 

BOSUB 21510:IF DP=1 THEN CLOSE 2:G0T 
0 12010 

IF WR=1 THEN WR=0:CLOSE 2:GOTO 12020 
PRINT#2,SP:IF DP=1 THEN 12100 
FOR X=1 TO MA 

PRINT#2,MA*(X)CHR* d 3)AN(X) 

PRINTH2,GW(X)CHR$(13)US(X) 

PRINT H2,VL(X)CHR$(13)PH < X) 

PRINT#2,PA < X)CHR* <13)TH < X) 

PRINT#2,TA(X)CHR*(13)TD(X) 
PRINT#2,PD(X) 

NEXT 
CLOSE 2 
GOSUB 20960 
CLOSE 15:RETURN 


<01B> 

<050> 

< 190> 

< 192> 
< 000 > 
<054> 
<0B9> 

< 136> 

<243> 

< 163> 
<0B2> 
<243> 

<204> 

<056> 

< 222 > 

< 145> 
<090> 
<14Q> 
<201 > 

<06B> 

<025> 

<235> 

< 134> 

< 196> 
<214> 
<23B> 
<091 > 
<239> 
<093> 

< 147> 

<030> 

<227> 

< 1B3> 
<080> 

< 142> 

< 162> 

<054> 

<22B> 

<035> 

< 125> 
<037> 
<208> 

<216> 
<201 > 

< 175> 
<244> 

< 147> 
<230> 

< 154> 
<236> 
< 102 > 

< 163> 
<215> 
< 210 > 

< 105> 
<236> 
<10B> 
<03B> 

< 164> 

< 181 > 
<057> 
<236> 


Llstlng 1. »Ligabase». Bitte beachten Sie die 
Eingabehinweise auf Seite 61. 
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12999 : <019> 

13000 REM * TABELLE LADEN * <243> 

13001 t <021> 

13010 GOSUB 21810:IF DP=2 THEN RETURN <000> 

13015 GOSUB 20610:IF DP=2 THEN DP=0:GOTO 1 

3010 <008> 

13020 GOSUB 20710:IF DP=1 THEN RETURN <185> 

13025 GOSUB 20800:IF DP=1 THEN RETURN <159> 

13030 UE$="JABELLE" <131> 

13032 OPEN 15,8,15 <234> 

13035 OPEN 2,8,2,TN*+"S,R" <231> 

13040 GOSUB 21710:IF DP=1 THEN 13100 <004> 

13050 INPUT#2,SP <065> 

13055 GOSUB 20960:IF DP=1 THEN 13100 <133> 

13060 FOR X=1 TO MA <147> 

13070 INPUT#2,MA$(X),AN < X) ,GW(X) ,US(X) <008> 

13072 INPUT#2,VL<X>,PH<X>,PA<X>,TH(X> <014> 

13074 INPUT#2,TA(X>,TD(X),PD(X) <130> 

13092 NEXT <148> 

13100 CLOSE 2 <165> 

13110 GOSUB 20960 <050> 

13120 RETURN <224> 

19999 : <163> 

20000 REM * REVERS-MENUE * <063> 

20005 : <169> 

20010 FOR X=1 TO 9 <164> 

20011 C*<X>="" <139> 

20015 NEXT <213> 

20019 GOSUB 20100 <227> 

20020 C»<C)="{RVSON>" <089> 

20025 GOSUB 20100 <233> 

20030 GOSUB 20410 <142> 

20035 GET Q$:Q=ASC(Q*> <051> 

20040 IF Q=17 THEN 20070 <155> 

20045 IF Q=29 THEN 20075 <145> 

20050 IF Q=13 THEN 20130 <136> 

20055 IF 0=94 THEN DP=1:RETURN <136> 

20060 GOTO 20030 <156> 

20070 C*(C>="":GOSUB 20100:C=C+1:GOTO 200B 

0 <243> 

20075 C4(C)="":GOSUB 20100:C=C-1:GOTO 2008 

0 <024> 

20080 IF C>RA THEN C=1 <072> 

20090 IF C<1 THEN C=RA <164> 

20095 GOTO 20020 <127> 

20100 J=0:FOR 1=1 TO RA <120> 

20110 RL=LEN(R*(I)):X=INT((39-RL)/2) <106> 

20120 SYS CU,X,Y+J:PRINT C*<I>" "R*<I>" " <020> 

20125 J=J+2:NEXT <027> 

20130 RETURN <120> 

20199 : <107> 

20200 REM * BET ROUTINE « <023> 

20201 : <109> 

20205 KK=47:GK=5B:KG=KK:GG=GK:GOTO 20215 <20B> 

20210 KK=31:BK=96:KG=192:GG=219 <0B4> 

20215 Z=Z-1:G=X+Z:SA=0 <232> 

20220 : <12B> 

20225 : <135> 

20230 : <140> 

20231 SYS CU,X,Y:PRINT AA* <020> 

20235 IF X>Q THEN X=G <241> 

20240 IF X<G—Z THEN X=B-Z <056> 

20245 ZS=1024+X+40*Y <139> 

20250 ZI=PEEK <Z8> <202> 

20255 POKE ZS,ZI+12B <11B> 

20260 POKE 198,0:WAIT 198,1 <166> 

20265 GET 04:Q=ABC(Q*> <027> 

20270 IF 0= 29 THEN 20330 <016> 

20275 IF 0=157 THEN 20335 <255> 

20280 IF 0= 20 THEN 20310 <200> 

20285 IF 0=148 THEN 20350 <202> 

20290 IF Q= 13 THEN 20370 <162> 

20291 IF 0= 94 THEN DP=1:P0KE ZS,ZI:RETURN <14B> 

20295 IF 0>KK AND 0<GK THEN 20340 <242> 

20300 IF Q>KG AND Q<GG THEN 20340 <214> 

20305 GOTO 20260 <14B> 

20310 IF X=G-Z THEN 20260 <211> 

20315 GOSUB 20342 <079> 

20320 SYS CU,X—1,Y:PRINT AA»;" " <064> 

20325 X=X—1:GOTO 20235 <115> 

20330 POKE ZS,ZI:X=X+1:GOTO 20235 <010> 


20335 POKE ZS,ZI:X=X—1:GOTO 20235 <031> 

20340 SYS CU,X,Y:PRINT 0* <171> 

20341 X=X+1:GOTO 20235 <099> 

20342 AA4="":OPEN 1,3 <037> 

20343 FOR I=X TO B <103> 

20345 SYS CU,I,YiGET#1,A$ <0B3> 

20346 AA*=AA*+A* <078> 

20347 NEXT:CLOSE 1:RETURN <249> 

20350 GOSUB 20342 <U4> 

20355 IF RIBHT*(AA*,1)<>" "THEN 20260 <064> 

20360 SYS CU,X,Y:PRINT" "LEFT*<AA*,LEN(AA* 

>-1> <217> 

20365 BOTO 20235 <145> 

20370 SA=0:AA*="":OPEN 1,3 <196> 

20371 FOR I=B TO G-Z STEP-1 <213> 

20375 SYS CU,I,Y:GET#1,A* <113> 

20376 IF SA=1 THEN 20385 <249> 

20380 IF A*=" "THEN 20390 <160> 

20382 BA=1 <22B> 

20385 AA*=A*+AA* <154> 

20390 NEXT:CLOSE 1:P0KE ZS,ZI <190> 

20395 RETURN <131> 

20399 : <053> 

20400 REM * TASTENDRUCK * <U2> 

20405 : <059> 

20410 POKE 198,0:WAIT 198,1 <060> 

20420 RETURN <156> 

20449 : <103> 

20450 REM * FEHLER * <228> 

20455 : <109> 

20460 S1=54272 <179> 

20465 POKE SI+24,15 <120> 

20470 POKE SI+5,15 <115> 

20475 POKE S1+6,0 <077> 

20480 POKE SI+2,0 <083> 

20485 POKE SI+3,8 <160> 

20490 POKE SI,1 <007> 

20495 POKE SI+1,10 <131> 

20500 POKE SI+4,33 <0B1> 

20505 FOR X=1 TO 300:NEXT X <165> 

20510 Pi-' E SI+4,0 <242> 

20520 GOSUB 20410 <124> 

20530 RETURN <012> 

20549 : <205> 

20550 REM * BILDSCHIRM-LOESCHEN * <142> 

20555 : <211> 

20560 FOR X=5 TO 23 <254> 

20570 POKE 781,X:SYS 59903 <106> 

20580 NEXT X <20B> 

20590 RETURN <072> 

20599 : <255> 

20600 REM * DISK EINLEBEN * <221> 

20605 : <005> 

20610 DE4= 11 JJATENDISKETTE 11 <191> 

20615 GOSUB 20560 <060> 

20616 SYS CU,11,12:PRINT"SITTE LEGEN SIE D 

IE" <0B9> 

20620 SYS CU,9,14:PRINT"{RVSON,SPACE>"j DE* 

{SPACE,RVOFF,SPACE>EIN UND" <233> 

20630 SYS CU, 12,16:PRINT"DRUECKEN C KETUJIN 1 

<135> 

20640 GOSUB 20410 <244> 

20650 BET Q*:Q=ASC<Q*> <158> 

20660 IF Q=94 THEN DP=2:RETURN <241> 

20670 IF Q=13 THEN RETURN <148> 

20680 GOTO 20640 <013> 

20699 : <099> 

20700 REM * FLOPPY DEVICE * <090> 

20701 : <101> 

20710 POKE 768,185 <076> 

20720 OPEN 15,8,15,"I”:CLOSE 15 <064> 

20730 POKE 768,139 <099> 

20740 IF BTO-12B THEN 20775 <226> 

20750 SYS CU,9,1:PRINT"{RVSON >21TTE £LOPPY 

ANSTELLEN. {RVOFF>" <015> 

20760 GOSUB 20460 <175> 

20770 GOSUB 21010 <00B> 

20771 DP=1:RETURN <126> 

20775 OPEN 15,8,15 <103> 

20776 GOSUB 20960:IF DP=1 THEN RETURN <197> 

20780 CLOSE 15:RETURN <022> 
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207B9 

: i 

< 191 > 

21230 

PRINT#4:CLOSE 4 

<0B9> 

20790 

REM * DATENDISKETTE PRUEFEN * 

<0B0> 

21240 

POKE 76B,139 

<101> 

20791 

1 

< 193> 

21250 

IF STO-12B THEN RETURN 

<006> 

20B00 

D#="";OPEN 20,8,15 

<05B> 

21260 

SYS CU,9,1:PRINT“{RVSONJfilTTE DRUCKE 


20S10 

OPEN 21,8,2,"#" 

<004> 


R ANSTELLEN.{RVOFFJ" 

<101> 

20B20 

PRINT#20,"Ul 2 0 18 0" 

< 146> 

21270 

GOSUB 20460 

<177> 

20B30 

PRINT#20,"B-P 2 144" 

< 147> 

21275 

GOSUB 21010 

<005> 

20836 

FOR X=1 TO 16 

<022> 

21280 

GOSUB 20410 

<044> 

20837 

GET#21,A* 

<190> 

21290 

GET G*|Q=ASC(Q*) 

<036> 

20840 

IF A*=CHR*(160)THEN 20870 

<004> 

21295 

IF 0=13 THEN DP=lsRETURN 

<040> 

20850 

D*=D*+A* 

<224> 

21300 

IF 0=94 THEN 5010 

<15B> 

20860 

NEXT 

<040> 

21310 

GOTO 21280 

<026> 

20870 

CLOSE 21sCLOSE 20 

<006> 

21499 

I 

< 137> 

20905 

IF D*="LB-DATA"THEN RETURN 

<23B> 

21500 

REM * UEBERSCHREIBEN 7 * 

<021 > 

20910 

SYS CU,6,1 1 PRINT"CRVS0NDBIE5 IST KEI 


21501 

i 

< 139> 


NE ÜATENDISKETTE.CRVOFFJ" 

< 157> 

21510 

WR*="":WR=0 

< 151 > 

20920 

GOSUB 20460 

<079> 

21515 

DE=63tGOSUB 20960 

< 171 > 

20930 

GOSUB 21010 

<16B> 

21520 

IF EN=63 THEN 21545 

<209> 

20940 

DP-llRETURN 

<039> 

21530 

IF DP=1 THEN RETURN 

<026> 

20949 

3 

<095> 

21540 

RETURN 

<006> 

20950 

REM * DISK FEHLER * 

< 104 > 

21545 

UE*=UE*+" UEBERSCHREIBEN 7" 

<047> 

20955 

E 

<101> 

21546 

SYS CU,<39-LEN(UE*>>/2,1sPRINT“{RVSO 


20960 

INPUT#15,EN,EM#,ET,ES 

<249> 


N>"UE* 

<242> 

20962 

IF EN=0 TUEN DE=0sRETURN 

<130> 

21550 

GOSUB 20460 

<203> 

20963 

IF EN=1 THEN EN=0 

<09B> 

21570 

GET Q*sQ=ASC(Q*> 

<062> 

20964 

IF EN=DE THEN DE=0sRETURN 

<145> 

215B0 

IF 0=13 THEN WR*="@sGOSUB 21010:WR 


20965 

s 

< 1 11 > 


= 15 RETURN 

<063> 

20970 

SYS CU,1,1s PRINT"TRVSON >SISK-£EHLERs 


21590 

IF Q=94 THEN DP-1:GOSUB 21010s RETURN 

< 162> 


"} EM* 

< 137> 

21600 

GOTO 21550 

<221 > 

20975 

GOSUB 20460 

<134> 

21699 

3 

<0B3> 

20980 

GOSUB 21010 

<21B> 

21700 

REM * EXISTIERT NICHT * 

< 123> 

20985 

DE=0sDP=lsRETURN 

<233> 

21701 

: 

<0B5> 

20999 

: 

< 147> 

21710 

DE=62sGOSUB 20960 

<046> 

21000 

REM # FEHLER-LOESCHEN * 

<235> 

21720 

IF EN=62 THEN 21745 

<041 > 

21005 

e 

< 153> 

21730 

IF DP=1 THEN RETURN 

<226> 

21010 

SYS CU,0,1:PRINT"{RVSON,40SPACE,RVOF 


21740 

RETURN 

<206> 


F>" 

<093> 

21745 

UE*=UE*+" EXISTIERT NICHT." 

< 117> 

21020 

RETURN 

<250> 

21746 

SYS CU,(39—LEN(UE$>)/2,1:PRINT"<RVSO 


21149 

: 

<041 > 


N>"UE* 

<1B6> 

21150 

REM * SPIELTAG * 

<217> 

21750 

GOSUB 20460 

< 147> 

21155 

3 

<047> 

2176a 

GOSUB 21010 

<243> 

21160 

GOSUB 20560 

<097> 

21770 

DP=lsRETURN 

< 109> 

21161 

SYS CU, 26,0: PR I NT " f RVSON, 20SPACE > " 

<142> 

21799 

: 

< 185> 

21162 

SYS CU,16,7:PRINT"5PIELTAG:" 

<064> 

21800 

REM * TABELLENNAME * 

<150> 

21163 

SYS CU,lB,8sPRINT"-pW?" 

<065> 

21B01 

3 

< 187> 

21164 

SYS CU,17,9: PRINT"RC4SPACEJTf" 

<172> 

21810 

GOSUB 20560 

<241 > 

21165 

SYS CU, 18, 10: PRINT" WW" 

<153> 

21B20 

SYS CU,12,7sPRINT"HAME DER JABELLE8" 

<255> 

21170 

AA*="":X=19:Y=9:Z=2s GOSUB 20205 

<234> 

21830 

SYS CU,13,9:PRINT"ppppppppppppppp" 

<211 > 

21174 

IF DP=1 THEN 5E=0sRETURN 

< 192> 

21831 

SYS CU,12,10s PRI NT ” fj{ 15SPACE >R" 

<230> 

21175 

21176 

SP— VAL( AA*J 

IF SE=1 AND SP>MA—1 THEN 21161 

<228 > 
<216> 

21832 

21835 

SYS CU,13,11:PRINT' YYYYYYYYYYYYYYY 
AA*=T$:X=14:Y=10: Z=13:GOSUB 20210 

< 135> 
<025> 

211B0 

IF SP<1 OR SP>(MA—1)#2 THEN 21161 

<039> 

21840 

IF DP=1 THEN DP=2sRETURN 

< 119> 

21185 

SYS CU,26,0:PRINT"CRVSONISPIELTAGs<3 


21850 

AA*=LEFT*(AA*+LEFT*(I*,13),13) 

< 121 > 


SPACE,3LEFT>";SP 

< 176> 

21855 

T*=AA* 

<04B> 

21186 

SG=SP 

< 150> 

21860 

TN*=T*+" /T" 

<254> 

21187 

IF SP>MA-1 THEN SP=SP-(MA-1)sW=1 

<250> 

21880 

RETURN 

<092> 

211BB 

SP*=RIGHT*(" "+STR*(SP >,2) 

<0B3> 




21189 

SG*=RIGHT*(" "+STR<(SG),2) 

<201 > 




21190 

SE=0sRETURN 

<231 > 




21199 

3 

<091 > 




21200 
*?\ ypi i 

REM * DRUCKER DEVICE * 

< 113> 
<093> 

Llsting 1. »Ligabase« verwaltet und erstellt Sportliga- 

21210 

OPEN 4,4 

<229 > 

Tabellen. Bitte beachten Sie zur Eingabe den 


21220 

POKE 768,185 

<07B> 

Checksummer auf Seite 61. 



Name 

' 

dir 





c400 C45f 

c400 

I 

20 

04 

c4 

60 

a9 

01 

aO 

c4 

Oe 

c408 

J 

a 2 

5e 

20 

bd 

ff 

a9 

01 

a2 

30 

c410 

1 

OB 

aO 

00 

20 

ba 

ff 

20 

cO 

la 

c41B 

3 

ff 

a2 

01 

20 

c6 

ff 

aO 

05 

a6 

c420 

j 

B4 

fb 

20 

cf 

ff 

aa 

a4 

fb 

B4 

c42B 

I 

BB 

dO 

f3 

20 

cf 

ff 

a4 

90 

4a 

c430 

: 

dO 

23 

20 

cd 

bd 

a9 

aO 

20 

3f 

c43B 

: 

d2 

ff 

20 

cf 

ff 

B5 

fb 

c9 

bb 

c440 

r 

00 

fO 

OB 

a5 

fb 

20 

d2 

ff 

7b 

c44B 

: 

4c: 

3a 

c4 

a9 

Od 

20 

d2 

ff 

35 

C450 

: 

aO 

03 

4c 

20 

c4 

20 

cc 

ff 

09 

c45B 

: 

a9 

01 

20 

c3 

ff 

60 

24 

ff 

96 


Llsting 2. Maschinenroutine »DIR«. 
Bitte mit dem MSE eingeben. 
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Formeln der Elektrotechnik 


Um Ihnen im Laufe der Zeit eine umfangreiche 
Formelsammlung mit kurzen Basic-Programmen 
zur Verfügung zu stellen, werden wir Ihnen in 
loser Reihenfolge Formeln für die verschieden¬ 
sten Anwendungsgebiete vorstellen. 

N och vor einem Jahrzehnt wurde der Computer fast aus¬ 
schließlich zur Arbeitserleichterung in Forschung und 
Technik eingesetzt. Damit wurden dem Anwender 
langwierige, sich ständig wiederholende Rechenvorgänge 
abgenommen. Die Programme zu diesen Berechnungen wa¬ 
ren meist in Maschinensprache geschrieben. Nur langsam 
entwickelten sich technisch-wissenschaftliche Program¬ 
miersprachen wie ALGOL oder auch FORTRAN. 

Auch damals wurden schon Programme geschrieben, um 
den Ingenieuren der Elektrotechnik bei der Berechnung von 
Leistungsanpassung, Hoch-, Tiefpässen, Netzwerken Arbeit 
abzunehmen. Da die Formeln ja immer gleich blieben, mußten 
lediglich andere Werte eingesetzt und das Ergebnis neu 
berechnet werden. Diese zeitraubende Arbeit wollen wir den 
Elektronikbastlern unter unseren Lesern mit einigen Hilfspro¬ 
grammen erleichtern. 


Im ersten Programm (Listing 1) stellen wir eine Möglichkeit 
zur Berechnung von Parallel- und Serien-Schwingkreisen 
(Bild 1 und 2) vor. Die Grenzfrequenz eines Schwingkreises 
ist dort definiert, wo die maximale Ausgangsspannung auf 
70,7 Prozent (3 dB-Punkt) abgesunken ist. Somit ergibt sich 
eine obere Grenz- und eine untere Grenzfrequenz. Die Diffe¬ 
renz zwischen oberer und unterer Grenzfrequenz bezeich¬ 
net man als Bandbreite. Je kleiner die Bandbreite, desto grö¬ 
ßer die Güte. Zur Berechnung dieser Schwingkreise werden 
lediglich drei Werte benötigt: 

Bezeichnung der Werte: 

C = Wert des Kondensators nF 
L = Wert der Spule /tH 
r = Verlustwiderstand der Spule Ohm 0 

errechnete Werte: 
f 0 = Resonanzfrequenz MHz 
B = Bandbreite Hz 
d = Dämpfung 

Q = Güte des Schwingkreises 
R 0 = Resonanzwiderstand Ohm ü 

verwendete Formeln: 


10 

REM PROGRAMM ZUR BERECHNUNG VQN 

< 161 > 

20 

REM SERIEN- UND PARALLEL- 

<001 > 

30 

REM SCHWINGKREISEN 

< 136> 

40 


<016> 

90 

PI=3.141592654 

< 02 B> 

100 

PRINT CHR$(14)"(CLR>"TAB(13)"SERECHNUN 



G VON" 

<035> 

110 

PRINT"(D0WN,3SPACEJ£ERIEN- UND £ARALLE 



LSCHWINGKREISEN" 

<033> 

120 

PRINT"(4D0WN,2SPACE,RVSON >S£RVOFF > ERIE 



N- ODER(SPACE,RVSON >£<RV0FF1ARALLELSCH 



WINGKREIS ?" 

< 191 > 

130 

GET ES:IF E*-""THEN 130 

<229> 

140 

IF E$="P"THEN 170 

<029> 

150 

IF E*<>"S"THEN 130 

<026> 

160 

AS7.= 1 

<051 > 

170 

INPUT"(2DOWNJHERT DES KONDENSATORS CP£ 



] S ";C 

<1B3> 

1 B 0 

INPUT"HERT DER SPULE CUÜ3:”;L 

< 196> 

190 

INPUT"HIDERSTAND DER SPULE CßHMIs "5 R 

<002 > 

200 

O=C*10T<-12)tL=L*10t<-6> : 

< 116> 

210 

FO=INT(l/(2*PI*SQR(L*C>>)sW0=l/FO 

<241> 

215 

F1=FD/1000 

<231 > 

220 

PRINT" (DOWNIJUESONANZFREQUENZ : “;Flj "Jtü 



Z" 

< 113> 

230 

B=R/(2*PI*L> 

<064> 

240 

PRINT"SANDBREITE :<INT<B*1000>)/1000 



s-iiz" 

<254> 

250 

D=B/FO 

<177> 

260 

PRINT"AAEMPFUNG s •• j <INT(D*1000)>/1000 

< 164> 

270 

D-l/D 

<195> 

200 

PRINT"SJETE (INT(0*1000))/1000 

< 159> 

290 

IF AS7.THEN R0=R|GOTO 310 

<0B0> 

300 

R0=GT2*R 

<097> 

310 

PRINT"ÄESONANZWIDERSTAND (INT(R0*10 



00))/1000;"fiHM" 

<0B3> 

320 

PRINT"(DOWN1H0LLEN SIE NEUE HERTE EINB 



EBEN (i/£) ?" 

<103> 

330 

GET A$:IF A*=""THEN 330 

<205> 

340 

IF A*="J"THEN 90 

< 169> 

350 

END 

<09B> 

400 

PRINT"(DOWN1HOLLEN SIE NEUE HERTE EING 



EBEN <i/£) ?" 

< 103> 

410 

GET A*:IF A*«""THEN 410 

<109> 

420 

IF A*="J"THEN 90 

<249> 

430 

END 

< 178> 


Llstlng 1. Parallel- und Serien-Schwingkreis 




O 


C 



Bild 2. 
Reihen- 
O Schwingkreis 


Resonanzfrequenz f 0 =- 

2-t r • l/L ■ C 


Bandbreite 


Dämpfung 


Güte 


B 


2 • TT 


d = — 


Q = — 


L 


Beim Serien-Schwingkreis ist R 0 = r 
Beim Parallel-Schwingkreis ist R 0 = Q z • r 

Den eingegebenen Werten werden in der Zeile 200 die 
richtigen Exponenten zugeordnet. In Zeile 210 befindet sich 
die Formel für die Resonanzfrequenz f 0 und in Zeile 230 
wird die Bandbreite berechnet. Die Formeln für Dämpfung 
und Güte befinden sich in Zeile 250 und 270. Der Algorith¬ 
mus bei der Werteausgabe dient zum Begrenzen auf drei 
Nachkommastellen. 

Da im Elektronikbereich die aktiven Filter die passiven 
Hoch-, Tief- und Bandpässe immer mehr verdrängen, wird 
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das nachfolgende Programm (Listing 2) zur Berechnung von 
Pässen mit Operationsverstärkern dienen. Passive Filter sind 
Siebschaltungen, die aus passiven Bauelementen, also 
Widerständen, Kondensatoren und Spulen, aufgebaut sind. 
Aktive Filter enthalten zusätzlich zu den passiven Bauteilen 
einen Verstärker. Bild 3 zeigt einen Tiefpaß mit Mehrfachge¬ 
genkopplung. In Bild 4 ist ein Hoch- und in Bild 5 ein Bandpaß 
zu sehen. Die mathematischen und elektrotechnischen 
Grundlagen hier zu erklären, würde den Rahmen dieses Arti¬ 
kels sprengen. Leser, die tiefer in diese Materie einsteigen 
wollen, empfehlen wir die entsprechende Fachliteratur, die im 
Anhang bei den Literaturhinweisen aufgeführt ist. Selbstver¬ 
ständlich werden die Formeln, die zur Berechnung der einzel¬ 
nen Größen benötigt werden, noch einmal gesondert auf¬ 
geführt. 

Tiefpaß: 

R, = 


R, = V 


Ra = V 


IT • f 0 • c, • V 

Ri; 

• Ri . 


v+ 1 

c, = 2 • C 2 • (V+1) 




R 3[ 

Li 

'2 

Bild 3. 
Tiefpaß mit 
Mehrfach¬ 
gegenkopplung 

B46R ( 

R. 

r 2 

r r 



V = Verstärkung; f 0 = Grenzfrequenz 
Hochpaß: 


Ri = 


1/2 


Rp = 


2 • » • f 0 • C, 

2 ■ V + 1 

1/2 • 2 • » • f 0 • C, 


(2 + J-) 


p — Ci . 

Cs V' 

V = Verstärkung; f 0 = Grenzfrequenz 
Bandpaß: 

Ri 


i 


V • 2 


Rp 


R, 


7T ' f 0 
1 




(£_!£!) • 2 
V R5 - V ' 


* • f o • C, • t 


1 


TT 


'S INT (RI) | ".OHM" 
';INT(R2)j"AHM" 

INT(R3> s "AHM" 

) 


100 REM BERECHNUNG VON AKTIVEN FILTERN 
110 PI-3.1415926536 

120 PRINT"<CLR>"CHR*(14)TAB(5)"BERECHNUNG 
VON AKTIVEN FILTERN" 

130 PRINT"C2D0WN,3SPACE,RVSON JKRVOFF >IEFP 
ASS,{SPACE,RVSON)atRVOFF>OCHPASS ODER{ 
SPACE,RVSON>aCRVOFF>ANDPASS 7" 

140 GET A*jIF A*=""THEN 140 
150 IF A*“"T"THEN 1000 
160 IF A*«"H"THEN 2000 
170 IF A*-"B"THEN 3000 
180 GOTO 140 

1000 REM BERECHNUNG TIEFPASS 
1010 PRINT"{CLRJXIHFPASS:":PRINT 
1020 INPUT"SRENZFREQUENZ CKÜZIi"|FO 
1030 INPUT"HERBTAERKUNG !",-V 
1040 INPUT"KONDENSATOR £2 CN£ls"|C2 
1050 PRINT 

1060 FO“FO*10 T3 r C2“C2*10 T(-9):V“INT(V) 

1070 R1=(SQR(2)/(4*PI*F0*C2*V)> 

1080 PRINT"HIDERSTAND £1 » 

1090 R2-INT(V»R1/V+1> 

1100 PRINT"HIDERSTAND £2 : 

1110 R3=V#R1 

1120 PRINT"HIDERSTAND £3 : 

1130 C1=2*C2*(V+1)*10 T9:C2=C2*1019 
1140 PRINT"KONDENSATOR £1 «"jCl;"N£" 

1150 PRINT"KONDENSATOR £2 s";C2;"N£" 

1160 GOTO 4000 

2000 REM BERECHNUNG HOCHPASS 

2010 PRINT"<CLRJHDCHPASS5"sPRINT 

2020 INPUT"ARENZFREQUENZ tKÜZIj"sFO 

2030 INPUT"HERSTAERKUNG s"|V 

2040 INPUT"KONDENSATOREN £1=£2 EN£D:"jCl 

2050 PRINT 

2060 FO=FO*10t3:Cl=Cl*10T(-9):C2=C1:V=INT< 
V) 

2070 R1=INT(SQR <2>/(2*PI*FO*Cl*(2+1/V))) 
2080 PRINT"HIDERSTAND £1 :";R1;"£HM" 

2090 R2=INT((V+1)/(SQR(2)*PI*FO*Cl>) 

2100 PRINT"HIDERSTAND £2 :"!R2s"AHM" 

2110 C3=(C2/V)*10T9:C1=C1*10T9 
212u RINT"KONDENSATOR £1 :";C1;"N£" 

2130 PRINT"KONDENSATOR £1 l"jCl;"N£" 

2140 PRINT"KONDENSATOR £3 :"}C3;"N£" 

2150 GOTO 4000 

3000 REM BERECHNUNG BANDPASS 

3010 PRINT" {CLRJ3ANDPASS: ".-PRINT 

3020 INPUT"IIITTENFREQUENZ CKHZ3:";FO 

3030 INPUT"AANDBREITE s“;B 

3040 INPUT"HERSTAERKUNG s"jV 

3050 INPUT"KONDENSATOREN £1=£2 CN£3s"5Cl 

3060 PRINT 

3070 FO=FO*1013:C1-C1*10 T(-9 > J C2=C1s V=INT( 
V) 

3080 R1-INT(1/(2*PI*C1*B*V>) 

3090 PRINT"HIDERSTAND £1 :"iRI ; "AHM" 

3100 R2=INT(l/(((2*F0T2)/Bt2-V)*2*PI*C1#B) 

> 

3110 PRINT"HIDERSTAND £2 I"|R2 5 "£HM“ 

3120 R3=INT(1/(PI*C1*B)) 

3130 PRINT"HIDERSTAND £3 s"JR3j"AHM" 

3140 C1=C1*10T9 

3150 PRINT"KONDENSATOR £1 j"jC15"N£" 

3160 PRINT"KONDENSATOR £2 s";Cl 5 "N£" 

4000 PRINT"{2D0WNJHDLLEN £IE NEUE HERTE EI 
NGEBEN (i/H) 7" 

4010 GET A*:IF A*=""THEN 4010 
4020 IF A*="J"THEN RUN 
4030 END 

Llstlng 2. Aktiv-Filter 


<166> 

<229> 

< 126> 


< 001 > 

<014> 

<215> 

<223> 

<234> 

< 172> 

<037> 

< 117> 
<109> 
<180> 

< 179> 

< 136> 

< 172> 
<042> 
<246> 
<0B5> 
<203> 

< 1 B6> 

< 159> 
<158> 
< 202 > 
<245> 

< 1 0B> 
< 022 > 
< 102 > 
<093> 

< 162> 
<004> 
< 120 > 

<087> 

< 107> 

< 153> 
<086> 
<255> 

< 118> 
< 166> 

< 176> 
<252 > 
< 0 B 2 > 
<06B> 
<14B> 

< 141 > 
<172> 

< 156> 
<254> 

< 112 > 

<079> 

< 101 > 

<0B4> 

<099> 

<249> 

<065> 

< 157> 
<059> 

< 1B0> 

< 191 > 

< 178 > 
<0B9> 
<234> 
< 222 > 


B • C, 

B = Bandbreite; f 0 = Mittenfrequenz 

Um unseren Lesern die Möglichkeit zu geben, einfache 
Spulen auf Spulenkörper mit Eisen- oder Ferritkern zu 
berechnen, haben wir ein kleines Programm entwickelt 
(Listing 3), das zur groben Berechnung der benötigten Win¬ 
dungen dient. Im Programm selbst wird nach dem Induktivi¬ 
tätsfaktor, dem Durchmesser des Spulenkörpers und nach 


dem Drahtdurchmesser des Kupferlackdrahtes gefragt. Der 
Induktivitätsfaktor wird vom Hersteller des Spulenkörpers 
angegeben, wenn nicht, sollte der Elektronikhändler Aus¬ 
kunft geben können. Die Drahtdurchmesser, welche unser 
kleines Programm zur Auswahl anbietet, sind Standardwerte. 
Noch einen kleinen Tip: ist der Drahtdurchmesser stärker, 
wird die Güte der Spule besser. Auch dieses Programm soll 
nur zur Veranschaulichung dienen, wie Formeln in Pro¬ 
gramme eingebunden werden können. 

Windungszahl der Spule 

n=L 
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C 64 




c, s 

n II 


2 

.0- 

Bild 4. 
Hochpaß 

° II 

1 

1 c ’rl 


R 0 = 7r • d • R 0 ■ n 


n = Anzahl der Windungen 
L = Gewünschte Induktivität /iH 
A, = Induktivitätsfator des Spulenkerns 
R c = Widerstand des Kupferlackdrahtes pro Meter, abhän¬ 
gig vom Drahtdurchmesser (do/ah) 

Utemturhlnwolso: 

EloRlronlK 1, Grundlagen, Verlag Europa-lehrmlltol 
Fachkonnlnl8se EloklrolochnlK, Vorlag Handwork und Toohnlk 
DaB große Weikbuoh Eloklronlk. Frurui&Vorlfig 
Halblollor-Schallunaalaohnlk, U. Tloltzo u. Ch. Schank, Sprlngar-Vorlag, 

ISBN 3*640-09848-8, 6, Aullago 


100 REM BERECHNUNG VON EINLABIGEN SPULEN <144> 
110 REM ENG GEWICKELT <0B7> 

120 : <096> 

130 PRINT CHR$(14)"<CLR,4SPACE>BERECHNUNG 

VON EINLAGIGEN SPULEN" <1BB> 

140 PRINT"{DOWN»DIESES £ROGRAMM ERRECHNET 

HINDUNGEN," <01B> 

150 PRINT”fiUETE AL UND SPULENWIDERSTAND SS 

VON" <024> 

160 PRINT"EINLAGIGEN SPULEN MIT EISENKERN. 

" <027> 

170 INPUT"<2DOWN>iNDUKTIVITAETSFAKTOR flL C 

NÜI :";AL <100> 

180 INPUT"iNDUKTIVITAET tMIKROÜ] :";L <137> 

190 AL=AL*10t-9:L=L*10T-6 <165> 

200 N=INT(SQR(L/AL)) <125> 


Die schnelle 
Dafei 

Wie effektiv eine unkompliziert aufgebaute Datei 
sein kann, demonstriert dieses Programm. »Datei 
64« erlaubt den Aufbau von bis zu neun Feldern 
pro Datensatz und kann dadurch schon die mei¬ 
sten Karteikarten ersetzen. 

D atei 64 erstellt eine indexsequentielle Datei (Erklärung 
folgt). Erreicht wird dies durch eine relative und eine 
sequentielle Datei, so daß das Programm zum Betrieb 
ein Diskettenlaufwerk benötigt. Zum Ausdruck kann ein Com- 
modore-Drucker vom Typ MPS 801 oder MPS 803 ange¬ 
schlossen werden. Centronics-Drucker funktionieren nur mit 
entsprechendem Interface korrekt. Die Dateiverwaltung glie¬ 
dert sich in zwei Programmteile, das Ladeprogramm »D 64« 
(Listing 1) und das Hauptprogramm »Datei 64« (Listing 2). 
Dieses ist vollständig in Maschinensprache geschrieben und 
liegt im Bereich ab 49152. Dadurch ist es einerseits durch 
Überschreiben geschützt, andererseits bleibt der gesamte 
Basic-Speicher für Daten frei. 

Die indexsequentielle Datei: 

In einer sequentiellen Datei stehen die Daten so wie sie 
geschrieben worden sind, hintereinander (sequentiell) auf 
der Diskette oder Datasette. Um damit arbeiten zu können, 



210 

INPUT"DURCHMESSER £1 SENKERN IMM1 :";D 

<12B> 

220 

D-D*10T-3 

< 144> 

230 

PR INT "DURCHMESSER EDA.-DRAHT CMM1 j" 

<1B3> 

235 

print"mit <.a-P-n.gr:> auswaehlen" 

<031 > 

240 

READ CD:READ RC:IF CD=-1 THEN RESTORE: 



GOTO 240 

< 129> 

250 

PRINT"{HOME,10DOWN}"TAB(2B);CD|"{3SPAC 



E>" 

< 11B> 

260 

GET A*:IF A*="""THEN 260 

<040> 

270 

IF A*-" "THEN 240 

<213> 

2B0 

IF A*OCHR* <131 THEN 260 

<093> 

290 

PRINT"{29SPACE>" 

<1B9> 

300 

PRINT"HINDUNBEN : ";N 

<214> 

310 

RS= <(3.141592654*D> *RC*N) 

< 177> 

320 

PRINT"5PULENWIDERSTAND :"j <INT(10000*R 



S>1/10000;"AHM" 

<21B> 

330 

PRINT"CDOWN»HOLLEN SIE NEUE HERTE EING 



EBEN <£/H> ?" 

<1131 

340 

GET A*:IF A$=""THEN 340 

<024> 

350 

IF A*="J"THEN RUN 

< 120> 

360 

IF A*<>"N" THEN 340 

<233> 

370 

END 

<11B> 

1000 DATA .065,B.94,.075,6.21,.098,3.49,.1 



22,2.23,.142,1.55,.179,.99 

<222> 

1010 DATA .23,.56,.285,.36,.337,.25,.444,. 



14,.551,.089,.659,.062 

< 139> 

1020 DATA .759,.046,.B72,.035,1.072,.022,1 



.291,.015,-1,-1 

<225> 

10000 DATA .065,.075,.098,.122,.142,.17950 



0 

<047> 

jnur 

Listing 3. Einlagige Spulen 



muß die ganze Datei im Speicher des Computer stehen. Nur 
so sind Funktionen wie Suchen und Sortieren von Daten 
möglich. Durch den relativ geringen Arbeitsspeicher des 
C64 wird jedoch der Umfang der Datei stark begrenzt. Die 
andere Möglichkeit besteht darin, daß diese sequentielle 
Datei nur einen kleinen Teil aller Daten enthält. Der Rest wird 
auf Diskette ausgelagert und nur bei Bedarf nachgeladen. 
Damit man hier nicht lange suchen muß, gibt es ein spezielles 
Format der Datenablage, die relative Datei. Da man das 
sequentielle File als Index-Datei gebraucht, wird die Datei¬ 
form als indexsequentiell bezeichnet. 

In unserem Fall besteht die Datei aus Datensätzen, die wie¬ 
derum in drei bis neun Felder unterteilt sind. Dabei werden die 
ersten beiden Felder als Schlüsselfelder behandelt. Auf 
diese beziehen sich die restlichen Felder des jeweiligen 
Datensatzes. Deshalb müssen auch nur diese beiden Felder 
im Speicher des C64 sein, um einen Datensatz exakt zu 
bestimmen. 

Die Bedienung der Datei: 

Laden Sie das Ladeprogramm »D 64« mit LOAD "D 64",8 
und starten Sie es mit RUN. Nach dem Ladevorgang 
erscheint zunächst das Menü, in dem Sie mit Fl und F3 die 
Bildschirmfarben an Ihren Monitor anpassen können. Um 
eine neue Datei anzulegen, wählen Sie den Menüpunkt 5, 
»datei neu anlegen«. Dort geben Sie den Namen der Datei 
und die maximale Anzahl der Datensätze ein. Um die Eingabe 
zu stornieren, geben Sie bei der Anzahl der Datensätze ein¬ 
fach »@« ein. Im anderen Fall werden die einzelnen Felder 
definiert. Die Bezeichnung der Felder ist frei, die Bezeichnun¬ 
gen sollten sinngemäß den einzugebenden Daten entspre¬ 
chen. Wenn Sie nicht alle neun Felder benötigen, beantwor¬ 
ten Sie die überflüssigen Felder mit < RETURN >. Beachten 




174 


SONDERHEFT 11 




























C 64 


ANWENDUNG 


Sie bitte, daß Sie mindestens drei Felder definieren. Sind Sie 
mit der Eingabe fertig, erstellt der Computer die Dateien auf 
Diskette. Jetzt wird die relative Datei eingerichtet und Frei¬ 
raum für die Daten reserviert. Beim Anlegen der Datei ist dar¬ 
auf zu achten, daß die Speicherkapazität der Diskette nicht 
überschritten wird. Für 68 Datensätze mit neun Feldern wer¬ 
den im Durchschnitt 100 Blöcke gebraucht. Somit passen in 
dieser Form etwa 450 Datensätze auf eine Diskette. Bei 
sechs Feldern sind es 999 Datensätze. 

Links oben steht die Anzahl der Datensätze, rechts oben 
der Dateiname. Diese Datei ist jetzt geöffnet. 

Die Optionen Eingabe, Ausgabe und Verarbeitung können 
nur angewählt werden, wenn eine Datei geöffnet ist! Der 
Rücksprung ins Menü findet grundsätzlich mit < Fl > statt. 
Die Eingabe: 

Für die Eingabe erscheint zunächst ein leerer Datensatz. 
Mit < F3 > können Sie in diesem Modus den nächsten freien 
Datensatz suchen. 

Sicherlich ist Ihnen bereits die dreistellige Zahl links unten 
aufgefallen. Sie repräsentiert den Datensatzzähler. Mit seiner 
Hilfe können Sie jeden beliebigen Datensatz ansprechen, 
indem Sie die betreffende Nummer eingeben und mit 
< RETURN > abschließen. Den betreffenden Datensatz 
können Sie nun mit <F5> korrigieren. 

Datenausgabe: 

Dieser Menüpunkt dient der Datenausgabe auf dem Bild¬ 
schirm. Die einzelnen Datensätze können nun langsam oder 
schnell durchgeblättert werden. Langsam heißt, daß sämtli¬ 
che Felder des Datensatzes nachgeladen werden. Im 
Schnelldurchlauf zeigt das Programm nur die zwei ersten Fel¬ 
der an. Die Umschaltung erfolgt mit der Taste <F7>, geblät¬ 
tert wird mit < F3 > und < F5 >. Auch hier ist es wieder mög¬ 
lich, einen Datensatz direkt anzuwählen. 

Daten verarbeiten: 

In diesem Untermenü wählen Sie mit den Funktionstasten 
zwischen »suchen« und »drucken«. Beim Suchen können die 
Indices (die beiden ersten Datenfelder) entweder getrennt 
oder miteinander verknüpft werden. Beim Suchen nach 
einem einzelnen Feld kann der Index durch ein Jokerzeichen 
(*) abgekürzt werden. (Zum Beispiel statt »Meyer, Harald« 
»Meyer,*«. So würden alle »Meyer« ohne Berücksichtigung 
des Vornamens angezeigt). Nun wird noch der Datensatzzei¬ 
ger auf den ersten abzusuchenden Datensatz gerichtet, und 
der C 64 zeigt Ihnen bereits den ersten Datensatz an, der der 
Bedingung des Indexfeldes entspricht. Mit der Taste < F7 > 
würden Sie nun mit der Suche fortfahren, mit jeder anderen 
Taste gelangen Sie wieder ins Suchmenü. Der Suchvorgang 
wird erst am Ende der Datei abgebrochen. 

Das Druck-Menü wählen Sie bitte dann an, wenn sich der 
zu druckende Datensatz auf dem Bildschirm befindet. Dazu 
geben Sie die Datensatznummer, die Sie im Suchmenü erfah¬ 
ren, ein. Daraufhin können Sie den gewünschten Datensatz 
nochmals verändern. Diese Veränderung wird allerdings nur 
gedruckt und nicht in die Datei aufgenommen. 

Ende: 

Dieser Befehl muß immer am Schluß eines Vorganges 
angewählt werden. Hier wird die relative Datei geschlossen 
und die Index-Datei gespeichert. Wenn Sie vergessen, Ihre 
Datei so zu schließen, werden Sie mit hoher Wahrscheinlich¬ 
keit Daten verlieren! 

Datei laden: 

Um eine bereits bestehende Datei bearbeiten zu können, 
muß diese natürlich erst einmal aktiviert, sprich geöffnet sein. 
Dazu geben Sie lediglich den Namen der Datei an. 

Erweitern einer Datei: 

Manchmal kommt es vor, daß man sich in der Größe seiner 
Datei verschätzt. Dann ist es nötig, diese zu erweitern, was 
hier glücklicherweise einfach ist. Dazu laden Sie die Datei 
gemäß Menüpunkt 6. Nun wählen Sie Punkt 5, »Datei neu 

assü* 


anlegen«, und geben den gleichen Dateinamen und die glei¬ 
chen Feldnamen ein. Nur die Anzahl der Datensätze darf 
erhöht werden. Beim Schließen der Datei werden dann die im 
Computer enthaltenen Daten wieder auf Diskette zurückge¬ 
schrieben, so daß diese nicht verlorengehen. 

Directory gibt schließlich ein Inhaltsverzeichnis der Diskette 
aus. Mit einem Tastendruck wird die Ausgabe verzögert. Vor¬ 
sicht bei geöffneten Dateien. Bei gleichzeitiger Ausgabe 
eines Directory kann es zu Fehlermeldungen kommen. Zur 
Datensicherung sollten Sie dann »Ende« anwählen. 
Achtung! Während die Datei geöffnet ist, sollte die Diskette 
auf keinen Fall entnommen werden. Ist es trotzdem einmal 
nötig, dann erlischt die rote Diode, die eine offene Datei si¬ 
gnalisiert. Wählen Sie dann auf jeden Fall sofort den Befehl 
»Ende«, um Ihre Daten zu retten. 

Das Hauptprogramm liegt als Maschinenprogramm von 
$C000-$CFFF im Speicher vor. Für Variableneinträge wird 
der Bereich von $0800-$08FF benutzt. Die Index-Datei wird 
ab $0900-$BD82 gespeichert. Hierbei wird ein Teil des 
Basic-Interpreters mitbenutzt. Dadurch muß von Zeit zu Zeit 
der Basic-Interpreter ausgeschaltet werden, wenn aus dem 
Speicher gelesen wird. (F. Kruppa/og) 


Programmgliederung: 

$C000-$C110 : Text für Bildschirmausgaben. 
$C110-$C144 : Hier wird eine dezimale Zahl, die in 
$0800-$0802 steht, in eine entspre¬ 
chende hexadezimale Zahl umgewan¬ 
delt. Diese Zahl wird dann in 
$0803-$0804 abgelegt. 

: Rand für die Bildschirmmaske. 

: Rechnet die jeweilige Datensatznum¬ 
mer, die in $0800-$0802 steht, in 
den dazugehörigen Index um. Die bei¬ 
den Indices sind zusammen 46 Zei¬ 
chen groß (je 23 Zeichen). Diese 
Umrechnung geschieht relativ zum 
Anfang ($0900). 

$C1EC-$C23F : Datensatznummer abfragen. 
$C23F-$C25E : Setzt den Cursor für eine Eingabe. 
$C25E-$C29E : Holt die Namen der einzelnen Felder 
und gibt sie auf dem Bildschirm aus. 
Die Anzahl der Felder muß in $0805 
stehen. Die Namen der Felder stehen 
in $0807 bis maximal $0860. 
$C29E-$C2AE : Setzt die Datensatznummer auf Null. 
$C2AE-$C2E2 : Liest den Fehlerkanal aus. 
$C2E2-$C320 : öffnet die relative Datei. 
$C320-$C360 : Sendet den Positionier-Befehl an die 
Floppy. Die Nummer des Records muß 
in $0803-$0804 stehen. 

$C360-$C37C : Wandelt Bildschirm- in ASCII-Codes. 
$C37C-$C3DB : Liest die Daten vom Bildschirm mit 
Ausnahme der beiden Indices. 
$C3DB-$C429 : Daten auf Bildschirm. 

$C429-$C44C : Stellt fest, ob der Index belegt ist. 
$C44C-$C492 : Index anzeigen. 

$C492-$C4F4 : Index-Bildschirm schreiben. 
$C4F4-$C50B : Diese Routine gibt den Text aus. 
$C5DB-$C559 : Striche für Eingabe ziehen. 
$C559-$C57F : Hier liegen Routinen zum Laden und 
Speichern der relativen Datei. 
$C57F-$C5A9 : Datensatznummer erhöhen. 
$C5A9-$C5D1 : Setzt den Cursor. 


$C144—$C188 
$C188-$C1EC 
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Beginn des Hauptprogrammes: 

$C5D1-$C5FD : Schreibt den Speicher mit $FF voll. 

$C5FD-$C6A6 : Gibt das Menü aus. 

$C6A6-$C72B : Gibt das Directory aus. (Aus Data 
Becker, »64 Intern«) 

$C72B-$C8E6 : Hier wird eine Datei neu angelegt. 

$C8E6-$C9DB : Dies ist das Programm für Eingabe. 

$C9DB-$CABD : Dies ist das Programm für Ausgabe. 

$CABD-$CBOC : Hier liegt das Programm für Ende. Die 
Index-Datei wird sequentiell ge¬ 
speichert. 

$CB0C-$CC69 : Dies ist das Programm fürs Laden. Hier 
wird die relative Datei geöffnet und die 
sequentielle Index-Datei von der Dis¬ 
kette geladen. 


$CC69-$CFF3 : Dies Ist das Programm zum Verarbei¬ 
ten der Datensätze. Es ist unterteilt in 
Suchen eines Index und Ausdrucken 
eines Datensatzes. 


1 REM ****************** <044> 

2 REM DATEI 64 <147> 

3 REM VON FRANK KRUPPA <026> 

4 REM ****************** <047> 

5 POKE 33280,0 <055> 

10 PRINT”tCLR>"iPRINT"C98PACE»BITTE ETWAS 

GEDULD" <10B> 

20 IF X-0 THEN X*»l: LOAD”DATEI 64",8,1 <0B2> 

30 SYS 50641 <175> 


Listing 1. Der Lader für »Datei 64« 


Programm 

i 

datei 

64 


c000 d000 

C22B 

i 

35 

c2 

CB 

3a 

c2 

ad 

1B 

c2 

39 

c46B 

8 

a2 

37 

B6 

01 

20 

d2 

ff 

1B 

30 












c230 

i 

c9 

6c 

fK 

bB 

ad 

6f 

07 

69 

cB 

c470 

8 

ad 

66 

c4 

69 

01 

Bd 

66 

c4 

4e 












c23B 

i 

7f 

Bd 

6f 

07 

4c 

0Ü 

c2 

a2 

90 

c47B 

8 

90 

03 

ae 

67 

c4 

3B 

20 

f0 

a3 

C000 

| 

46 

31 

20 

4! 

45 

4b 

55 

45 

37 

c240 

I 

02 

a0 

0b 

1B 

20 

(0 

ff 

20 

22 

c480 

1 

ff 

C0 

22 

d0 

dB 

B0 

04 

fB 
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